<% 'Header variables. Dim showsearch, showcart, showcheckout, showany showsearch=TRUE showcart=TRUE showcheckout=FALSE showany=TRUE Dim message message = Request.QueryString("message") %> Setsuko.com - Checkout
Checkout
<% If Len(message) > 0 Then %>
<% Select Case message Case "exists" Response.Write "The Email address you specified already has an account.
" & vbCrLf & "Click here if you have forgotten your password, or here if you remember it and would like to login. If you want to setup a different email address then fill in the fields below.." Case "badformat" Response.Write "Email address was not correctly formatted. Please try again." Case "notmatch" Response.Write "The passwords you typed do not match. Please try again." Case "short" Response.Write "The password you typed is too short. Your password must be 5 to 15 characters in length. Please try again." Case "long" Response.Write "The password you typed is too long. Your password must be 5 to 15 characters in length. Please try again." Case "characters" Response.Write "The password must only contain numbers (0-9) and letters (A-Z). Please try again." Case "incorrect" Response.Write "The email address/password combination you used does not match our database.
" & vbCrLf & "Click here if you think you have forgotten your password." Case Else Response.Write "Unknown error. Try again." End Select Response.Write "

" & vbCrLf %>
<% End If %>
New Customers
  
Email Address:
  
New Password:
(5-15 characters in length)
Confirm Password:
 
Please note: We can only ship to the United States at this time.
If you are outside the U.S., contact us and we will see what we can do.