Impaginazione record

[arl.ste]

Spiacente ma ho cancellato il file con l'errore da supido! Ecco il codice:


<%
dim strCode
strCode="innovatel"
dim intVolta
intVolta="0"
%>

<%
sql = "SELECT * FROM dati"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3,3

Dim record_totali
record_totali = rs.RecordCount
%>
<table border="0" width="100%" cellspacing="1" cellpadding="3" id="table2">
<tr>
<td bgcolor="#40576F" bordercolor="#40576F" colspan="4" height="30">
<font size="2" face="Verdana" color="#FFFFFF">Record: <% response.write record_totali %> </font>
<input type="button" value="AGGIUNGI RECORD" name="aggiungi_record" style="font-family: Verdana; font-size: 10px; border: 1px solid #000000; background-image: url('images/buttonXP.gif')" onclick='location.href="aggiungi.asp";'></td>
</tr>
<tr>
<td bgcolor="#70879F" bordercolor="#40576F" width="8%" height="28">
<p align="center"><font size="2" face="Verdana" color="#FFFFFF">
Azioni</font></td>
<td bgcolor="#70879F" bordercolor="#40576F" width="29%" height="28">
<p align="center">
<font size="2" face="Verdana" color="#FFFFFF">Cognome</font></td>
<td bgcolor="#70879F" bordercolor="#40576F" width="30%" height="28">
<p align="center">
<font size="2" face="Verdana" color="#FFFFFF">Nome</font></td>
<td bgcolor="#70879F" bordercolor="#40576F" width="31%" height="28">
<p align="center"><font size="2" color="#FFFFFF" face="Verdana">
Indirizzo</font></td>
</tr>
<%
do while not(rs.eof)
if intVolta="1" then
intVolta="0"
intTesto="#FFFFFF"
intSfondo="#C0C0C0"
else
intVolta="1"
intTesto="#FFFFFF"
intSfondo="#EDEDED"
end if
%>
<tr bgcolor="<%=intSfondo%>">
<td bordercolor="#40576F" width="8%">
<p align="center">
<a href="modifica.asp?ID=<%=rs(0)%>">
[img]images/edita.gif[/img]</a>
<a href="cancella.asp?ID=<%=rs(0)%>" onClick="return elimina();">
[img]images/elimina.gif[/img]</a></td>
<font face="Verdana" size="2">
<td bordercolor="#40576F" width="29%"><font size="2"><p align="center"><%=rs(1)%></p></font></td>
<td bordercolor="#40576F" width="30%"><font size="2"><p align="center"><%=rs(2)%></p></font></td>
<td bordercolor="#40576F" width="31%"><font size="2"><p align="center"><%=rs(3)%></p></font></td>
</tr>
</font>
<%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</table>

[santino83_11_04]

e questo codice darebbe errore di loop? e a che riga?