Come non detto
Ho risolto così:
artSQL = "SELECT * FROM utenti WHERE 1=0"
Set RSArt = Server.CreateObject("ADODB.Recordset")
RSArt.Open artSQL, session("conn"), 2, 2
RSArt.AddNew
RSArt("nome") = nome
RSArt("cognome") = cognome
RSArt("via") = via
RSArt("cap") = cap
RSArt("citta") = citta
RSArt("prov") = prov
RSArt("nazione") = nazione
RSArt("tel") = tel
RSArt("cell") = cell
RSArt("mail") = mail
RSArt("sito") = sito
RSArt("catNews") = cat
RSArt.Update
id = RSArt("id_user")
RSArt.Close
Set RSArt = Nothing