<% dim strName, StrCompName, strAddr, strCity, strState, strZip, strEmail, strPhone, strCustomer, strSubject, strComments dim strMailTo, strBody, strMsg strMsg = "" if request.Form("Submit") <> "" then Set objMail = Server.CreateObject("CDONTS.NewMail") strMailTo = "awilson@gentrysupply.com" strName = request.Form("Name") strCompName = request.Form("CompName") strAddr = request.Form("Addr") strCity = request.Form("City") strState = request.Form("State") strZip = request.Form("Zip") strEmail = request.Form("Email") strPhone = request.Form("Phone") strCustomer = request.Form("CustType") strSubject = request.Form("Subject") strComments = request.Form("Comments") if strComments = "" then strComments = "None" end if strBody = "Name : " & strName & vbcrlf & "Customer Type : " & strCustomer & vbcrlf & _ "Is requesting : " & strSubject & vbcrlf & vbcrlf & _ "Contact Information :" & vbcrlf & _ strCompany & vbcrlf & _ strAddr & vbcrlf & _ strCity & ", " & strState & " " & strZip & vbcrlf & vbcrlf & _ strEmail & vbcrlf & _ strPhone & vbcrlf & vbcrlf & _ "With the following comments : " & vbcrlf & vbtab & strComments & vbcrlf objMail.To = strMailTo objMail.From = strEmail objMail.Subject = strSubject objMail.Body = strBody ' Send the message! objMail.Send Set objMail = Nothing strMsg = "Your message has been succefully sent!!!" end if %> Contact Us


Contact Us

Thank you for visiting our website. We would love to hear from you. If there is anything that we can help you with, please fill out the form below. Someone will contact you soon.

Fields marked with an * are required.

<% if strMsg <> "" then %>

<%=strMsg%>

<% end if %>
 
*Your Name
 *Mailing Address
Compnay Name
 *City
*State
 *Zip Code
*Email Address
 Customer
*Telephone Number
 Subject
Comments or Questions
© 2007 TA Gentry Supply, Inc. All Rights Reserved. Site Designed By Jemco Logics