<%@ Language=VBScript %> <% Response.Buffer = True %>

Products Screws & Fasteners Hand Tools General Construction Power Tools & Acc. Drywall & Masonry Doors, Frames & Builders Hardware Safety Products Links   Home   About Us   Locations   Catalog Request   Contact Us   Star Sales Free Catalog Request Form <% Dim strName, strCompany, strCompanyType, strCustomerID, strAddress, strAddress2, strCity, strState, strPhone, strFax, strEmail, strWebsite, blnErrorFlag, strBody blnErrorFlag = False If Request.QueryString("op") = "s" Then strName = Trim(Request.Form("Name")) strCompany = Trim(Request.Form("Company")) strCompanyType = Trim(Request.Form("CompanyType")) strCustomerID = Trim(Request.Form("CustomerID")) strAddress = Trim(Request.Form("Address")) strAddress2 = Trim(Request.Form("Address2")) strCity = Trim(Request.Form("City")) strState = Request.Form("State") strZip = Trim(Request.Form("Zip")) strPhone = Trim(Request.Form("Phone")) strFax = Trim(Request.Form("Fax")) strEmail = Trim(Request.Form("Email")) strWebsite = Trim(Request.Form("Website")) ' check if all required fields entered If Len(strName) < minNameLen Then Response.Write("Please enter Name ") blnErrorFlag = True End If If Len(strAddress) < minAddressLen Then Response.Write("Please enter Address ") blnErrorFlag = True End If If Len(strCity) < minCityLen Then Response.Write("Please enter City ") blnErrorFlag = True End If If strState = "0" Then Response.Write("Please select State ") blnErrorFlag = True End If If Not chkZip(strZip) Then Response.Write("Please enter Zip code ") blnErrorFlag = True End If If Not chkPhoneNA(strPhone) Then Response.Write("Please enter Phone with area code ") blnErrorFlag = True End If If ( Len(strFax) > 0 ) And ( Not chkPhoneNA(strFax) ) Then Response.Write("Please enter Fax with area code ") blnErrorFlag = True End If If Not chkEmail(strEmail) Then Response.Write("Please enter a valid E-mail address ") blnErrorFlag = True End If If Not blnErrorFlag Then strBody = "" &_ "Name: " & strName & vbCrLf &_ "Company: " & strCompany & vbCrLf &_ "Company Type: " & strCompanyType & vbCrLf &_ "Customer ID: " & strCustomerID & vbCrLf &_ "Address: " & strAddress & vbCrLf &_ "Address2: " & strAddress2 & vbCrLf &_ "City: " & strCity & vbCrLf &_ "State: " & strState & vbCrLf &_ "Zip: " & strZip & vbCrLf &_ "Phone: " & strPhone & vbCrLf &_ "Fax: " & strFax & vbCrLf &_ "Web Site: " & strWebsite & vbCrLf Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = strEmail objMail.To = "sserowik@starsales.com" objMail.Subject = "Catalog Request" objMail.Body = strBody objMail.Importance = 1 objMail.Send Set objMail = Nothing Response.Clear Response.Redirect("thankyou.html") End If End If %> Address Information: Company Name: Company Type: Customer ID: Address:   City: State: Zip Code: Phone: Fax: E-mail: Web Site: Contact Person:     About Star Sales | Star Sales Locations | Site & General Feedback Form