loop e routine

[jet]

Dim sql = "SELECT ID2,nomefile,Count(ID2) As tot FROM sale11 WHERE ID2 = " & Request("ID") & ""
Dim rs = conn.execute(sql)
'response.write (sql)
' visualizza il contenuto del recordset

If Not rs.EOF then
   rs.MoveFirst()

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

LOOP

End if

rs.Close()
rs = nothing

' chiudi la connessione al database
conn.Close()
conn = nothing

stampa i regolarmente, ma il nomefile è sempre il primo record! Dovrei invece stampare altri nomefile in quanto nello stesso ID ho più nomefile.

[optime]

metti tutte le dim all'inizio, e nel corpo lascia solo le assegnazioni

es

Dim nomefile ' all'inizio
....
nomefile = rs("nomefile").Value() ' nel ciclo do...loop

[jet]

Più tardi proverò, grazie!

[jet]

Niente, come prima, ma ho capito; il count funge, ma non insieme al recupero di tutti i records;
devo prima fare una select count e dentro un'altra select per i nomefile.
Provo.

[jet]

Dim sql = "SELECT nomefile FROM sale11 WHERE ID2 = " & Request("ID") & ""
Dim rs = conn.execute(sql)
'response.write (sql)
' visualizza il contenuto del recordset

If Not rs.EOF then
   rs.MoveFirst()

Dim nomefile

Dim sql1 = "SELECT Count(ID2) As tot FROM sale11 WHERE ID2 = " & Request("ID") & ""
Dim rs1 = conn.execute(sql1)
'response.write (sql1)
' visualizza il contenuto del recordset

If Not rs1.EOF then
   rs1.MoveFirst()

Dim tot
tot = rs1("tot").Value()

Dim i

DO WHILE not rs.eof	  
For i = 1 To (tot)
nomefile = rs("nomefile").Value()
%>
         <input type="text" name="nomefile<%=i%>" value="<%=nomefile%>" class="casella_hidden" readonly size="20"/>
<%
  rs.MoveNext()
Next
LOOP

End if

rs1.Close()
rs1 = nothing

End if

rs.Close()
rs = nothing

' chiudi la connessione al database
conn.Close()
conn = nothing

Risolto!