Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

CaBo GeL

Sintaxe Par ou Impar

Recommended Posts

primeiro faça um while do seu recordset e a cada passagem de registro "jogue" o valor do ID para a variavel da verificação abaixo<%intValor=5If intValor Mod 2 = 0 Then Response.Write("par")Else Response.Write("impar")End If%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Puxa cara... sinceramente fique confuso olhe como eu fiz... n deu certo...<% Set Objbanco=Server.CreateObject("Adodb.Connection")Objbanco.Open "Driver=Mysql;Server=LocalHost;pwd=;uid=;DataBase=ClinicaThiago"Set Objloc=Objbanco.execute("Select * From cliente")%><% Set Objbanco=Server.CreateObject("Adodb.Connection")Objbanco.Open "Driver=Mysql;Server=LocalHost;pwd=;uid=;DataBase=ClinicaThiago"Set Objloc=Objbanco.execute("Select * From cliente")%><table width="300" height="75" border="0" align="center" cellpadding="0" cellspacing="0" background="imagem.gif"><tr><td height="25">Estilo Orkut by Ted k'</td></tr><%CodCli=5If CodCli Mod 2 = 0 Then Do While not objloc.eof%><tr><td height='25' style='background-color:red'><%=Objloc("NomeCli")%></td></tr><%Objloc.movenextloopEnd If%><%CodCli=5If CodCli Mod 2 = 0 Then Do While not objloc.eof%><tr><td height='25' style='background-color:#00CCFF'><%=Objloc("NomeCli")%></td></tr><%Objloc.movenextloopEnd If%></table>

Compartilhar este post


Link para o post
Compartilhar em outros sites

veja se isso te ajuda

 

<% Set Objbanco=Server.CreateObject("Adodb.Connection")Objbanco.Open "Driver=Mysql;Server=LocalHost;pwd=;uid=;DataBase=ClinicaThiago"Set Objloc=Objbanco.execute("Select * From cliente")%><% Set Objbanco=Server.CreateObject("Adodb.Connection")Objbanco.Open "Driver=Mysql;Server=LocalHost;pwd=;uid=;DataBase=ClinicaThiago"Set Objloc=Objbanco.execute("Select * From cliente")%><table width="300" height="75" border="0" align="center" cellpadding="0" cellspacing="0" background="imagem.gif"><tr><td height="25">Estilo Orkut by Ted k'</td></tr><%Do While not objloc.eofIf Objloc("id") Mod 2 = 0 Then %><tr><td height='25' style='background-color:red'><%=Objloc("NomeCli")%></td></tr><%End IfObjloc.movenextloop%><%Objloc.movefirstDo While not objloc.eofIf Objloc("id") Mod 2 <> 0 Then %><tr><td height='25' style='background-color:#00CCFF'><%=Objloc("NomeCli")%></td></tr><%End IfObjloc.movenextloop%></table>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Cara... na verdade to kero fazer um loop de linha da tabela zebrado, estilo Orkut, por exemplo... Mostrando dados:Paulo - cor de fundo verdeMarcelo - cor de fundo azulPatricia- cor de fundo verdeMariana - cor de fundo azule assim sucessivamente... o seu Exemplo ta mostrando todos os valores impares em uma soh linha e pares em outra linha da tabela...ta quase... rsrs..Valewwwentendeu?

Compartilhar este post


Link para o post
Compartilhar em outros sites

ah! então você não quer pares e impares....você quer imprimir zebrado....

 

abaixo a logica

 

<%  coratual  "#ffffcc" Do While Not objloc.EOF%><tr><td height='25' style='background-color:<% response.write(coratual) %>'><%=Objloc("NomeCli")%></td></tr><%  objloc.movenext  If coratual = "#ffffcc" Then   coratual = "#ffff99"  Else   coratual = "#ffffcc"  End If  loop%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.