<% Response.Buffer=true %> Laundry Carts <% Dim CartsConn Dim CartsDB Set CartsConn=Server.CreateObject("ADODB.Connection") CartsConn.Open "DSN=LaundryCarts;" Dim CookCartID CookCartID = Session("CookCartID") CustID = Session("CustID") %>
Returning Customer?
 
<% If CustID <> "" Then strSQL = "SELECT * FROM Customer WHERE CustomerID LIKE '" & CustID & "'" Set CartCart = CartsConn.Execute(strSQL) Session("CCType") = CartCart("CCType") Session("CCNumber") = CartCart("CCNumber") Session("CCDate") = CartCart("CCDate") Session("Password") = CartCart("Password") Session("BFirstName") = CartCart("BFirstName") Session("BLastName") = CartCart("BLastName") Session("BAddress1") = CartCart("BAddress1") Session("BAddress2") = CartCart("BAddress2") Session("BCity") = CartCart("BCity") Session("BState") = CartCart("BState") Session("BFirstName") = CartCart("BFirstName") Session("BZip") = CartCart("BZip") Session("BPhone") = CartCart("BPhone") Session("CartID") = CartCart("CartID") Session("Email") = CartCart("Email") Session("SFirstName") = CartCart("SFirstName") Session("SLastName") = CartCart("SLastName") Session("Shipto") = CartCart("Shipto") Session("SAddress1") = CartCart("SAddress1") Session("SAddress2") = CartCart("SAddress2") Session("SCity") = CartCart("SCity") Session("SState") = CartCart("SState") Session("SFirstName") = CartCart("SFirstName") Session("SZip") = CartCart("SZip") Session("SPhone") = CartCart("SPhone") CartCart.Close Set CartCart = Nothing CartsConn.Close Set CartsConn = Nothing End If %>
What is your e-mail address?
  e-mail: " size="25">
Are you a returning customer?
 


 
 
 
Call Us: 1-866-891-5513, Email Us: parts@sterlingequipmentco.com
All contents © copyright 2004 Laundry Cart Co., All rights reserved.