<% Dim strEmail strEmail = Session("CustEmail") Dim strPWD strPWD = Session("CustPWD") Dim strCartId strCartId = Request("CartId") DIM mySQL, objRS mySQL = "SELECT * FROM Customers Where Email='"& strEmail &"' And PWD='" & strPWD & "'" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open mySQL, objConn %> Customer Account Update 2 text="#<%= strText %>" link="#<%= strLink %>" vlink="#<%= strVLink %>" alink="#<%= strALink %>">

Update your account information. ( * ) indicates required fields.
*First Name: ">
Middle Name: ">
*Last Name: ">
Company: "> (if none leave blank)
*Email Address: ">
Email Active:
*Address: ">
Address2: ">
*City/Town/Province: ">
*State: (Not in the USA? Please choose Outside USA)
*Postal Code: ">
*Country:
Phone 1: ">-">-">
Phone 2: ">-">-">
International Phone: "> Include Country Code.
*Password: "> (at least 6 characters)
*Retype Password: ">

Customer Home Page

">