 |
|
|
<% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") %>
<%
strMsgHeader = "Form information follows" & vbCrLf
for each qryItem in Request.Form
strMsgInfo = qryItem & " - " & Request.Form(qryItem) & vbCrLf & strMsgInfo
next
strMsgFooter = vbCrLf & "End of form information"
Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter
%>
<%
Mailer.FromName = "E-Mail to the Hole"
Mailer.FromAddress= "jake@gorge.net"
Mailer.RemoteHost = "serv.gorge.net"
Mailer.Recipient = "jake@gorge.net"
'Mailer.Recipient = "dan@gorge.net"
Mailer.Subject = "estimate"
if Mailer.SendMail then
Response.Write "Thankyou "
else
Response.Write "Sorry, that did not work. Please GO BACK and try again. "
end if
%>
<% = Request("Name") %>, the form has been sent to Boeger Communications. Assuming contact information has been provided we will respond soon with your free estimate. Thanks again for stopping by and we appreciate your business.
home
|
