Ir para conteúdo
Fórum Script Brasil
  • 0

Busca Em Asp


ldrwebsite

Pergunta

wink.gif Olá amigos! eu tenho um página em ASP que busca no banco de dados conforme a palavra digitada e mostra o resultado em uma tabela, veja:

<%Option Explicit

Response.Expires=0

Dim objConn, objRS, strQuery

Set objConn=Server.CreateObject("ADODB.Connection")

objConn.Open "DBQ=c:/asp/info/dados.mdb;Driver={Microsoft Access Driver (*.mdb)}"

Dim key

Dim counter

key=Request.QueryString("descricao")

counter=0

strQuery="SELECT * FROM produto WHERE keyword1='"&key&"' OR keyword2='"&key&"' OR keyword3='"&key&"' OR keyword4='"&key&"' ORDER BY cod"

Set objRS=objConn.Execute(strQuery)

%>

Depois a página mostra o resultadoem uma tabela, veja:

[quote]<%else%>

<%while not objRS.EOF

counter=counter+1

%> <table border="0" cellspacing="1" style="border-collapse: collapse" width="590" id="AutoNumber9">

<tr bgcolor="#ECECEC" style="CURSOR: hand" onClick="window.location='<%=objRS("link")%>'" onMouseover="this.style.background='#D7D7D7'" onMouseout="this.style.background='#ECECEC'">

<td width="110"><center>

<font color="#486992" face="Arial" style="font-size: 9pt"><a href="<%=objRS("link")%>" id="b"><%=objRS("cod")%></a></font></center></td>

<td width="480">

<font color="#000000" face="Arial" style="font-size: 8pt">&nbsp;<%=objRS("descr")%></font></td>

</tr>

</table>

<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="590" cellpadding="0" id="AutoNumber6" height="1">

<tr>

<td></td>

</tr>

</table>

<%

objRS.MoveNext

Wend

objRS.close

objConn.close

Set objRS=Nothing

Set objConn=Nothing

%>

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Nesta parte, faça assim:

.

.

<%while not objRS.EOF

if cor ="#ECECEC" then

cor = "#ffffff"

else

cor ="#ECECEC"

end if

counter=counter+1

%> <table border="0" cellspacing="1" style="border-collapse: collapse" width="590" id="AutoNumber9">

<tr bgcolor="<%= cor %>" style="CURSOR: hand" onClick="window.location='<%=objRS("link")%>'" onMouseover="this.style.background='#D7D7D7'" onMouseout="this.style.background='#ECECEC'">

<td width="110"><center>

.

.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...