<% dim ErrorFlag, First_Name, Last_Name, Address, City, State, Zip, Sex, Age, Title dim third_party_offers, date_now, country, phone, email, rs, conn dim ErrorMessages dim SQLStmt, redirect, action, offercode, checktest, offercodefull dim Page2OfferCodes, CityStZipMsg dim q1,q2,q3, qstring q1 = Chr(34) q2 = Chr(34) & Chr(44) & Chr(34) q3 = Chr(34) if request.Querystring("action") = "process" then OpenDB() '========================== ' SECTION 1-PROCESS '========================== '------------------------- 'GET VARIABLES '-------------------------- Title = request.form("Title") First_Name = request.form("First_Name") Last_Name = request.form("Last_Name") Address = request.form("Address") City = request.form("City") State = request.form("State") Country = request.form("Country") if Country="USA" then Zip = left(request.form("Zip"),5) else Zip = request.form("Zip") end if birth_date = request.form("birth_date") Phone = request.form("Phone") Email = request.form("Email") '-------------------------- 'VALIDATE DATA '-------------------------- if len(First_Name)=0 then ErrorMessages=ErrorMessages & "
  • Please fill in your first name" end if if not CheckForValidCharacters( First_Name) then ErrorMessages=ErrorMessages & "
  • You can't use odd or international characters in your first name." end if if len(Last_Name)=0 then ErrorMessages=ErrorMessages & "
  • Please fill in your last name" end if if not CheckForValidCharacters( Last_Name) then ErrorMessages=ErrorMessages & "
  • You can't use odd or international characters in your last name." end if if len(Address)=0 then ErrorMessages=ErrorMessages & "
  • Please fill in your address" end if if not CheckForValidCharacters( Address ) then ErrorMessages=ErrorMessages & "
  • You can't use odd or international characters in your address." end if if not CheckForValidCharacters( Address2) then ErrorMessages=ErrorMessages & "
  • You can't use odd or international characters in the second line of your address." end if CityStZipMsg = CheckCityStZip( 0, city, state, zip, country ) if CityStZipMsg <> "good" then ErrorMessages=ErrorMessages & "
  • " & CityStZipMsg end if dim FirstNameValidationResult, LastNameValidationResult FirstNameValidationResult = NameValidation(First_Name ) LastNameValidationResult = NameValidation(Last_Name ) if FirstNameValidationResult <> "good" then ErrorMessages=ErrorMessages & "
  • " & FirstNameValidationResult end if if LastNameValidationResult <> "good" then ErrorMessages=ErrorMessages & "
  • " & LastNameValidationResult end if if len(birth_date)=0 then 'Okay to Leave This Null else if not isdate(birth_date) then ErrorMessages=ErrorMessages & "
  • Please use a valid birthdate: MM/DD/YYYY" end if end if if len(Email) = 0 then ErrorMessages=ErrorMessages & "
  • Please fill in an email address." else If test(Email) = False Then ErrorMessages=ErrorMessages & "
  • Please fill in a valid email address." else dim OnetimeTestDomain OnetimeTestDomain = CheckBannedDomains(Email) if OnetimeTestDomain <> "good" then ErrorMessages=ErrorMessages & "
  • " & OnetimetestDomain end if end if end if if request("title") = "" then title="null" if country = "other" then ErrorMessages=ErrorMessages & "
  • We're sorry. These offers are only valid for US and Canadian residents." end if qstring = "e=" & Email & "&f=" & First_name & "&l=" & Last_name & _ "&a1=" & address & "&c=" & City & "&s=" & State & "&z=" & Zip & _ "&cntry=" & Country & "&t=" & Title If ErrorMessages="" then '------------------------------- 'PROCESS onetime and demographic '------------------------------- '************* date_now=month(now) & "-" & day(now) & "-" & year(now) if len(birth_date)<>0 then birth_date = formatdatetime(birth_date) SQLStmt = q1 & Title & q2 & email & q2 & first_name & q2 & last_name & q2 & _ address & q2 & city & q2 & state & q2 & zip & q2 & _ Country & q2 & birth_date & q2 & Date_now & q2 & 1 & q1 else SQLStmt = q1 & Title & q2 & email & q2 & first_name & q2 & last_name & q2 & _ address & q2 & city & q2 & state & q2 & zip & q2 & _ Country & q2 & "1/1/1900" & q2 & Date_now & q2 & 1 & q1 end if SQLStmt = "sp_OneTimeAddMyFreeClub " & SQLStmt Conn.execute(SQLStmt) 'Call SendLetter( email, "myfreeclubhello.txt", "Welcome To MyFreeClub", "", "" ) 'call MailLyrisFromArrayQuiet( listarray, email ) response.Redirect("http://asp.myfree.com/onetime/MyFreeClub.asp?" & qstring) end if 'If ErrorMessages="" then CloseDB() end if 'If action="process" then '======================= ' SECTION 2-HTML '======================= %> SAVE BIG with MyFreeClub!
    Feedback  |  Help  |   What's New  |  Welcome MyFreeClub Members
    Angels
    Autos
    Bargains
    Books
    Bridal
      Entrepreneurs
      Work-at-Home
    Cash for Surfing
    Christmas
    College
    Cooking
    Crafts (General)
       Sewing
       Tole Painting
    Credit Cards
    eNewsletters
    Education
    Entertainment
    Entrepeneur
    Everyone
    Finance
    Government
    Health & Fitness
    Holidays
    Kids
    Lottery
    Magazines
    Newsletters
    On-Line
    Parents
    Recreation
      & Sports
    Resources
    Samples
    Sweepstakes
    Win a Vacation

    Work-at-Home

     

    Join FREE Now and start saving at these great places!!
     


     

     
     

     
    <% '=========================================== 'ERROR MESSAGE DISPLAY SECTION '=========================================== If len(ErrorMessages)>0 then %> <% end if %>

    We could not process your request due to the following errors. Please check your entries and resubmit the form:

      <%=ErrorMessages%>
    <%else 'DISPLAY HEADER%>

    Welcome to MyFreeClub.
    Be Among the First to Get Your FREE Membership Card and These GREAT Benefits...

    Discounts
    Your MyFreeClub Membership Card opens the door to fantastic savings. You'll qualify for special rates and discounts offered by hotels, restaurants, shops, theaters, concerts, movies, recreational facilities, vehicle rentals, air and rail travel. This card allows MyFreeClub members discounts ranging from 10% to 50% throughout the USA.

    Special Airfares
    Your MyFreeClub Membership Card also qualifies you for special airfares to Europe.

    Who Is Eligible?
    You are. As a friend of MyFree.com and its affiliates you may join FREE! Use the form below RIGHT NOW to get your card as soon as possible.

    Free Newsletter!
    Along with your membership card and benefits, you'll also receive our special insider's newsletter monthly, biweekly e-mail bulletins on special deals and new products plus other third-party product and service offers we know you'll find interesting.


    SIGN UP HERE FOR YOUR FREE
    MyFreeClub MEMBERSHIPCARD
    *=optional
    *Salutation:   Mr. Ms. Mrs.
    First Name:
    Last Name:
    Street:
    City:
    State:
    Zip:
    Country:
    E-Mail:
    *Date of Birth:
    (mm/dd/yyyy)

    copyright ©2003 MyFree.com LLC
    Genie figure and the MyFree logotype are protected trademarks