Ciao a tutti,ho trovato e lo sto usando, molto interessante uno script x la gestione record.
A me interesserebbe avere anziche i record a colori alternati, i primi 10 di un colore e quelli a partire dall'undicesimo di un altro.
Qualcuno mi aiuta?
Posto il default.asp
<html>
<head>
<title>Velodicoio - Lista partecipanti calciotto</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>
a:link {font-family:verdana; font-size:12px; color:#333399; text-decoration:underline;}
a:visited {font-family:verdana; font-size:12px;color:#550000; text-decoration:underline;}
a:hover {font-family:verdana; font-size:12px;color:#ff0000; text-decoration:underline overline;background-color:#aaaaff;}
a.credit:link {font-family:verdana; font-size:10px; color:#333399; text-decoration:underline;}
a.credit:visited {font-family:verdana; font-size:10px;color:#550000; text-decoration:underline;}
a.credit:hover {font-family:verdana; font-size:10px;color:#ff0000; text-decoration:underline overline;}
body{margin:0px}
p { font: Normal 12px Verdana; }</style>
</head>
<body bgcolor="#FFFFFF">
</p>
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td>
<table width="100%" border="0" cellspacing="1" cellpadding="5">
<tr>
<%if Session("gestionerecordv1.1") then%><td bgcolor="#FFCC33" width="5%"></td><%end if%>
<%if Session("gestionerecordv1.1") then%><td bgcolor="#FFCC33" width="5%"></td><%end if%>
<td bgcolor="#FFCC33" align="center" width="30%"><font face="Verdana" size="2">Nome</font></td>
<td bgcolor="#FFCC33" align="center" width="30%"><font face="Verdana" size="2">Cognome</font></td>
<td bgcolor="#FFCC33" align="center" width="30%">
<font face="Verdana" size="2">Ruolo</font></td>
</tr>
<tr>
<%
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open strDB
Dim Sql
Sql = "SELECT * FROM Dati ORDER BY ID ASC"
Set rs = CreateObject("ADODB.Recordset")
rs.Open Sql, strDB, 3, 3
Dim record_totali
record_totali = rs.RecordCount
rs.pagesize=20
rs.absolutePage=1
for i=1 to 20
if not rs.eof then
%>
<%if Session("gestionerecordv1.1") then%><td bgcolor="#FFCC33" width="5%" align="center">">[img]modifica.gif[/img]</td><%end if%>
<%if Session("gestionerecordv1.1") then%><td bgcolor="#FFCC33" width="5%" align="center">">[img]cancella.gif[/img]</td><%end if%>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><%=Server.HTMLEncode(rs("Nome"))%></font></td>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><%=Server.HTMLEncode(rs("Cognome"))%></font></td>
<td bgcolor="#FFCC33" width="30%"><font face="Verdana" size="2"><%=Server.HTMLEncode(rs("Ruolo"))%></font></td>
</tr>
<%
rs.MoveNext
end if
next
rs.close
%> <tr>
<%if Session("gestionerecordv1.1") <> true then%><td bgcolor="#FFCC33" colspan="2" width="70%">Aggiungi Dati</td><%end if %>
<%if Session("gestionerecordv1.1") <> true then%><td bgcolor="#FFCC33" width="30%" align="right">
</td><%end if %>
<%if Session("gestionerecordv1.1") then%><td bgcolor="#FFCC33" colspan="4" width="70%">Aggiungi Dati</td><%end if %>
<%if Session("gestionerecordv1.1") then%><td bgcolor="#FFCC33" width="30%" align="right">
</td><%end if %>
</tr>
</table>
</td>
</tr>
</table>
<div align="center"></div>
</body>
</html>
Rispondi quotando
