ldrwebsite Postado Março 9, 2006 Denunciar Share Postado Março 9, 2006 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 ExplicitResponse.Expires=0Dim objConn, objRS, strQuerySet objConn=Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=c:/asp/info/dados.mdb;Driver={Microsoft Access Driver (*.mdb)}"Dim keyDim counterkey=Request.QueryString("descricao")counter=0strQuery="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"> <%=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 %> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 .Andreia. Postado Março 9, 2006 Denunciar Share Postado Março 9, 2006 Nesta parte, faça assim:..<%while not objRS.EOFif cor ="#ECECEC" thencor = "#ffffff"elsecor ="#ECECEC"end ifcounter=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>.. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ldrwebsite Postado Março 9, 2006 Autor Denunciar Share Postado Março 9, 2006 Valeu andreia_sp!!!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
ldrwebsite
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:
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"> <%=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
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.