Enumerar registros mostrados

[Uefor]

Hola de nuevo con mis dudas por aquí...

Tengo un formulario donde muestro unos registros que necesito enumerar, la cantidad de registros mostrados varía en función de IdSalidas por lo que necesito enumerarlos correlativamente (1º, 2º, 3º etc...)

Supongo que habrá alguna manera ¿no?

Código:

<%  
	 Dim RS_buzos, SQL_buzos 
     	     
SQL_buzos=" SELECT TOP 15 buzos_incl.*, Socios.*"
SQL_buzos=SQL_buzos&" FROM buzos_incl INNER JOIN Socios" 
SQL_buzos=SQL_buzos&" ON buzos_incl.Socio=Socios.socio "
SQL_buzos=SQL_buzos&" WHERE IdSalidas="&IdSalidas&""
SQL_buzos=SQL_buzos&" ORDER BY Id ASC"

		set RS_buzos=createobject("ADODB.Recordset")
        RS_buzos.open SQL_buzos,conn
        do while not RS_buzos.eof  
%>
  &nbsp;&nbsp;
      <input TYPE="text" CLASS="fc_dateHover" VALUE="<%=RS_buzos("Socio")%>" SIZE="7" READONLY="true">
  &nbsp;&nbsp;
     <input TYPE="text" CLASS="fc_dateHover" VALUE="<%=RS_buzos("Nombre")%>" SIZE="53" READONLY="true">
  &nbsp;&nbsp;
     <input TYPE="text" CLASS="fc_dateHover" VALUE="<%=RS_buzos("DNI")%>" SIZE="12" READONLY="true">
  &nbsp;&nbsp;
     <input TYPE="text" CLASS="fc_dateHover" VALUE="<%=RS_buzos("TIT")%>" SIZE="21" READONLY="true">
     <br />
     <%
    RS_buzos.movenext
    loop	
    RS_buzos.close
    set RS_buzos = nothing
%>
           <% end if 
Conn.close()
Set Conn = nothing
%>

[AlZuwaga]

i_buzos = 1
do while not RS_buzos.eof
%>
<p>Buzo número: <% = i_buzos %></p>
<%
i_buzos = i_buzos + 1
RS_buzos.movenext
loop

[Uefor]

Muchas gracias.... se que son chorradas pero recuerdo a una persona que me decía "quien no sabe es como el que no ve" y es muy cierto.

SaLu2