If you have any questions
or comments, please use the form below to
provide us with your information and someone
will respond to you as soon as possible.
Thank you.
<%
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 = "email@ascensionlutheran.org"
objCDO.To = "email@ascensionlutheran.org"
objCDO.Subject = "Email generated by visitor through Ascension Contact us page. "
objCDO.TextBody = "Email generated by visitor through Ascension Contact us page. "
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 & "Address 1: "
objCDO.TextBody = objCDO.TextBody & Request("Address 1")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "City / State / Zip: "
objCDO.TextBody = objCDO.TextBody & Request("City / State / Zip")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "Country: "
objCDO.TextBody = objCDO.TextBody & Request("Country")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "Telephone: "
objCDO.TextBody = objCDO.TextBody & Request("Telephone")
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 & "Subject: "
objCDO.TextBody = objCDO.TextBody & Request("Subject")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "Message: "
objCDO.TextBody = objCDO.TextBody & Request("Message")
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 "../index.html"
Response.End
end if
%>
Directions Ascension Lutheran Church
33 Bayshore Road Deer Park New York 11729
Office: (631) 667-4188 Fax: (631) 586-2616
