If Request("invia") <> "" Then

If Trim(Request.form("email")) = "" Then

response.write "Non hai digitato il tuo indirizzo email"
response.end

end if

Dim Mail
Set Mail = CreateObject("CDONTS.NewMail")
Mail.From = request.form("email")
Mail.To = Request("email")