<%@ Language=VBScript %> <%Response.Buffer=True%> <% QuoteNo=Request.QueryString("QID") fnc="#000000" lnc="#000000" ec="#000000" pc="#000000" nec="#000000" nc="#000000" ac="#000000" cc="#000000" zc="#000000" ctc="#000000" sac="#000000" scc="#000000" szc="#000000" sctc="#000000" error="The following required fields have been left blank:
" ferror="Format errors:
" If Request.Form("hidSave")="true" then txtFname=Trim(Request.Form("txtFname")) txtLname=Trim(Request.Form("txtLname")) txtEmail=Trim(Request.Form("txtEmail")) txtPhone=Trim(Request.Form("txtPhone")) txtFax=Trim(Request.Form("txtFax")) txtCompany=Trim(Request.Form("txtCompany")) txtTitle=Trim(Request.Form("txtTitle")) txtBusiness=Trim(Request.Form("txtBusiness")) nEmployees=Trim(Request.Form("nEmployees")) txtURL=Trim(Request.Form("txtURL")) txtBAddress=Trim(Request.Form("txtBAddress")) txtBCity=Trim(Request.Form("txtBCity")) txtBProv=Trim(Request.Form("txtBProv")) txtBPostal=Trim(Request.Form("txtBPostal")) nCountry=Request.Form("selCountry") txtBilling=Request.Form("chkBilling") txtComments=Trim(Request.Form("txtComments")) If txtBilling="Yes" then txtSAddress=Trim(Request.Form("txtBAddress")) txtSCity=Trim(Request.Form("txtBCity")) txtSProv=Trim(Request.Form("txtBProv")) txtSPostal=Trim(Request.Form("txtBPostal")) nSCountry=Request.Form("selCountry") Else txtSAddress=Trim(Request.Form("txtSAddress")) txtSCity=Trim(Request.Form("txtSCity")) txtSProv=Trim(Request.Form("txtSProv")) txtSPostal=Trim(Request.Form("txtSPostal")) nSCountry=Request.Form("selSCountry") End If If txtFName="" then error=error & "First Name
" fnc="#FF0000" End If If txtLName="" then error=error & "Last Name
" lnc="#FF0000" End If If txtEmail<>"" then If IsValidEmail(txtEmail)=False then ferror=ferror & "The Email address entered is not valid - please check for accuracy.
(Format example: me@here.com)
" ec="#FF0000" End If Else error=error & "Email Address
" ec="#FF0000" End If If txtPhone="" then error=error & "Telephone Number
" pc="#FF0000" End If If nEmployees<>"" then If Not IsNumeric(nEmployees) then ferror=ferror & "The value entered for Number Of Employees must be numeric.
" nec="#FF0000" End If End If If txtBAddress="" then error=error & "Billing Address
" ac="#FF0000" End If If txtBCity="" then error=error & "Billing City
" cc="#FF0000" End If If txtBPostal="" then error=error & "Billing Postal/Zip Code
" zc="#FF0000" End If If txtBilling<>"Yes" then If txtSAddress="" then error=error & "Shipping Address
" sac="#FF0000" End If If txtSCity="" then error=error & "Shipping City
" scc="#FF0000" End If If txtSPostal="" then error=error & "Shipping Postal/Zip Code
" szc="#FF0000" End If End If If error="The following required fields have been left blank:
" And ferror="Format errors:
" then OpenConnection1 Set rs=Server.CreateObject("ADODB.Recordset") Sel="SELECT * FROM Applications" rs.Open Sel,DB,1,3 rs.AddNew rs("txtFname")=dbReplace(txtFname) rs("txtLname")=dbReplace(txtLname) rs("txtCompany")=dbReplace(txtCompany) rs("txtBusiness")=dbReplace(txtBusiness) If nEmployees<>"" then rs("nEmployees")=nEmployees rs("txtTitle")=dbReplace(txtTitle) rs("txtEmail")=dbReplace(txtEmail) rs("txtPhone")=dbReplace(txtPhone) rs("txtFax")=dbReplace(txtFax) rs("txtURL")=dbReplace(txtURL) rs("txtAddress")=dbReplace(txtBAddress) rs("txtCity")=dbReplace(txtBCity) rs("txtProvince")=dbReplace(txtBProv) rs("txtPostal")=dbReplace(txtBPostal) rs("nCountry")=dbReplace(nCountry) rs("txtSAddress")=dbReplace(txtSAddress) rs("txtSCity")=dbReplace(txtSCity) rs("txtSProvince")=dbReplace(txtSProv) rs("txtSPostal")=dbReplace(txtSPostal) rs("nSCountry")=dbReplace(nSCountry) rs("txtComments")=dbReplace(txtComments) rs("txtViewed")="NO" rs("datApply")=Date rs.Update ApplicationID=rs("ApplicationID") rs.Close Response.Redirect("supplies.asp?AID=" & ApplicationID) End If End If %> Customer Application
 
<%If error<>"The following required fields have been left blank:
" then%> <%End If%> <%If ferror<>"Format errors:
" then%> <%End If%>
W A D E S
Bindery Repair Service Ltd.
Customer Account Application
<%=error%>
<%=ferror%>
Contact Information

Contact Information:
Please enter the following information accurately. We require a telephone number and email address so we can contact you if there are problems with an order or your account. This information will NOT be used for solicitation purposes and all information submitted will be kept confidential.
 
First Name
Last Name
Email
Telephone
Fax (optional)
Corporate Information

Company Details:
If this is a corporate account, please fill out the following information. All information is optional however the more we know, the better we can serve you!
 
Company
Corporate Title
Type of Business
Number of Employees
Corporate Website
Billing Information

Billing Details:
Address
City
Province/State
 Postal/Zip Code
Country
Shipping Information
 

Orders are shipped to:
>Same as Billing.
If the shipping information is the same as the billing information, please select this box. You will not need to fill out the fields below.
  
Receiver's Address
City
Province/State
 Postal/Zip Code
Country
Comments?
 

Questions or comments:
 
<% Function IsSelected(value,data) If value=data then IsSelected="Selected" Else IsSelected="" End If End Function %>