incrementare un numero

[slay]

ciao ho questo problema:

<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM tabella where visualizza=true ORDER BY id DESC"
rs.open sql, objConn, 3, 3
do until rs.eof 


Response.Write("&nomesito_1="&(rs("titolo"))&"&")%>


<%
rs.movenext 
loop 
rs.close 
set rs=nothing %> 

vorrei poter mettere al posto di "_1" un numero che si incrementa in automatico ad ogni passaggio quindi risulterà nomesito_1 nomesito_2 ecc.. qualcuno mi potrebbe aiutare?

[99eros9]

<%
Dim i
i = 1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM tabella where visualizza=true ORDER BY id DESC"
rs.open sql, objConn, 3, 3
do until rs.eof


Response.Write("&nomesito_="& i & (rs("titolo"))&"&")%>


<%
rs.movenext
i = i +1
loop
rs.close
set rs=nothing %>

[slay]

perfetto grazie!!