<%
'If the form has been submitted execute the following code
Else
'receive the form values
Dim sName, sPhone, sEmail, sFeedback, sHow
sName=Request.Form("txtName")
sPhone=Request.Form("txtPhone")
sEmail=Request.Form("txtEmail")
sFeedback=Request.Form("txtFeedback")
sHow=Request.Form("txtHow")
' create the HTML formatted email text
Dim sEmailText
sEmailText = sEmailText & ""
sEmailText = sEmailText & ""
sEmailText = sEmailText & "Paco Jaanson Enquiry"
sEmailText = sEmailText & ""
sEmailText = sEmailText & ""
sEmailText = sEmailText & "Feedback message from: " & sName & "
"
sEmailText = sEmailText & "Phone: " & sPhone & "
"
sEmailText = sEmailText & "Comments: " & sFeedback & "
"
sEmailText = sEmailText & "How did you find out about Paco Jaanson: " & sHow & "
"
sEmailText = sEmailText & "Date & Time: " & Now() & "
"
sEmailText = sEmailText & "IP : " & Request.ServerVariables("REMOTE_ADDR")
sEmailText = sEmailText & ""
sEmailText = sEmailText & ""
'create the mail object
Set NewMailObj=Server.CreateObject("CDONTS.NewMail")
NewMailObj.From=sEmail 'This is the email of the feedback sender
NewMailObj.To = "info@pacojaanson.com.au" 'change to your address
NewMailObj.Subject = "Paco Jaanson Feedback"
NewMailObj.Body = sEmailText
'you need to add these 2 lines for the mail to be sent in HTML format
'remove them and the email will be sent in Text format
NewMailObj.BodyFormat = 0
NewMailObj.MailFormat = 0
NewMailObj.Send
Set NewMailObj=Nothing
Response.write "Thank you for your feedback.
"
End If
%>
|