<%@ Language=VBScript %> <% Option Explicit %> <% Response.Buffer=True %> <% Dim RecSet Set RecSet = Server.CreateObject("ADODB.RecordSet") RecSet.Open "AnagraficaStudenti", Conn, , adLockOptimistic, adCmdTable RecSet.AddNew RecSet("Cognome") = Request.Form("Cognome") RecSet("Nome") = Request.Form("Nome") RecSet("Indirizzo") = Request.Form("Indirizzo") RecSet("CAP") = Request.Form("Cap") RecSet("Città") = Request.Form("Citta”) RecSet.Update RecSet.Close Conn.Close Set RecSet = Nothing Set Conn = Nothing %> Registrazione avvenuta!