SAVE BIG with MyFreeClub!

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

Today's Survey | Tell A Friend | Bulletin Board | FREE Classified | Send a Postcard

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)