<%@ Language="VBScript" %> <% Option Explicit %> <% Response.Buffer = true %> <% function validateEmail(email) validateEmail = (Instr(email,"@") > 0) end function function isEmpty(sText) Dim RequiredField if isEmpty = (sText = "") then RequiredField = "*Required" else RequiredField = "" end if end function function YesNo(value) select case value case "send_info": YesNo = 1 case "Select_All": YesNo = 1 case "wedding_in_vegas": YesNo = 1 case "reception_in_vegas": YesNo = 1 case "yes": YesNo = 1 case else: YesNo = 0 end select end function Dim strEmail 'string to send email to Dim boolSubmit 'did user click on submit button? Dim boolValidEmail 'validates email string Dim boolValidField 'validates required fields Dim arr Dim strError Dim strCustomerBody 'Check to see if the user clicked ont the submit button boolSubmit = (Request.Form("SUBMIT") <> "") 'Innocent until proven guilty boolValidEmail = True boolValidField = True 'do the input validattion if boolSubmit then boolValidEmail = validateEmail(Request.Form("email")) 'the information is good to go if boolValidEmail then 'For Sending Email Notification strEmail = strEmail & "Time: " & Now() & vbcrlf strEmail = strEmail & "First Name: " & Request.Form("fname") & vbcrlf strEmail = strEmail & "Last Name: " & Request.Form("lname") & vbcrlf strEmail = strEmail & "Street: " & Request.Form("street") & vbcrlf strEmail = strEmail & "City: " & Request.Form("city") & vbcrlf strEmail = strEmail & "State: " & Request.Form("state") & vbcrlf strEmail = strEmail & "Zip: " & Request.Form("zip") & vbcrlf strEmail = strEmail & "Phone: " & Request.Form("phone") & vbcrlf strEmail = strEmail & "Email: " & Request.Form("email") 'prepare data to insert records into the database arr = array(Request.Form("lname"),Request.Form("fname"), _ Request.Form("street"),Request.Form("city"),Request.Form("state"), _ Request.Form("zip"), Request.Form("phone"),Request.Form("email"), Request.Form("best_way_to_contact"), _ Request.Form("month"), Request.Form("day"), Request.Form("year"), Request.Form("Number_of_Guests"), _ YesNo(Request.Form("wedding_in_vegas")), YesNo(Request.Form("reception_in_vegas")), YesNo(Request.Form("Select_All")), YesNo(Request.Form("Strip_Chapels")), _ YesNo(Request.Form("Hotel_Chapels")), YesNo(Request.Form("Wedding_Reception_Locations")), YesNo(Request.Form("Country_Clubs")), _ YesNo(Request.Form("Banquet_Halls")), YesNo(Request.Form("Accessories")), YesNo(Request.Form("Apts_Homes")), _ YesNo(Request.Form("Bachelor_Parties")), YesNo(Request.Form("Bridal_Attire")), YesNo(Request.Form("Bridal_Shows")), _ YesNo(Request.Form("Cakes")), YesNo(Request.Form("Car_Rentals")),YesNo(Request.Form("Caterers")), YesNo(Request.Form("Consultants")), _ YesNo(Request.Form("Coupons")), YesNo(Request.Form("DJs")), YesNo(Request.Form("Floral_Preservation")), _ YesNo(Request.Form("Florists")), YesNo(Request.Form("Formalwear")), YesNo(Request.Form("Gifts")), _ YesNo(Request.Form("Beauty_Health")), YesNo(Request.Form("Gown_Preservation")), YesNo(Request.Form("Honeymoons")), _ YesNo(Request.Form("Ice_Sculptures")), YesNo(Request.Form("Invitations")), YesNo(Request.Form("Jewelry")), _ YesNo(Request.Form("Limousines")), YesNo(Request.Form("Name_Change_Kit")), YesNo(Request.Form("Officiants")), _ YesNo(Request.Form("Party_Rentals")), YesNo(Request.Form("Photography")), _ YesNo(Request.Form("Tuxedos")), YesNo(Request.Form("Videography")), YesNo(Request.Form("Wedding_Gowns")), YesNo(Request.Form("Weight_Loss")), _ YesNo(Request.Form("Create_Vow_Kit")),YesNo(Request.Form("Personalized_Web")), YesNo(Request.Form("Elvis_Weddings")), YesNo(Request.Form("Gothic_Weddings")), _ YesNo(Request.Form("Halloween_Weddings")), YesNo(Request.Form("Harley_Weddings")), YesNo(Request.Form("Helicopter_Weddings")), _ YesNo(Request.Form("Red_Rock_Weddings")), YesNo(Request.Form("Valentine_Weddings")), YesNo(Request.Form("Casinos_Hotels")), _ YesNo(Request.Form("Golfing")), YesNo(Request.Form("Las_Vegas_Shows")), YesNo(Request.Form("Restaurants")), _ Request.Form("How_Did_You_Find_VegasVows"), Request.Form("Comments_About_This_Site"), _ Request.Form("Comments_Questions"),YesNo(Request.Form("chk_contest")), YesNo(Request.Form("chk_freebag"))) 'add the record to the database strError = "" If not AddCustomer(arr, cstring) then strError = "NOTE: UNABLE TO ADD THIS CONTACT TO THE DATABASE" & vbcrlf strError = strError & "ERRORNUM: " & err.number & vbcrlf strError = strError & "ERRORDESC: " & err.description & vbcrlf Response.Write err.number & " " & err.description Response.End End If 'send email message to appropriate parties Call SendEmail(Request.Form("email"), toEmail,"","FREE Stuff Request", strError & strEmail) 'Redirect to a thankyou page Response.Redirect "/freebag-thanks.asp?name=" & Request.Form("fname") end if end if %> Free Bag O Stuff - Normal Delivery
Welcome... to our FREE BAG O STUFF order page.

Once a month we mail out envelopes full of color brochures, flyers, coupons, etc., from most of the wedding professionals who advertise on VegasVows.com! These envelopes are FREE for you; the Bride, Groom, or friend...

... PLEASE READ THE DETAILS:
  • This is only available for persons gathering information for an upcoming wedding in Las Vegas.
  • Your information will be forwarded to our advertisers for marketing purposes.
  • Double check your information, errors will be deleted.
  • We usually send these out every 2 weeks, but because of bulk mail policies, please allow for 4 to 8 weeks for delivery.
  • This service is only available for the continental U.S.
  • If you select "email" as the best way for professionals to contact you, you will also receive information from our advertisers via email (recommended).
  • Ready? Simply enter your information below and click the submit button.
Personal Info
First Name
 Last Name
 Street Address
City
 State
 Zip
 E-Mail
Phone with area code
Best Way for Professionals to Contact You
E-mail Phone US Mail
Wedding Info
Wedding Date (approx):
Month:
Day:
Year:
*How many guests will be at your wedding?
Wedding & Reception Location::
Is the wedding ceremony going to be in Las Vegas?yes no
Is the wedding reception going to be in Las Vegas?yes no
So that our wedding professionals may serve you better, please select any items that you need for your Las Vegas Wedding.
 Select All
Chapels & Receptions:
Strip Chapels Hotel Chapels Wedding & Reception Locations
Country Clubs Banquet Halls
Services & Products:
Accessories Apartments/New Homes Bachelor/ette Parties Bridal Attire
Bridal Shows Cakes Car Rentals, Corvettes, etc.
Caterers Consultants Coupons/Discounts Disc Jockeys
Floral Preservation Florists Formalwear Gifts
Hair & Make Up Gown Preservation Honeymoons Ice Sculptures
Invitations Jewelry Limousines Name Change Kit
Officiants Party Rentals Photography Tuxedos
Videography
Wedding Gowns
Weight Loss
 Create A Vow Kit
Personalized Wedding Websites
Only In Vegas:
Elvis Weddings Gothic Weddings Halloween Weddings Harley Weddings
Helicopter Weddings Red Rock Weddings Valentine's Weddings
Las Vegas Info:
Casinos & Hotels Golfing Las Vegas Shows Restaurants
How did you find this site? Comments on this site?
Specific Questions or Comments:

~ Tell A Friend About VegasVows.com! ~

~ Recieve our newsletter! ~

Email:

This site is owned & operated by Morgan Marketing Group, Inc.
Morgan Marketing Group
Las Vegas Wedding Chapels and Las Vegas Reception Sites | Wedding Vendors
Las Vegas Information | Free Bag Of Wedding Stuff | Free Wedding Coupons | Bride's Message Board |
Honeymoons In Vegas | Planning Toolbox | Only In Vegas! | Privacy Policy | Advertising | Home
The products and services referenced in this site are provided by parties other than Morgan Marketing Group, Inc. Morgan Marketing Group, Inc. makes no representations regarding either the products and services or any information about the products and services. Any questions, complaints, or claims regarding the products and services must be directed to the appropriate manufacturer or vendor.
© 1998 through 2008 All rights reserved.
Site Designed, Owned, and Managed by: Morgan Marketing Group, Inc.
Phone (702) 889-0232 | Fax (702) 889-3532
Click here for advertising information and pricing
VegasVows.com accepts MasterCard VegasVows.com accepts Visa VegasVows.com accepts American Express