Walden's ABC Guide Registration

<% '************************************************************************************ '* ABC Guide Registration - step - orderABC.asp '* by Alfred Walden; previously Tom Laauwe '* January 2007 '* DESCRIPTION: Displays and submits ABC registration option '************************************************************************************ ' Used to establish the Edition that is put into the database. ' Make sure you change this each year. '******************************************************************************* ' Subs Section '******************************************************************************* '****************************** '******************************************************************************* ' Main Section '******************************************************************************* Dim strAlert, strCCnumber strAlert = "" strCCnumber = "" If Request.Form("PBstep2Confirm") = "True" Then For Each frm In Request.Form If frm <> "btnBack" And frm <> "btnNext" And frm <> "PostBack" And frm <> "myUName" And frm <> "postback" And frm <> "btnSubmit" And frm <> "CopyContactInfo" Then If Request.Form(frm) <> "" Then Session(frm) = Request.Form(frm) End If End If Next If Request.Form("UserName") <> "" Then Dim qryUserCheck qryUserCheck = "SELECT * FROM tbl_Customers WHERE UserName='" & Request.Form("UserName") & "'" Set rsUserCheck = Server.CreateObject("ADODB.Recordset") rsUserCheck.Open qryUserCheck, GetWMCMSConnection, 3, 3 If Not rsUserCheck.BOF And Not rsUserCheck.EOF Then strMsg = strMsg & "

Sorry, that user name is not available. Try another one." strAlert = "X" End If rsUserCheck.Close Set rsUserCheck = Nothing Else strMsg = strMsg & "

Please enter a user name into the text box." strAlert = "X" End If 'Alerts for required and special fields If Request.Form("Password") <> Request.Form("PasswordConfirm") Then strMsg = strMsg & "

Password and Password Confirm textboxes need to be the same." strAlert = "X" End If 'strCCnumber = Request.Form("CreditCardNumber") 'If Left(Session("CreditCardNumber"),2) <> "3" OR Left(Session("CreditCardNumber"),2) <> "4" OR Left(Session("CreditCardNumber"),2) <> "5" Then ' strMsg = strMsg & "

Invalid Credit Card" ' strAlert = "X" 'End If If strAlert <> "X" Then 'If Request.QueryString("act") = "finish" Or Request.Form("btnSubmit") = "Confirm" Then Response.Redirect "orderABCstep3.asp" 'Else ' Response.Redirect "orderABCstep3.asp" 'End If End If End If '******************************************************************************* '******************************************************************************* %> Walden's ABC Guide Registration - Step 1

<% If strAlert = "X" Then%>

PLEASE FIX THE FOLLOWING:

<%=strMsg%>

<% End If%>

Create User Name At least 6 characters, -Letters/Digits Only; No Spaces

" maxlength="15">* Check for Availability

Create Password	Confirm Password
" maxlength="15">*	">*

Select Card Type*

Card Holders Name*
">
Credit Card Number*
" maxlength="16"> (No spaces)
Credit Card Expiration*	Credit Card CV Number*
/	" maxlength="6"> (What's this?)

<%If Request.Form("act") = "" And Request.QueryString("act") = "" Then%> <%Else%> <%End If%>

<% If Session("PromoDiscount") <> 0 Then %> <% End If %>

Published Since 1885 and known as
"The Bible of the Industry"

"A must have for anybody involved in selling to the paper industry"

RISK FREE OFFER

Quantity: <% =Session("ABConlineQuantity") %>

Discount: $<% =Session("PromoDiscount") %>.00

Total Amount:
$<% =Session("dblABConlineTotal") %>.00 US Dollars