%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Select Case Request.Querystring("Action")
Case "Send"
on error resume next
'Set variables
Dim BackURL
Dim strName
Dim strSurname
Dim strFirm
Dim strPhone
Dim strEmail
Dim strSubject
Dim strMessage
Dim strUserIP
Dim strToEmail
Dim daCdoMail
'Replace this email with your real email id
strToEmail = "info@ombrugg.com"
BackURL = Request.ServerVariables("HTTP_REFERER")
strName = Request.form("Name")
strSurname = Request.form("Surname")
strFirm = Request.form("Firm")
strPhone = Request.form("Phone")
strEmail = Request.form("Email")
strSubject = Request.form("Subject")
strMessage = Request.form("Message")
strUserIP = Request.ServerVariables("REMOTE_ADDR")
'Create Mail Object
Set daCdoMail = CreateObject("CDONTS.NewMail")
daCdoMail.To = strToEmail
daCdoMail.From = strEmail
daCdoMail.Subject = strSubject
daCdoMail.Body = "Questo messaggio è stato inviato da: " & strName & " " & strSurname & "
Azienda: " & strFirm & "
Telefono: " & strPhone & "