Laundry Carts

Modify Customer Information

<%if Session("level") <> 4 and Request.querystring("CustID") <> CustID2 then response.redirect ("http://www.laundry-carts.com") end if 'Need a special case of calling the E-Mail duplication script. If a customer updates there own account, it is acceptable 'to commit the same e-mail address. Otherwise the Default e-mail duplicate error routine shouldbe called strSQL = "SELECT Email, CustomerID FROM Customer WHERE Email = '" & Email & "'" Set RsEML = LaunConn.Execute(strSQL) If NOT RsEML.EOF Then 'Look in the recordset for a CustID not equal to CurrentCustID. If so execute default error RsEML.MoveFirst Do While Not RsEML.EOF If cstr(RsEML("CustomerID")) = cstr(request.querystring("custid")) Then RsEML.MoveNext Else Call ChkEmailDup(Email) exit do End If Loop Else End If RsEML.Close Set RsEML = Nothing If ErrorsMsg = "" Then sql = "UPDATE Customer SET BFirstName = '" & BFirstName & "', BLastName = '" & BLastName & "', " sql = sql & "BAddress1 = '" & BAddress1 & "', BAddress2 = '" & BAddress2 & "', " sql = sql & "BCity = '" & BCity & "', BState = '" & BState & "', " sql = sql & "BZip = '" & BZip & "', BPhone = '" & BPhone & "', " sql = sql & "EMail = '" & EMail & "', SFirstName = '" & SFirstName & "', " sql = sql & "SLastName = '" & SLastName & "', SAddress1 = '" & SAddress1 & "', " sql = sql & "SAddress2 = '" & SAddress2 & "', SCity = '" & SCity & "', " sql = sql & "SState = '" & SState & "', SZip = '" & SZip & "', " sql = sql & "SPhone = '" & SPhone & "', SecLvl = '" & SecLvl & "', " sql = sql & "CCType = '" & CCType & "', CCName = '" & CCName & "', " sql = sql & "CCDate = '" & CCDate & "', Password = '" & Password & "', " sql = sql & "eacustid = '" & eacustid & "'" sql = sql & " WHERE CustomerID LIKE '" & Request.Querystring("custid") & "';" launconn.execute(sql) Response.Write ("Record Changes accepted as follows:") set rsCust = LaunConn.Execute("SELECT * FROM Customer WHERE CustomerID = " & request.querystring("CustID") & ";") %>

" id=form1 name=form1> <%if Session("level") >= 4 Then%> <%End If%>

Primary Contact Information
First Name:	">
Last Name:	">
Address 1:	">
Address 2:	">
City:	">
State:	">
Zip:	">
Phone:	">
EMail:	">
Password:	">
Shipping Contact Information
First Name:	">
Last Name:	">
Address 1:	">
Address 2:	">
City:	">
State:	">
Zip:	">
Phone:	">
Account and Payment Information
Credit Card Type:
Credit Card Holder's Name:	">
Credit Card Exp. Date:	">
Credit Card Number:	">
Security Level:	">
laundry-carts Customer ID:	">

Return to Menu <% Else Response.write Session(Error) End If RsCust.Close Set RsCust = Nothing %>