Register
Home Page
Safety-Direct
How to Order
Product Lines
Online Store
Contact Us
Register
Safety Library
<% option explicit '------------------------------------------------------------------------- ' Client Page : register.asp ' ' Description : This client side page allows the user to enter customer/contact ' information as the first step in the register process. ' ' Notes : '------------------------------------------------------------------------- %> <% 'Quote Info Dim rs, sSQL, sRedirect Dim iPhone, iFax, sNotes, customerID set conn = connectJetdb(path) Set rs = Server.CreateObject("ADODB.Recordset") 'Response.Write "Customer: " & Session("customer") & "
" customerID = Session("customer") If customerID = "" Then customerID = 0 ' cleanUp() End If sSQL = "SELECT * FROM Customer WHERE customerID = " & customerID & ";" rs.Open sSQL, conn, 3, 3, 1 'Response.Write "SQL: " & sSQL & "
" 'Response.Write "Cart: " & Session("cart") & "
" %>

Register for the Safety-Direct automatic update service. News on new standards, new safety products, and
"The Safety Special of the Month"

 

 

<% If customerID = 0 Then %> <% Else %> <% End If %> <% If not rs.EOF Then iPhone = rs("phoneNumberID") iFax = rs("faxNumberID") sNotes = rs("notes") Else iPhone = 0 iFax = 0 End If rs.Close 'get the phone number and extension sSQL = "SELECT * FROM phone WHERE phoneID = " & iPhone & ";" rs.Open sSQL, conn, 3, 3, 1 %> <% rs.Close 'get the fax number sSQL = "SELECT * FROM phone WHERE phoneID = " & iFax & ";" rs.Open sSQL, conn, 3, 3, 1 %>
Already registered before, click here
Indicates a required field
Email Address: " maxlength=150 tabindex=1 class=required>
Password: " maxlength=15 tabindex=2 class=required>
Retype Password: " maxlength=15 tabindex=3 class=required>
Retype Password: " maxlength=15 tabindex=3 class=required>
First Name: " maxlength=30 tabindex=4 class=required>
Last Name: " maxlength=50 tabindex=5 class=required>
Company Name: " maxlength=50 tabindex=6 class=required>
Address: " maxlength=255 tabindex=7>
City: " maxlength=50 tabindex=8>
State/Province: " maxlength=20 tabindex=9>
Postal Code: " maxlength=20 tabindex=10>
Country: " maxlength=50 tabindex=11 class=required>
Title: " maxlength=50 tabindex=12>
Phone: " maxlength=15 tabindex=13 class=required>
Extension: " maxlength=5 tabindex=14>
Fax: " maxlength=15 tabindex=15 class=required>
 
<% cleanUp() Sub cleanUp() On Error Resume Next rs.Close Set rs=Nothing Set conn=Nothing End Sub %>