<%
'Don't edit this.
Option Explicit
'Declare a variable for the Mail object. Don't edit this.
Dim objMail
'One that will store the text of the email message. Don't edit this.
Dim TheMessage
'Check if the form has been submitted. Don't edit this.
If Not IsEmpty(Request.Form("ContactUsEmail")) Then
'If it is, create the text of the email message. You can edit this - this is where you can add your additional fields.
TheMessage = "From: " & Request.Form("Name") & chr(13) & "Email: " & Request.Form("EmailAddress") & chr(13) & "Telephone: " & Request.Form("Telephone") & chr(13) & "Comments: " & Request.Form("Comments")
'Then instantiate the Mail object. Don't edit this.
Set objMail = CreateObject("CDONTS.NewMail")
'Then sends the email.
objMail.Send Request.Form("EmailAddress"), "info@4windsgroup.com", _
"4 Winds Group Contact Us Form Result", cstr(TheMessage)
'Before releasing the resources of the object. Don't edit this.
Set objMail = Nothing
'Then the user is sent to the Contact Us thank you page. You don't need to edit. You just have to create a contactusthanks.htm page.
Response.Redirect "contactusthanks.htm"
End If
%>
4 Winds Group Contact Us
