<% Option Explicit %> <% dim Step : Step = Request.form("Step") dim fields fields = "EmailAddress, CustomerPassword, FullName, AddressLine1, AddressLine2, City, State, ZipCode, Telephone, " & _ "ShipFullName, ShipAddressLine1, ShipAddressLine2, ShipCity, ShipState, ShipZipCode, ShipMethod, " & _ "CreditCard, CreditCardNumber, CreditCardExpDate_Month, CreditCardExpDate_Year, CreditCardHolderName" ''' Maybe make this a non-cached page. %> <% DisplayHeader "Shop" DisplayNavMenu "Shop" Main %> <% sub Main() select case Step case "" Step1_DisplayForm case "2" Step2_Confirm case "3" Step3_Save end select end sub sub Step1_DisplayForm dim data %>

<% set data = RetrieveFieldsFromTemp(fields) if data Is Nothing then Response.write "" set data = Nothing set data = Server.CreateObject("Scripting.Dictionary") ' This object will contain no data (and thus outputs empty strings). else ''' If user signs out, maybe have checkout.asp do Session.abandon and then Response.redirect to itself. Response.write "" ''' Don't forget to use GetDateUnits() for the credit card info. (See example in aroundhouston_net\clients\customer_modify.asp.) end if ' CustomerPassword, Re-enter_CustomerPassword, and Shipping Method are intentionally not pre-filled so that the customer must fill them in every time this page is viewed. ''' Maybe ShipMethod field is not needed in Customers table (but only needed in Orders table)??? %>

Returning customer? Please sign in.
You may sign in with a different account.
Please enter your email address and create a password. You will use this information for future purchases.
Email Address:	">
Password:
Re-enter Password:
Home Address:
Full Name:	">
Address Line 1:	">
Address Line 2:	">
City:	">
State:	<%= SelectedOption(data("State")) %><% DisplayStateOptions %>
Zip Code:	">
Telephone:	">
Shipping Address (if different from above):
Full Name:	">
Address Line 1:	">
Address Line 2:	">
City:	">
State:	<%= SelectedOption(data("ShipState")) %><% DisplayStateOptions %>
Zip Code:	">
Shipping Method:
U.S. Postal (3-7 business days)
UPS Ground (2 business days)
UPS Overnight (1 business day)
Payment Information:
Credit Card:	<%= SelectedOption(data("CreditCard")) %><% DisplayCreditCardOptions %>
Credit Card No.:	">
Expiration Date:	<%= CreditCardExpDate_Month %><% DisplayMonthOptions %> <%= CreditCardExpDate_Year %><% DisplayYearOptions %>
Cardholder's Name:	">

<% end sub sub Step2_Confirm end sub sub Step3_Save end sub %>