<%@ Language = "VBScript" %>
<%
Select Case Request.Querystring("Action")
Case "Send"
on error resume next
'Set variables
Dim NewURL
Dim BackURL
Dim strAzienda
Dim strReferente
Dim strCitta
Dim strProvicia
Dim strTelefono
Dim strFax
Dim strName
Dim strEmail
Dim strSubject
Dim strMessage
Dim strUserIP
Dim strToEmail
Dim daCdoMail
'Replace this email with your real email id
strToEmail = "info@cierre.net; vendite@cierre.net"
NewURL = "http://www.cierre.net/grazie.asp"
BackURL = Request.ServerVariables("HTTP_REFERER")
strAzienda = Request.form("Azienda")
strReferente = Request.form("Referente")
strCitta = Request.form("Citta")
strProvincia = Request.form("Provincia")
strTelefono = Request.form("Telefono")
strEmail = Request.form("Email")
strFax = Request.form("Fax")
strName = Request.form("Name")
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.Azienda = strAzienda
daCdoMail.Referente = strReferente
daCdoMail.Citta = strCitta
daCdoMail.Provincia = strProvincia
daCdoMail.Telefono = strTelefono
daCdoMail.Fax = strFax
daCdoMail.Subject = strSubject
daCdoMail.Body = "Questa richiesta è stata inviata in data " & Now() & "
Richiesta: " & strMessage & _
"ASP Contact Form Powered by www.cierre.net " & _
"http://www.cierre.net"
'You can change the mail body format setting below
'0 = HTML, 1 = TEXT
daCdoMail.BodyFormat = 0
'You can change the mail format setting below
'0 = HTML, 1 = TEXT
daCdoMail.MailFormat = 0
'Set Server Side Validation to make sure we got both sender and recipient email Id to send email
If strToEmail = "" OR strEmail = "" Then
Session("msg") = "Casella Email vuota. Prego inserirla"
Response.redirect (BackURL)
Else
'Now send email to the address you specified at line no. 16
daCdoMail.Send
End If
'Destroy mail object
Set daCdoMail = Nothing
'Create result text in a Sesion
Session("MsgSent") = "La vostra richiesta di " & strSubject & " è stata correttamente inviata.
Grazie per averci contattato."
'Redirect and show the result
Response.redirect (NewURL)
End Select
%>
ASP Contact Form Version 1 Powered by DigitalArakan
<%If Session("msgSent") = "" Then%>
<%Else%>
Massaggio Inviato
<%=Session("MsgSent")%>
<%
'DO NOT REMOVE THIS LINE
Response.write " " & _
" "
%>