ciclo update

[Roby_72]

<% 
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("../db/db.mdb")

Dim tot, id, tab
tot=request.querystring("tot")
tab=request.querystring("tab")
for i = 0 to tot
val=Request.Form("form"&i)
id=Request.Form("id"&i)

SQL="UPDATE " & tab & " set selezione='"& val &"' WHERE id="&id
response.write sql &"
"
'Conn.Execute(SQL)
next
conn.Close
Set conn=Nothing
%>

vediamo cosa stampa.

Roby