307 messaggi dal 11 maggio 2006
devo mostrare dei dati in una tabella con righe a sfondo di colore alternato.
qualcuno mi può aiutare?

ciao
2.584 messaggi dal 14 maggio 2001
Di solito faccio così:


nVariabile=1
Do 'ciclo in cui elenco tutte le mie righe
If (nVariabile MOD 2)=0 Then
'primo colore
Else
'secondo colore
End If
nVariabile=nVariabile + 1
Loop
307 messaggi dal 11 maggio 2006
mi posteresti un po di html di esempio?
grazie
2.584 messaggi dal 14 maggio 2001
Intendi così?

nVariabile=1
Do 'ciclo in cui elenco tutte le mie righe
If (nVariabile MOD 2)=0 Then
Response.write "<tr bgcolor=red>"
Else
Response.write "<tr bgcolor=blue>"
End If
...
Response.write "</tr>"
nVariabile=nVariabile + 1
Loop
307 messaggi dal 11 maggio 2006
abbi pazienza... ti posto il mio codice così è meglio:

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("db1.mdb")
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname, Contactname FROM Customers"
rs.Open sql, conn
%><table border="0" width="75%">
<tr>
<%for each x in rs.Fields
response.write("<th align='left'>" & x.name & "</th>")
next%>
</tr>
<%do until rs.EOF%>
<tr>
<%
for each x in rs.Fields
%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
2.584 messaggi dal 14 maggio 2001
Figurati

...
</tr>
<%
nVariabile=1
do until rs.EOF%>
If (nVariabile MOD 2)=0 Then
Response.write "<tr bgcolor=red>"
Else
Response.write "<tr bgcolor=blue>"
End If
<%
for each x in rs.Fields
%>
...
</tr>
<%
nVariabile=nVariabile + 1
loop
307 messaggi dal 11 maggio 2006
ti ringrazio, funziona perfettamente, posto tutto il codice se a qualcuno può essere utile:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("db1.mdb")
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname, Contactname FROM Customers"
rs.Open sql, conn
%><table border="0" width="75%">
<tr>
<%for each x in rs.Fields
response.write("<th align='left'>" & x.name & "</th>")
next%>
</tr>
<%
nVariabile=1
do until rs.EOF
If (nVariabile MOD 2)=0 Then
Response.write "<tr bgcolor=red>"
Else
Response.write "<tr bgcolor=blue>"
End If
%>
<%
for each x in rs.Fields
%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%
nVariabile=nVariabile + 1
loop
rs.close
conn.close
%>
</table>
</body>

ciao

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.