%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim pageMode, mailObj, mailBody
if (Request.Form("mode") <> "") then
pageMode = Request.Form("mode")
else
pageMode = "fillForm"
end if
if (pageMode = "submit") then
set mailObj = CreateObject("CDONTS.NewMail")
mailObj.From = "sales@safetyspeedcut.com"
mailObj.To = "jmcnevin@awarewebsolutions.com"
mailObj.To = "sales@safetyspeedcut.com"
mailObj.Subject = "Quote Request from Web"
mailBody = "Name: " & Request.Form("NameField") & vbCrLf
mailBody = mailBody & "Title: " & Request.Form("TitleField") & vbCrLf
mailBody = mailBody & "Company: " & Request.Form("CompanyField") & vbCrLf
mailBody = mailBody & "Shipping Address: " & Request.Form("AddressField") & vbCrLf
mailBody = mailBody & "City: " & Request.Form("CityField") & vbCrLf
mailBody = mailBody & "State: " & Request.Form("StateField") & vbCrLf
mailBody = mailBody & "Zip/Postal Code: " & Request.Form("ZipField") & vbCrLf
mailBody = mailBody & "Country: " & Request.Form("CountryField") & vbCrLf
mailBody = mailBody & "Phone: " & Request.Form("PhoneField") & vbCrLf
mailBody = mailBody & "Fax: " & Request.Form("FaxField") & vbCrLf
mailBody = mailBody & "E-mail: " & Request.Form("EmailField") & vbCrLf
mailBody = mailBody & "Receive Quote via: " & Request.Form("QuoteSelect") & vbCrLf
Dim models,modelsarray,modelstring,model
models = "chkC4,chkTR2,chkH4,chk6400,chkH5,chk6800,chkH6,chk7400,chk3400,chk7400XL,chkSR5,chkES52,chkSR5U,chk60HA," &_
"chk72GP,chk37601,chk37603,chk3760315,chk37751,chk37753,chk3775203,chk3775303,chk47351,chk4735203,chk4735303," &_
"chkWheels,chkFixedStandchkFoldingStandC4,chkExtensions,chkQuickStop,chkStop,chkDustKit,chkDust1,chkDust2," &_
"chkHoldDown,chkMidwayFence,chkAirClamps,chkGaugingSystem,chkScoring,chkDigital,chkHourMeter,chkPowerLift"
modelsarray = Split(models,",")
modelstring = ""
for each model in modelsarray
if (Request.Form(model) <> "") then
modelstring = modelstring & Request.Form(model) & ", "
end if
next
modelstring = Left(modelstring, len(modelstring) - 2)
mailbody = mailbody & "Models: " & modelstring & vbCrLf
mailObj.Body = mailBody
mailObj.Send
set mailObj = nothing
end if
%>
Safety Speed Cut Vertical Panel Saws