Errore in una istruzione

[Nightmare-1]

Allora, dovrei cambiare il valore di circa 500 record da vuoto a 7. Visto che facendo a mano ci metto ore, lo vorrei fare in asp e ho per l'occasione questo codice:

<% 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mapPath("database.mdb")
 
set rsFile = Server.CreateObject("ADODB.Recordset") 
rsFile.open "select * from stArchivio order by id_archivio", Conn, 1, 3
if Not rsFile.EOF then

set rs = Server.CreateObject("ADODB.Recordset") 
Sql = "SELECT * FROM stArchivio order by id_archivio"
rs.Open Sql, Conn, 3, 3
   rs("id_sezione")=7
rs.update

rsFile.MoveNext 
end if  
Response.write "Finito!!!"

Conn.Close
set Conn = nothing
%>

con il quale PRIMA estraggo i dati dalla tabella, poi con la seconda query cambio i valori. Domanda: perchè non va cosa ho sbagliato? :maLOL:

[maximum]

Io lo cambierei così:

<% 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mapPath("database.mdb")
 
set rsFile = Server.CreateObject("ADODB.Recordset") 
rsFile.open "select * from stArchivio order by id_archivio", Conn, 1, 3
if Not rsFile.EOF then

   do while not rsFile.eof
      sql = " UPDATE stArchivio set id_sezione = " & 7 & _
            " WHERE id_archivio = " & rs("id_archivio") 
      objConn.execute(sql)

      rsFile.MoveNext 
   loop 

end if  

Response.write "Finito!!!"

Conn.Close
set Conn = nothing
%>

Dimmi come va?

[Nightmare-1]

Eccomi qui, scusa se non ti ho risposto prima ma ieri sono andato a nanna ed oggi ho avuto una giornata intensa in facoltà. Il tuo codice funziona! Grazie mille! Ho fatto piccoli cambiamenti (c'erano un paio di errori stupidi come un rs non dichiarato) e funziona alla grande. Nel mio non avevo messo un do while, che scemo :rollo: . Grazie comunque sei stato molto gentile, ciao