%@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 = "aweber@awarewebsolutions.com" mailObj.To = "sales@safetyspeedcut.com" mailObj.Subject = "Catalog/Price List 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 & "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 & "Industry: " & Request.Form("IndustrySelect") & vbCrLf mailBody = mailBody & "Compelling Feature: " & Request.Form("InterestSelect") & vbCrLf mailBody = mailBody & "Timeframe: " & Request.Form("TimeframeSelect") & vbCrLf mailBody = mailBody & "Comments/Questions: " & Request.Form("CommentsTextBox") & vbCrLf mailBody = mailBody & "Send Information: " & Request.Form("InfoSelect") & vbCrLf mailObj.Body = mailBody mailObj.Send set mailObj = nothing select case Request.Form("InfoSelect") case "View online" pageMode = "viewOnline" case "Send via mail" pageMode = "mailSend" case "Both" pageMode = "both" end select end if %>
|
||||||||||||||||||||||||||||||||||||||||||||||||