codice:
  Dim oRS, oConn, strSQL, adoCmd

 Set oRS = Server.CreateObject("ADODB.Recordset")
 Set oConn = Server.CreateObject("ADODB.Connection")
 set adoCmd = Server.CreateObject("ADODB.Command")


 oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/users.mdb")
 oConn.Open

 oRS.Open "SELECT * FROM Users", oConn, 2, 3
 oRS.Find "Email = '" & UCase(Request.QueryString("varRegEmail")) & "'"
 
 If oRS.EOF Then
	strSQL = "INSERT INTO Clienti (Nome, Cognome)"
        strSQL = strSQL & " values " & "('Raffael', 'Besty')"
	adoCmd.CommandText = strSQL
    adoCmd.CommandType = adCmdText
    adoCmd.ActiveConnection = adoConn
    ' Execute the SQL on the Command object
    adoCmd.Execute

	'creo il cookie
	if(NOT Request.Cookies("Ku").HasKeys)then
		Response.Cookies("Ku")("Nome") = Request.QueryString("varRegNome")
		Response.Cookies("Ku").Expires = Date() + 256	
	end if

 	Response.Write "varEsitoRegUser=REGISTRAZIONE+COMPLETATA"
	
 Else
	Response.Write "varEsitoRegUser=EMAIL+ESISTENTE+RIPROVA"
 End If
 
 
 
 oRS.Close
 Set adoCmd = Nothing
 Set oRS = Nothing
 oConn.Close
 Set oConn = Nothing