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

Cor Sim Cor Não

Deividy

Perguntado por Deividy,

 Share

Pergunta

Deividy

Deividy

Postado
Postado

meu site tenhe esse sistema

if (cor = "#FFFFFF") then

cor = "#f2f2f2"

else

cor = "#FFFFFF"

end if

para alterar a cor só que aqui ele está pegando em seguencia do db e eu tenho um campo para validar dentro desse db e quando eu valido um deles aparece dois branco.

ex.

no db eu tenho

campo1

campo2

campo3

campo4

campo5

esse são os meus campos se eu deletar o campo2 entre o 1 e 3 a parecem a mesma cor.

Link para o comentário
Compartilhar em outros sites

11 respostass a esta questão

Posts Recomendados

  • 0
Decio

Decio

Postado
Postado

Tipo assim , não sei se o exemplo vai ajudar:

<%

dim cor

dim fcor

fcor = 0

for a = 1 to 10

if fcor = 0 then

fcor=1

cor="#0000FF"

else

fcor=0

cor="#FF0000"

end if

Response.Write "<font color='" & cor & "'>Teste de cores</font><br>"

next

%>

Eu acredito que você queira mostrar os dados na tela tipo em tabelas, e cada linha da tabela tenha uma cor diferente.Se não for isto, me explica melhor.

Link para o comentário
Compartilhar em outros sites
  • 0
Deividy

Deividy

Postado
  • Autor
Postado

A minha função esta assim e mesmo assim continua dando o memo erro se eu tiro o campo que deveria esta entrew duas cores ele aparece as duas cores...

cor = "#FFFFFF"

On Error Resume Next

rsUsers.MoveFirst

Do While not rsUsers.EOF

if (cor = "#FFFFFF") then

cor = "#f2f2f2"

else

cor = "#FFFFFF"

end if

Link para o comentário
Compartilhar em outros sites
  • 0
ursolouco

ursolouco

Postado
Postado

Brother!!!

Veja só que elaborei:

Index.asp:

<html>
<head>
<title>Index.asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<style type="text/css">
<!--
table {
    background-color: #FFFFFF;
    border-top: 1px solid #333333;
    border-right: 1px solid #333333;
    border-bottom: 1px none #333333;
    border-left: 1px solid #333333;
}
.inferior {
    border-top-width: 1px;
    border-right-width: 1px;
    border-bottom-width: 1px;
    border-left-width: 1px;
    border-top-style: none;
    border-right-style: none;
    border-bottom-style: solid;
    border-left-style: none;
    border-top-color: #333333;
    border-right-color: #333333;
    border-bottom-color: #333333;
    border-left-color: #333333;
}
-->
a:link {
    color: #000099;
}
a:visited {
    color: #000099;
}
a:hover {
    text-decoration: underline;
}
a {
    text-decoration: none;
}
-->
</style>
</head>
<%
    Dim Conn, strConn, cBanco, Rs, idSQL
    
    cBanco = Server.MapPath("Biblio2000.mdb")
    strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source  = "& cBanco &";"
    Set Conn = Server.CreateObject("adodb.connection")
    Conn.Open(strConn)    
    Set Rs = Server.CreateObject("adodb.recordset")
    idSQL = "SELECT Authors.Au_ID, Authors.Author, Authors.[Year Born] FROM Authors WHERE (((Authors.Au_ID)<=70));"
    Set Rs = Conn.Execute(idSQL)
%>
<body>
<table width="60" height="37" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="133" height="17" class="inferior"> 
      <p align="center"><font color="#FF0000"><strong><font size="2" face="Verdana"> 
        Id:</font></strong></font></p></td>
  </tr>
  <%
      Dim fTabela
  %>
  <% While Not Rs.EOF%>
  <%
      If fTabela = "#FFFFFF" Then
  fTabela = "#F5F5F5"
    Else
  fTabela = "#FFFFFF"
    End if
  %>  
  <tr> 
    <td height="19" class="inferior" bgcolor=<%=fTabela%>> 
      <p align="center"><font color="#000066"><font size="1" face="Tahoma"><a href="Detalhes.asp?Id=<%=Rs("Au_ID")%>" target="_blank"><%=Rs("Au_ID")%></a></font></font></p></td>
  </tr>
      <%
      Rs.MoveNext
  Wend
    %>
</table>
</body>
</html>
<%
    Rs.Close
    Set Rs = Nothing
    Conn.Close
    Set Conn = Nothing
%>
Detalhes.asp
<%    
    rId = CInt(Request.QueryString("Id"))
    Set dConn = Server.CreateObject("adodb.connection")
    Set dRs = Server.CreateObject("adodb.recordset")
    cBanco = Server.MapPath("Biblio2000.mdb")
    dString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source  = "& cBanco &";"
    dConn.Open(dString)
    dConsulta="SELECT * FROM Authors WHERE Au_ID ="& rID &";"
    Set dRs = dConn.Execute(dConsulta)
  Response.Write("Código: " & rId & "<br>")
  Response.Write("Autor: " & dRs("Author") & "<br>")
  Response.Write("Ano: " & dRs("Year Born") & "<br>")
    dRs.Close
    Set dRs = Nothing
    dConn.Close
    Set dConn = Nothing
%>

Veja se pode lhe ajudar!!!

Abraços!!

obs: tem até download!!!

Link para o comentário
Compartilhar em outros sites
  • 0
tiago bonfá

tiago bonfá

Postado
Postado

Vou te dar um exemplo:

Você tem que faze o loop do seu banco de dados antes, ou seja, aqui. Não esqueça de declarar a variavel registros=0.

registros=0

do until rstOBJETO.eof

<script>

// muda a cor da tabela a cada linha

var cor=true;

document.write("<tr"+((<%=registros%>%2==0)?" bgcolor=white":" bgcolor=#f5f5f5")+">");

</script>

No final... você vai colocar

rscOBJETO.movenext

registros=registros+1

loop

ok???

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.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...