recordcount e ciclo

[jet]

Ricavo sia i nomefile che la variabile i del ciclo, ma si raddoppiano!

<%
Dim recordset, connection
 Dim tot, sSQL, sConnString

Dim sql = "SELECT * FROM gallery WHERE ID2 = " & Request("ID") & ""


Connection=Server.CreateObject("ADODB.Connection")
Recordset=Server.CreateObject("ADODB.Recordset")

sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & _ 
           Server.MapPath("/mdb-database/my-db.mdb")   

Connection.Open(sConnString)

Recordset.Open (sql,connection,3,3)

response.write (sql)
' visualizza il contenuto del recordset

If Not Recordset.EOF then
   Recordset.MoveFirst()


DO WHILE not Recordset.eof	  

Dim nomefile = Recordset("nomefile").Value()
tot=Recordset.recordcount

Dim i
For i = 1 To (tot)
%>
         <input type="text" name="nomefile<%=i%>" value="<%=nomefile%>" class="casella_hidden" readonly size="20"/>
<%
Next
  Recordset.MoveNext()

LOOP

End if

Recordset.Close
 Recordset=Nothing
 Connection.Close
 Connection=Nothing
%>