<% Option Explicit %> <% Dim sMsg, sSep, sJS, sBody Dim sNow Dim sCompanyName, sFirstName, sLastName Dim sAddress, sCity, sState, sZip Dim sPhone, sEmail, sMachine, sThread Dim sHeads, sTypeSewing, sWebsite Dim sPurchase, sHBPurch, sHowHear Dim sSite1, sSite2, sSite3 Dim sHeads1, sHeads2, sHeads3, sHeads25, sHeads60 Dim sSewingGeneral, sSewingEmb, sSewingBoth Dim sHBYes, sHBNo Dim sHearIndustry, sHearWeb, sHearGN, sHearMail, sHearFriend, sHearOther If request("go") = "go" Then sCompanyName = Trim(request("CompanyName")) sFirstName = Trim(request("FirstName")) sLastName = Trim(request("LastName")) sAddress = Trim(request("Address")) sCity = Trim(request("City")) sState = Trim(request("State")) sZip = Trim(request("Zip")) sPhone = Trim(request("Phone")) sEmail = Trim(request("Email")) sMsg = "" sJS = "" If sCompanyName = "" Then sMsg = sMsg & sSep & "Company Name must be provided" sSep = "
" End If If sFirstName = "" Then sMsg = sMsg & sSep & "First Name must be provided" sSep = "
" End If If sLastName = "" Then sMsg = sMsg & sSep & "Last Name must be provided" sSep = "
" End If If sAddress = "" Then sMsg = sMsg & sSep & "Address must be provided" sSep = "
" End If If sCity = "" Then sMsg = sMsg & sSep & "City must be provided" sSep = "
" End If If sState = "" Then sMsg = sMsg & sSep & "State must be provided" sSep = "
" End If If sZip = "" Then sMsg = sMsg & sSep & "ZIP must be provided" sSep = "
" End If If sPhone = "" Then sMsg = sMsg & sSep & "Phone must be provided" sSep = "
" End If If sEmail = "" Then sMsg = sMsg & sSep & "Email Address must be provided" sSep = "
" End If sMachine = Trim(request("MachineType")) sThread = Trim(request("ThreadType")) sHeads = Trim(request("NumberHeads")) If sHeads = "1" Then sHeads1 = "SELECTED" ElseIf sHeads = "2-12" Then sHeads2 = "SELECTED" ElseIf sHeads = "3-24" Then sHeads3 = "SELECTED" ElseIf sHeads = "25-60" Then sHeads25 = "SELECTED" ElseIf sHeads = "60+" Then sHeads60 = "SELECTED" End If sTypeSewing = Trim(request("SewingType")) If sTypeSewing = "General" Then sSewingGeneral = "CHECKED" ElseIf sTypeSewing = "Embroidery" Then sSewingEmb = "CHECKED" ElseIf sTypeSewing = "Both" Then sSewingBoth = "CHECKED" End If sWebsite = Trim(request("Website")) sPurchase = Trim(request("WherePurch")) sHBPurch = Trim(request("HBPurch")) If sHBPurch = "Yes" Then sHBYes = "CHECKED" ElseIf sHBPurch = "No" Then sHBNo = "CHECKED" End If sHowHear = Trim(request("HowHear")) If sHowHear = "Industry" Then sHearIndustry = "SELECTED" ElseIf sHowHear = "Web" Then sHearWeb = "SELECTED" ElseIf sHowHear = "Great Notions" Then sHearGN = "SELECTED" ElseIf sHowHear = "Mail" Then sHearMail = "SELECTED" ElseIf sHowHear = "Friend" Then sHearFriend = "SELECTED" ElseIf sHowHear = "Other" Then sHearOther = "SELECTED" End If sSite1 = Trim(request("Site1")) sSite2 = Trim(request("Site2")) sSite3 = Trim(request("Site3")) ' now, if everything is OK send the email If sMsg = "" Then ' send the email sMsg = " " sNow = Now sBody = "A catalog request was entered on " & sNow & vbCRLF & _ "Company: " & sCompanyName & vbCRLF & _ "First Name: " & sFirstName & vbCRLF & _ "Last Name: " & sLastName & vbCRLF & _ "Address: " & sAddress & vbCRLF & _ "City: " & sCity & vbCRLF & _ "State: " & sState & vbCRLF & _ "ZIP: " & sZip & vbCRLF & _ "Phone: " & sPhone & vbCRLF & _ "Email: " & sEmail & vbCRLF & _ "Type of Machine: " & sMachine & vbCRLF & _ "Type of Thread: " & sThread & vbCRLF & _ "Number of Heads: " & sHeads & vbCRLF & _ "Type of Sewing: " & sTypeSewing & vbCRLF & _ "Website URL: " & sWebsite & vbCRLF & _ "Where purchase supplies: " & sPurchase & vbCRLF & _ "Purchase from HB before: " & sHBPurch & vbCRLF & _ "How Hear about HB: " & sHowHear & vbCRLF & _ "Visit Site1: " & sSite1 & vbCRLF & _ "Visit Site2: " & sSite2 & vbCRLF & _ "Visit Site3: " & SSite3 & vbCRLF sendMail "Catalog Request", "savings@hammerbrothers.com", "savings@hammerbrothers.com", "Catalog Request", "savings@hammerbrothers.com", "Catalog Request " & sNow, sBody, "text" Else sJS = Replace(sMsg, "
", "\n") sJS = "" sMsg = "" & sMsg & "" End If End If %> Hammer Brothers, Inc. Embroidery and Sewing Supplies

 

 

 

 

     
 
 
     
 
download our catalog
(14 Mb)