se usi for each il codice diventa:
codice:
for each x in rs1.Fields
    Execute(x.name&"=x.value")'x contiene già l'oggetto field
    response.write(ditta) ''per vedere se funziona
next
E' possibile usare questo sistema anche per leggere in blocco tutti i dati post (o get)
codice:
For Each Item In Request.Form
    strTemp = Item & "= Request.Form(""" & Item & """)"
    Execute(strTemp)
Next
che equivale a scivere:
nome=Request.Form("nome")
cognome=Request.Form("cognome")
sesso=Request.Form("sesso")
ecc.