<%@ Language=VBScript %> <% Response.Buffer=true %> Laundry Carts <% BFirstName=CStr(CapsValid(Request.Form("BFirstName"))) BLastName=CStr(CapsValid(Request.Form("BLastName"))) BCompany=CStr(CapsValid(Request.Form("BCompany"))) BAddress1=CStr(CapsValid(Request.Form("BAddress1"))) BAddress2=CStr(CapsValid(Request.Form("BAddress2"))) BCity=CStr(CapsValid(Request.Form("BCity"))) BState=CStr(UCase(Request.Form("BState"))) BZip=CStr(FormatZip(Request.Form("BZip"))) BPhone=CStr(FormatPhoneNumber(Request.Form("BPhone"))) Email=CStr(Request.Form("Email")) If BCompany="" Then BCompany="EMPTY" End If If BAddress2="" Then BAddress2="EMPTY" End If If Request.Form("SameAs") = "ON" Then SFirstName = BFirstName SLastName = BLastName SCompany= BCompany SAddress1 = BAddress1 SAddress2 = BAddress2 SCity = BCity SState = BState SZip = BZip SPhone = BPhone Else SFirstName=CStr(CapsValid(Request.Form("SFirstName"))) SLastName=CStr(CapsValid(Request.Form("SLastName"))) SCompany=CStr(CapsValid(Request.Form("SCompany"))) SAddress1=CStr(CapsValid(Request.Form("SAddress1"))) SAddress2=CStr(CapsValid(Request.Form("SAddress2"))) SCity=CStr(CapsValid(Request.Form("SCity"))) SState=CStr(UCase(Request.Form("SState"))) SZip=CStr(FormatZip(Request.Form("SZip"))) SPhone=CStr(FormatPhoneNumber(Request.Form("SPhone"))) End If DanCustID=CStr(Request.Form("DanCustID")) SecLvl=CStr(Request.Form("SecLvl")) CCType=CStr(Request.Form("CCType")) CCName=CStr(CapsValid(Request.Form("CCName"))) CCDate= CStr(Request.Form("CCMonth"))& "/" & CStr(Request.Form("CCYear")) CCNumber=CStr(Request.Form("CCNumber")) Password=CStr(Request.Form("passw1")) If SecLvl="" Then SecLvl="1" End If If CCType="" Then CCType="NONE" End If If CCName="" Then CCName="NONE" End If If CCDate="" Then CCDate="1/1/1" End If If CCNumber="" Then CCNumber="XXXXXXXXXXXXXX" End If If Password="" Then Password="changeme" End If %>
Account Access
<% Dim LaunConn Dim CookCartID Dim objFSO Set LaunConn=Server.CreateObject("ADODB.Connection") LaunConn.Open "DSN=LaundryCarts;" CookCartID = Session("CookCartID") CustID = Session("CustID") %>

Modify Customer Information
<%if Session("level") <> 4 and Request.querystring("CustID") <> CustID2 then response.redirect ("http://www.laundry-carts.com") end if%> <% Set RsCust = Server.CreateObject("ADODB.Recordset") With RsCust .Source="Customer" .ActiveConnection = "DSN=LaundryCarts;" .LockType=3 .Open .AddNew RsCust("BFirstName")= BFirstName RsCust("BLastName")= BLastName RsCust("BAddress1")= BAddress1 RsCust("BAddress2")= BAddress2 RsCust("BCity")= BCity RsCust("BState")= BState RsCust("BZip")= BZip RsCust("BPhone")= BPhone RsCust("Email")= EMail RsCust("SFirstName")= SFirstName RsCust("SLastName")= SLastName RsCust("SAddress1")= SAddress1 RsCust("SAddress2")= SAddress2 RsCust("SCity")= SCity RsCust("SState")= SState RsCust("SZip")= SZip RsCust("SPhone")= SPhone RsCust("SecLvl")= SecLvl RsCust("CCType")= CCType RsCust("CCName")= CCName RsCust("CCDate")= CCDate RsCust("CCNumber")=CCNumber RsCust("Password")=Password .update End With LaunConn.Close Set LaunConn = Nothing Response.Write ("
Customer Added!
") %>

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