Colore tabelle alternato

[JacK^79]

Salve ho già cercato risposta nei passati thread, ma nn ho risolto.
Io impagino in una semplice tabella i dati di un database.
Vorrei che in automatico mi si colorino le righe alternandosi su due colori stabiliti.

Mi servirebbe con urgenza spero mi aiuterete

Grazie :sexpulp:

[Shagrat]

posta il codice che crea la tabella

[albis]

devi fare una cosa del tipo



<%


'mostra le discussioni
dim strColore
dim blnAlterna
blnAlterna=true
strColore = "yellow"

do while not rs_01.eof %>

<tr bgcolor="<%=strColore%>">
<td ><%=(rs_01.Fields.Item("NomeCampo").Value)%>"> </td>
<td ><%=(rs_01.Fields.Item("NomeCampo").Value)%>"> </td>
</tr>
<%
if blnAlterna=true then
strColore = "Red"
blnAlterna=false
else
strColore = "yellow"
blnAlterna=true
end if
rs_01.movenext
loop%>

[JacK^79]

Se io scrivo questi dati:

'connessione database

      response.write("<td width='400'>")
      response.write(rs("campo1"))
      response.write("</td><td width='100'>")
      response.write(rs("campo2"))
      response.write("</td><td width='50' align='right'>€")
      response.write(rs("campo3"))
      response.write("</td>")
      response.write("</tr>")

'chiudo

potresti farmi il grande piacere di settarmi il codice che hai postato inserendolo nella mia tabella?

Grazie :sexpulp:

[JacK^79]

UPup

[sopadj1]

se usi js puoi adattarti questo codice:

<%@LANGUAGE = JScript%>
<%
  var Cn = new ActiveXObject("ADODB.Connection");
  Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("database.mdb"));

  var Mostra = Cn.Execute("SELECT * FROM tabella");
%>
<table width="100%" border="1">
<%
  var i = 0;
  while (!Mostra.EOF) {
    if (i%2 == 0) {
%>
  <tr>
    <td bgcolor="#FFFFFF"><%=Mostra("dato")%></td>
  </tr>
<%  }else{ %>
  <tr>
    <td bgcolor="#CCCCCC"><%=Mostra("dato")%></td>
  </tr>
<% 
    }
    i++;
    Mostra.MoveNext();
  }
%>
</table>

<%Cn.Close()%>

se invece usi vbscript...

<%
Colore = 0
Do While Not rs.EOF


if Colore Mod 2 = 0 Then
strColore = "#FFFFFF" '<-- qua metti il colore che vuoi

Else
strColore = "#000000" '<-- qua metti il colore che vuoi
End if
%>

<table width="95%" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="<%= strColore %>"> </td>
</tr>
<%
Colore = Colore + 1

Loop %>
</table>

[JacK^79]

Ho provato ad applicare l'ultimo codice postato, ma nn funziona. Conta che nella tabella ho una lettura con i response.write di alcuni dati.

Come risolvere. C'è un determinato punto dove va postato questo codice?

Grazie :sexpulp:

[sopadj1]

allora:
1) che errore ti da?
2) al posto di response.write puoi fare cosi:
esempio:
se rs e' il tuo recordset

<%=rs("nome campo")%>

3)

<%
Colore = 0
Do While Not rs.EOF


if Colore Mod 2 = 0 Then
strColore = "#FFFFFF" '<-- qua metti il colore che vuoi

Else
strColore = "#000000" '<-- qua metti il colore che vuoi
End if
%>

<table width="95%" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="<%= strColore %>">qui inserisci il contenuto ad esempio<%=rs("nomecampodavisualizzare")%>  </td>
</tr>
<%
Colore = Colore + 1

Loop %>
</table>

[JacK^79]

Si capisco, ma è valida questa soluzione anche se devo fare un elenco automatico dei dati di una tabella?

Grazie :sexpulp:

[JacK^79]

Qualcuno può aiutarmi su quest'ultima domanda?

Grazie :sexpulp: