<%
If Request.Form("submit") <> "" Then
Set myMail=CreateObject("CDO.Message")
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "184.14.169.211"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "andreah@mountainbarnbuilders.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Aa12121212"
myMail.Configuration.Fields.Update
'XXXXXXXXXXXXXXXXXXXXXXXXX DO NOT CHANGE ANYTHING ABOVE THIS LINE XXXXXXXXXXXXXXXXXXXXXXXXX
myMail.Subject= "Contact From Website" 'THIS IS THE SUBJECT OF THE E-MAIL
myMail.To="andreah@mountainbarnbuilders.com" 'THIS IS THE E-MAIL ADDRESS THE E-MAIL WILL BE DELIVERED TO
myMail.From=Request.Form("email")
myMail.HTMLBody="Name: " & Request.Form("name") & "
Email: " & Request.Form("email") & "
Phone: " & Request.Form("phone") & "
Message: " & Request.Form("message") & "" 'USE SAME FORMAT TO ADD FIELDS
myMail.Send
set myMail=nothing
Response.Redirect("thankyou.html") 'CHANGE URL TO A LANDING PAGE OF YOUR CHOICE.
End If
%>
Contact