stampare numero progressivo record

[84morena]

salve ragazzi volevo chiedervi un semplice aiuto...siccome conosco ben poco asp...vorrei stampare il numero progressivo dei record di una tabella....non l'id
mi spiego meglio:
es

1 record1
2 record2
3 record3
4 record4
.. .....

<TR>
<td><span class="Stile1">Numero</span></td>
<td><span class="Stile1">Ente</span></td>
<td><span class="Stile1">Mail</span></td>
<td><span class="Stile1">Iscritto il</span></td>
</TR>
<%
        
         sConnect= session("STRCONNECT")         
         dim conn
         dim cmd
         set conn = Server.CreateObject ("ADODB.Connection")
         call conn.Open (sConnect,"admin","")
                 set cmd2 = Server.CreateObject ("ADODB.Command")
         cmd2.ActiveConnection = conn 
                 dim TClienti
          set TClienti    = Server.CreateObject ("ADODB.Recordset") 
            dim citta 
            set citta = request.form("Citta")
            'response.write(citta)
            Dim nome
            nome = Request.QueryString("Citta")
            'response.write(nome)

            'cmd2.CommandText = "SELECT Count (ID) AS numero FROM IscrittiEvento WHERE Citta ='" & nome & "' "
            cmd2.CommandText = "SELECT * FROM IscrittiEvento WHERE Citta ='" & nome & "' "
            TClienti.Open cmd2,,1,3     
%>        
<%            
Do While Not TClienti.EOF 
%>

<TR class="Stile2">    
    <TD>
     <%=TClienti("Societa")%>
     </TD>
     <TD>
     <%=TClienti("Mail")%>
     </TD>
     <TD>
     <%=TClienti("Data/Ora")%>
     </TD>
</TR>     
<%
    
    TClienti.Movenext
    Loop 
        if TClienti.State<>0 then
            TClienti.close
        end if       
%>