3 replies to this topic

[gUiTaR_mAn]

Olá pessoal!

axu ki essa vai ser fácil...
bom... eu quero fazer um ixquema onde os dados são recuperados do BD e são colocados um embaixo do outro em linhas de uma tabela.

Ex.:

<table border="0">
  <tr>

     <%
         Do While not RS.EOF
         nome = RS.Fields("nome")
     %>

         <td><b>Nome:</b> <% =nome %></td>

     <%
          RS.MoveNext
          Loop
     %>
  </tr>
</table>

só que, pra fikar maix bunitinhu e organizado eu gostaria que uma linha fosse vermelha e a outra branca, e assim sucessivamente...

Ex.:

Nome 1
Nome 2
Nome 3
Nome 4
Nome 5

é isto aí galéra!
já agradeço quem puder me ajudar!
valew!

[GuiSantos]

Ve se isso te ajuda, só adaptar ae:

um = "#FF3300"
dois = "#6600FF"
For i=1 to 2
select case i
case 1
a = um
case 2
a = dois
end select
Response.Write "<font color="& a &"  >Resultado</font><br>" 
Next

[Felipe Pena]

<table border="0">
 <tr>

    <%
        Do While not RS.EOF
        nome = RS.Fields("nome")
        
        cont = 1
        cor1 = "black"
        cor2 = "red"
    %>

        <td><b>Nome:</b>
        <%

        if cont = 1 then
            response.write "<font color'" + cor1 + "'>" + nome + "</font>"
        else
            response.write "<font color'" + cor2 + "'>" + nome + "</font>"
        End if

        cont = cont + 1

        if cont > 2 then
            cont = 1
        End if
        
        %></td>

    <%
         RS.MoveNext
         Loop
    %>
 </tr>
</table>

[Luis Otávio]

<table border="0">
<tr>

<%
        Do While not RS.EOF
        nome = RS.Fields("nome")
   
If Cor = "#EAEAEA" then
Cor = "#CCCCCC"
Else
Cor = "#EAEAEA"
End If
%>

<td bgcolor="<%=Cor%>"><b>Nome:</b> <% =nome %></td>

    <%
        RS.MoveNext
        Loop
    %>
</tr>

</table>



Tópico de soluções... hehehehehe