<%@LANGUAGE="VBSCRIPT"%>
<%
if ((Request.ServerVariables("Request_Method") = "POST") AND (inStr(Unescape(cStr(Request.ServerVariables("HTTP_REFERER"))),Unescape(Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("SCRIPT_NAME"))) > 0)) then
Dim myMail, myBody
myBody = "You have received a new info request form via your corporate web site. The information received is as follows:" & vbCrLf & vbCrLf & "Full Name: " & Request.Form("name") & vbCrLf & vbCrLf & "E-Mail: " & Request.Form("email") & vbCrLf & vbCrLf & "Street Address: " & Request.Form("street") & vbCrLf & vbCrLf & "City: " & Request.Form("city") & vbCrLf & vbCrLf & "State: " & Request.Form("state") & vbCrLf & vbCrLf & "ZIP: " & Request.Form("zip") & vbCrLf & vbCrLf & "Company: " & Request.Form("company") & vbCrLf & vbCrLf & "Questions or comments? " & Request.Form("comments") & vbCrLf & vbCrLf & "Business Phone: " & Request.Form("bizphone") & vbCrLf & vbCrLf & "-- This e-mail is sent by an automated process, please do not respond to it --"
Set myMail = Server.CreateObject ("CDONTS.NewMail")
myMail.From = "info@healthybrands-inc.com"
myMail.To = "m.maynard@healthybrands-inc.com"
myMail.Subject = "HEALTHY BRANDS: New Web Site Request Form Received"
myMail.Body = myBody
myMail.Send
set myMail=nothing
Response.Redirect("../thanks.html")
End If
%>
Healthy Brands. Contact Us.