Cada tabela de uma cor...

[sauloborges 0]

E galera...!!!?Mas um pepininho pra descascar....Olha este código e me diga, como eu faço para que cada tabela apareça de uma cor mantendo este padrão no rs e na paginação...Valeu... ;) :D Aqui é o RS:<%Dim RS_Imoveis__VarTipoRS_Imoveis__VarTipo = "A"If (Request.QueryString("tipo") <> "") Then RS_Imoveis__VarTipo = Request.QueryString("tipo") End If%><%Dim RS_ImoveisDim RS_Imoveis_numRowsSet RS_Imoveis = Server.CreateObject("ADODB.Recordset")RS_Imoveis.ActiveConnection = MM_ConnBertioga_STRINGRS_Imoveis.Source = "SELECT * FROM Imovel WHERE Tipo = '" + Replace(RS_Imoveis__VarTipo, "'", "''") + "'"RS_Imoveis.CursorType = 0RS_Imoveis.CursorLocation = 2RS_Imoveis.LockType = 1RS_Imoveis.Open()RS_Imoveis_numRows = 0%>Aqui é a tabela que eu quero mostrar:<% While ((Repeat1__numRows <> 0) AND (NOT RS_Imoveis.EOF)) %> <table width="500" align="center"> <tr> <td width="6%" height="12"><img src="seta.gif" width="12" height="12"></td> <td width="83%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=(RS_Imoveis.Fields.Item("Nome").Value)%></strong></font></td> <td width="11%"><div align="center"><img src="maq_foto.gif" width="30" height="25"></div></td> </tr> <tr> <td height="12"> </td> <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(RS_Imoveis.Fields.Item("Obs").Value)%></font></td> <td> </td> </tr> <tr> <td height="21"> </td> <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="<%="http://"&(RS_Imoveis.Fields.Item("Site").Value)%>" target="_blank"><%=(RS_Imoveis.Fields.Item("Site").Value)%></a></font></td> <td> </td> </tr> </table> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RS_Imoveis.MoveNext()Wend%>Valeu galera.....

[marcia.jordana 0]

Caro colega;Tente isso<% i = 0While ((Repeat1__numRows <> 0) AND (NOT RS_Imoveis.EOF)) If (i MOD 2) = 0 then strcor = "#f4f4f4"Else strcor = "#eeeeee"End If%><table width="500" align="center" bgcolor = "<%=strcor%>"><tr> <td width="6%" height="12"><img src="seta.gif" width="12" height="12"></td><td width="83%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=(RS_Imoveis.Fields.Item("Nome").Value)%></strong></font></td><td width="11%"><div align="center"><img src="maq_foto.gif" width="30" height="25"></div></td></tr><tr> <td height="12"> </td><td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(RS_Imoveis.Fields.Item("Obs").Value)%></font></td><td> </td></tr><tr> <td height="21"> </td><td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="<%="http://"&(RS_Imoveis.Fields.Item("Site").Value)%>" target="_blank"><%=(RS_Imoveis.Fields.Item("Site").Value)%></a></font></td><td> </td></tr></table><% Repeat1__index=Repeat1__index+1Repeat1__numRows=Repeat1__numRows-1RS_Imoveis.MoveNext()i = i + 1Wend%>Tchau!