<% '************************************************************************************ '* 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 strAlert = "" 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 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 - RISK FREE OFFER
     

    Walden's ABC Guide  - Risk Free Offer

    Alfred F. Walden
    President, Walden-Mott Corporation

     

    Walden-Mott offers you a RISK FREE offer.

    For over a century, people have been using Walden's ABC Guide as a valuable sales and marketing tool for the pulp, paper and packaging industries.

    Our family has dedicated its services to the industry for five generations.  Walden-Mott  helps the industry coordinate information on products and personnel.

    If you are unsatisfied for any reason, just return the directory to Walden-Mott within 30 days of purchase for a full refund. 

    The Walden-Mott team looks forward to helping your sales and marketing efforts.  Take advantage of this RISK FREE offer and start gathering sales leads today!

    Kindest Regards,

    Alfred F. Walden


    <% 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"

     
    Purchase this Product