<%
If Action = "SendEmail" Then
' Here we quickly check/validate the information entered
' These checks could easily be improved to look for more things
If IsValidEmail(ContactUs_Email) = "False" Then
IsError = "Yes"
Response.Write("You did not enter a valid email address.
")
End If
End If
' If there were no input errors and the action of the form is "SendEMail" we send the email off
If Action = "SendEmail" And IsError <> "Yes" Then
Dim strBody
' Here we create a nice looking html body for the email
strBody = ContactUs_FirstName + " " + ContactUs_LastName + " has requested a quote." + _
"
Their contact information is as follows:
" + _
"Client First Name: " + ContactUs_FirstName + "
" + _
"Client Last Name: " + ContactUs_LastName + "
" + _
"Client E-Mail Address: " + ContactUs_Email + "
" + _
"Client Phone Number: " + ContactUs_PhoneNumber + "
" + _
"Best Time to Call: " + ContactUs_BestTime + "
" + _
"Fax: " + ContactUs_FaxNumber + "
" + _
"Current Address: " + ContactUs_CurrentAdd1 + "
" + _
"Current Town, City & ZipCode: " + ContactUs_CurrentAdd2 + "
" + _
"Property Address: " + ContactUs_PropertyAdd1 + "
" + _
"Property Town, City & ZipCode: " + ContactUs_PropertyAdd2 + "
" + _
"Insurance Needs:
" + sNeeds + "
" + _
"Client's Comments: " + "
" + ContactUs_Comments + "
DO NOT REPLY TO THIS MESSAGE TO CONTACT THE CLIENT."
'strBody = strBody & "Contact Us Form submitted at " & Now() & vbCrLf & "
"
'strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "
"
'strBody = strBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "
"
'strBody = strBody & "Name" & " : " & " " & Replace(ContactUs_Name,vbCr,"
") & "
"
'strBody = strBody & "Email" & " : " & " " & Replace(ContactUs_Email,vbCr,"
") & "
"
'strBody = strBody & "Subject" & " : " & " " & Replace(ContactUs_Subject,vbCr,"
") & "
"
'strBody = strBody & "
" & Replace(ContactUs_Body,vbCr,"
") & "
"
'strBody = strBody & ""
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 'Use SSL for the connection
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword
ObjSendMail.Configuration.Fields.Update
'End remote SMTP server configuration section==
'ObjSendMail.To = youremail
ObjSendMail.To = "jeffcashman@ctinsurancegroup.com"
ObjSendMail.Subject = ContactUs_Subject
ObjSendMail.From = ContactUs_Email
' we are sending a html email.. simply switch the comments around to send a text email instead
ObjSendMail.HTMLBody = strBody
'ObjSendMail.TextBody = strBody
ObjSendMail.Send
Set ObjSendMail = Nothing
' change the success messages below to say or do whatever you like
' you could do a response.redirect or offer a hyperlink somewhere.. etc etc
%>
Your request for a quote has been sent. Thank You !!
<% Else %>
