<%@LANGUAGE="VBSCRIPT"%> <% ' UltraDev Shopping Cart II ' Copyright (c) 2001 Joseph Scavitto All Rights Reserved ' www.thechocolatestore.com/ultradev Dim UCII_CartColNames,UCII_ComputedCols,UCII__i UCII_CartColNames = Array("PartialStock","OutOfStock","Weight","TotalWeight","ProductID","DiscountRate","DiscountThreshold","DiscountValue","DiscountType","Quantity","Name","SpecialPrice","Price","Total") UCII_ComputedCols = Array("","","","Weight","","","","","","","","","","Price") Set UCII = VBConstuctCart("MyCart",28,UCII_CartColNames,UCII_ComputedCols) UCII__i = 0 %> <% set rsCUSTOMERS = Server.CreateObject("ADODB.Recordset") rsCUSTOMERS.ActiveConnection = MM_OLEDB_STRING rsCUSTOMERS.Source = "SELECT * FROM dbo.tblSHOP_Customers" rsCUSTOMERS.CursorType = 0 rsCUSTOMERS.CursorLocation = 2 rsCUSTOMERS.LockType = 3 rsCUSTOMERS.Open() rsCUSTOMERS_numRows = 0 %> <% If Request("UserMode")<>"UPDATE" Then %>

<% Else %> <% End If %>   Already a customer? <%=Request("errmsg")%> Your E-Mail: Password:   New customer?   Update Customer Record <% If Request("UserMode")="UPDATE" Then set rs = Server.CreateObject("ADODB.Recordset") set cmd = Server.CreateObject("ADODB.Command") cmd.ActiveConnection = Application("ADOConnection") cmd.CommandText = "dbo.spSelectCustomerDetails" cmd.CommandType = 4 cmd.CommandTimeout = 0 cmd.Prepared = true cmd.Parameters.Append cmd.CreateParameter("@custemail", 129, 1,100,Session("custemail")) cmd.Parameters.Append cmd.CreateParameter("@custpwd", 129, 1,50,Session("custpwd")) Set rs = cmd.Execute() 'Session("custemail")="" 'Session("custpwd")="" c_email=Session("custemail") c_pwd=Session("custpwd") If rs.EOF=True Then Response.Redirect "/shop/_includes/ReviewOrder.asp" End If %> <% End If %> Please fill in all fields. All supplied information will be handled strictly confidential and will NOT be passed on to any third party. If you have any questions regarding your purchase, please contact our sales staff at (414) 434-0044 or send your questions to bret@whatspoppin.com. Thank you.     Last Name: "> First Name: "> Company Name: "> ("none" if not applicable) E-Mail: <% If Request("UserMode")<>"UPDATE" Then %> "> <% Else %> "><%=rs("Customeremail")%> <% End If %> Choose password: <% If Request("UserMode")<>"UPDATE" Then %> <% Else %> "> - hidden - <% End If %>     Phone: "> Address: "> City: "> State: Choose a State VALUE="UNK">Outside US / Canada VALUE="AL">Alabama VALUE="AK">Alaska VALUE="AZ">Arizona VALUE="AR">Arkansas VALUE="AA">Armed Forces Americas VALUE="CA">California VALUE="CO">Colorado VALUE="CT">Connecticut VALUE="DE">Delaware VALUE="DC">District Of Columbia VALUE="FL">Florida VALUE="GA">Georgia VALUE="HI">Hawaii VALUE="ID">Idaho VALUE="IL">Illinois VALUE="IN">Indiana VALUE="IA">Iowa VALUE="KS">Kansas VALUE="KY">Kentucky VALUE="LA">Louisiana VALUE="ME">Maine VALUE="MD">Maryland VALUE="MA">Massachusetts VALUE="MI">Michigan VALUE="MN">Minnesota VALUE="MS">Mississippi VALUE="MO">Missouri VALUE="MT">Montana VALUE="NE">Nebraska VALUE="NV">Nevada VALUE="NH">New Hampshire VALUE="NJ">New Jersey VALUE="NM">New Mexico VALUE="NY">New York VALUE="NC">North Carolina VALUE="ND">North Dakota VALUE="OH">Ohio VALUE="OK">Oklahoma VALUE="OR">Oregon VALUE="PA">Pennsylvania VALUE="RI">Rhode Island VALUE="SC">South Carolina VALUE="SD">South Dakota VALUE="TN">Tennessee VALUE="TX">Texas VALUE="UT">Utah VALUE="VT">Vermont VALUE="VA">Virginia VALUE="WA">Washington VALUE="WI">West Virginia VALUE="WI">Wisconsin VALUE="WY">Wyoming Zip Code: "> Country: United States     Today's Date: <% =Date() %>                <% If Request("UserMode")="UPDATE" Then %> <% Else %> <% End If %>

<% rsCUSTOMERS.Close() Function ToggleSelected(Field,Value) ToggleSelected="" If Request("UserMode")="UPDATE" Then If rs(Field)=Value Then ToggleSelected=" Selected " Else If Request.Cookies("whatspopping")(Field)=Value Then ToggleSelected=" Selected " End If End Function %>