<% IF Request.Form("txtSave") = "0" THEN cName = request.form("txtName") cName = REPLACE(cName,"'","`") cCompany = request.form("txtCompany") cCompany = REPLACE(cCompany,"'","`") cAddress = request.form("txtAddress") cAddress = REPLACE(cAddress,"'","`") cCity = request.form("txtCity") cCity = REPLACE(cCity,"'","`") cState = request.form("txtState") cState = REPLACE(cState,"'","`") cZip = request.form("txtZip") cZip = REPLACE(cZip,"'","`") cEmail = request.form("txtEmail") cEmail = REPLACE(cEmail,"'","`") cPhone = request.form("txtPhone") cPhone = REPLACE(cPhone,"'","`") cMessage = Request.Form("txtMessage") cMessage = REPLACE(cMessage,"'","`") DIM oMailMessage SET oMailMessage = Server.CreateObject("CDONTS.NewMail") oMailMessage.from = cEmail oMailMessage.to = "info@gilcrest.net" oMailMessage.subject = "Information Request" varBody = "NAME: " & cName & chr(13) & _ "COMPANY: " & cCompany & chr(13) & _ "ADDRESS: " & cAddress & chr(13) & _ "CITY: " & cCity & chr(13) & _ "STATE: " & cState & chr(13) & _ "ZIP: " & cZip & chr(13) & _ "PHONE: " & cPhone & chr(13) & _ "" & chr(13) & _ "" & chr(13) & _ "MESSAGE" & chr(13) & cMessage oMailMessage.body = varBody oMailMessage.Send() SET oMailMessage = NOTHING Response.Redirect("requestinfoconfirm.asp") ELSEIF Request.Form("txtCancel") = "0" THEN Response.Redirect("aboutus.asp") END IF %>
Contacing Gilcrest ...
If you wish Gilcrest to contact you,
Please send us a email at:
info@gilcrest.net
We look forward to hearing from you