|
|
<%
'Process E-mail
Dim strBody, objMail
Dim strContact, strEmail, strName, strCompany, strPhone, strComment, strRedirect
strContact = Request.Form("Name")
strEmail = Request.Form("Email")
strName = Request.Form("Name")
strCompany = Request.Form("Company")
strPhone = Request.Form("Phone")
strComment = Request.Form("Comment")
strRedirect = "contact2.htm"
if len(strContact) > 0 then
SET objMail = Server.CreateObject("CDONTS.Newmail")
'From
objMail.From = "Your Website"
'Reply To
objMail.Value("Reply-To") = strEmail
'To
objMail.To = "ericravery@yahoo.com;BDamman@aol.com"
'Subject
objMail.Subject = "Greendalescrewproducts.com Online Request"
'Body
strBody = strBody & vbcrlf & "You have received a request from your website." & vbcrlf
strBody = strBody & "The following was submitted:" & vbcrlf & vbcrlf
strBody = strBody & "Name: " & strName & vbcrlf
strBody = strBody & "Company: " & strCompany & vbcrlf
strBody = strBody & "Contact Phone: " & strPhone & vbcrlf
strBody = strBody & "Contact Email: " & strEmail & vbcrlf
strBody = strBody & vbcrlf & "Comment: " & strComment
objMail.Body = strBody
'Send
objMail.Send()
'Release Object
SET objMail = Nothing
Response.Write "
Thanks:"
Response.Write "Thank you for your submission! "
Response.Write "We will contact you as soon as possible. "
else
%>
More Information:
Please fill out this form to receive additional information about Greendale. We will contact you as soon as possible
<%end if%>
|
|
