* * * We experienced technical difficulties on this contact page during the month of May and June. * * * * * * We apologize for any inconvenience.* * *
|
<%
Set objMail = Server.CreateObject("SMTPsvg.Mailer")
objMail.FromName = Request.Form("FULLNAME")
objMail.FromAddress = Request.Form("EMAIL")
objMail.AddRecipient "Shiitake-Ya","sales@shiitakeya.com"
objMail.RemoteHost = "mail.webpg.net"
objMail.Subject = "A Comment From Your Shiitake-Ya Customer"
strMsgInfo = strMsgInfo &"==================== Comments =====================" & vbCrLf
strMsgInfo = strMsgInfo & "Name: " & Request.Form("FULLNAME") & vbCrLf
strMsgInfo = strMsgInfo & "Zipcode: " & Request.Form("zipcode") & vbCrLf
strMsgInfo = strMsgInfo & vbCrLf
strMsgInfo = strMsgInfo & Request.Form("Customer_wrote") & vbCrLf
strMsgInfo = strMsgInfo & vbCrLf
strMsgInfo = strMsgInfo &"==================================================="
objMail.BodyText = strMsgInfo
If objMail.SendMail Then
Set objMail = Nothing
Response.Redirect "http://www.shiitakeya.com/thankyou.asp"
End if
%>
Upon a successful submition, it will automatically jump to our Thank-you page.