<% 'WRITTEN BY BOB MCKAY, FRESHMANGO.COM - USE AS YOU WISH BUT PLEASE LEAVE THIS IN CODE IF request("verificationCode") <> "" AND request("verificationCode") = session("verificationCode") THEN ' IMPOSTAZIONE BASE, SMTP SENZA AUTENTICAZIONE strHost = "smtp.aruba.it" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.From = Request("email") ' From address Mail.FromName = Request("email") ' optional Mail.AddAddress "enricofurlan@gmail.com" 'Request("To") ' message subject Mail.Subject = Request("sposisenzapose.com: richiesta informazioni") ' message body Mail.Body = Request("testo") strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If Response.Write("

Thank you

") Response.Write("

Thank you. Your message has been sent.

") session("verificationCode") = "" ELSE %> sposisenzapose - contact informations - email and phone number

sposisenzapose: informazioni sui contatti - telefono - email

see this page in italian

contact us

contact us with the form below!

Your message will be read immediately, if you provide an address (email) we will contact you as soon as possible.

call us

you can call 800.xxx.xxx (* free from italy) to receive immediate help and informations.

<% If strErr <> "" Then %> Errore: <% = strErr %> <% End If %> <% If bSuccess Then %> Inviata correttamente a <% = Request("To") %>. <% End If %>
web form to send sposisenzapose an email
Name:
E-mail:
Control
Verify Code<%IF request("verificationCode") <> session("verificationCode") THEN Response.Write("Attenzione codice errato")%>





<% End If %>