<%
if Request("submit") <> "" then
Dim objCDO
Set objCDO = Server.CreateObject("CDO.Message")
Dim objCDOConf
Set objCDOConf = Server.CreateObject("CDO.Configuration")
With objCDOConf.Fields
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "mail-fwd"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
.Update
End With
Set objCDO.Configuration = objCDOConf
' Be sure to use a valid email addresses below:
objCDO.From = "estatekingdom@aol.com"
objCDO.To = "estatekingdom@aol.com"
objCDO.Subject = "FormMail from " & Request.ServerVariables("URL")
objCDO.TextBody = "FormMail from " & Request.ServerVariables("URL")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "Name: "
objCDO.TextBody = objCDO.TextBody & Request("Name")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "Company Name: "
objCDO.TextBody = objCDO.TextBody & Request("Company Name")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "Phone: "
objCDO.TextBody = objCDO.TextBody & Request("Phone")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "Email: "
objCDO.TextBody = objCDO.TextBody & Request("Email")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "regarding: "
objCDO.TextBody = objCDO.TextBody & Request("regarding")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "ref: "
objCDO.TextBody = objCDO.TextBody & Request("ref")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "comment: "
objCDO.TextBody = objCDO.TextBody & Request("comment")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.Send
'Clean-up
Set objCDO = Nothing
Set objCDOConf = Nothing
' Happy response. If you would rather,
' change the following to
' Response.Redirect "thanks.html" or similar
Response.Redirect("thankyou.asp")
Response.End
end if
%>
Contact Us
Contact Us
If you have any questions regarding our product or service, you can contact us by phone or by filling out this form and we'll get back to you as soon as possible. Hope to hear from you soon.
