Public function registra()
    Dim vNome as String         =   Trim(correggi(request("vNome")))
    Dim vCognome as String      =   Trim(correggi(request("vCognome")))
    Dim vCitta as String        =   Trim(correggi(request("vCitta")))
    Dim vMail as String         =   Trim(correggi(request("vMail")))
    Dim vJob as String          =   Trim(correggi(request("vJob")))
    Dim vCountry as String      =   Trim(correggi(request("vPaese")))
    Dim vUser as Integer     =    2
    Dim password as Integer     =    3
    Dim sQuery as String
    
    
    sQuery    =   "INSERT INTO logins ("
    sQuery    &=  "Nome, "
    sQuery    &=  "Cognome, "
    sQuery    &=  "Citta, "
    sQuery    &=  "Country, "
    sQuery    &=  "Job, "
    sQuery    &=  "Mail, "
    sQuery    &=  "user, "
    sQuery    &=  "pass "
    sQuery    &=  ") VALUES ("
    sQuery    &=  "'" & vNome & "', "
    sQuery    &=  "'" & vCognome & "', "
    sQuery    &=  "'" & vCitta & "', "
    sQuery    &=  "'" & vCountry & "', "
    sQuery    &=  "'" & vJob & "', "
    sQuery    &=  "'" & vMail & "', "
    sQuery    &=  vUser & ", "
    sQuery    &=  password & ") "
    
    
    
      if vMail="" OR  vNome="" OR vCognome="" OR vMail="" then
        response.write("Mancano dei dati")
        response.end
      else
        Dim myConnection As New OleDbConnection(sConnessione)
        Dim myCommand As New OleDbCommand(sQuery, myConnection)
        myCommand.Connection.Open()
        
        myCommand.ExecuteNonQuery()
        MyConnection.Close()
        inviaMail()
        response.write("Registrato!")
      end if
  End function