<% If Request.Form("SubmitForm") = "TRUE" Then Response.Write("") Else ShowForm() End If Function ShowForm %> <% End Function %>
") If Request.Form("FirstName") = "" OR Request.Form("LastName") = "" OR Request.Form("Tracking") = "Choose One" OR Request.Form("CompanyName") = "" OR Request.Form("Address1") = "" OR Request.Form("City") = "" OR Request.Form("State") = "" OR Request.Form("Zip") = "" OR Request.Form("Email") = "" OR Request.Form("DaytimePhone") = "" OR Request.Form("EventDate") = "" OR Request.Form("ExpectedAttendance") = "" Then Response.Write("

You have left the following required field(s) blank.

") Response.Write("") If Request.Form("FirstName") = "" Then Response.Write("") End If If Request.Form("LastName") = "" Then Response.Write("") End If If Request.Form("Tracking") = "Choose One" Then Response.Write("") End If If Request.Form("CompanyName") = "" Then Response.Write("") End If If Request.Form("Address1") = "" Then Response.Write("") End If If Request.Form("City") = "" Then Response.Write("") End If If Request.Form("State") = "" Then Response.Write("") End If If Request.Form("Zip") = "" Then Response.Write("") End If If Request.Form("Email") = "" Then Response.Write("") End If If Request.Form("DaytimePhone") = "" Then Response.Write("") End If If Request.Form("EventDate") = "" Then Response.Write("") End If If Request.Form("ExpectedAttendance") = "" Then Response.Write("") End If Response.Write("
  • First Name
  • Last Name
  • Where did you hear about us?
  • Company Name
  • Address
  • City
  • State
  • Zip
  • Email
  • Daytime Phone
  • Event Date
  • Expected Attendance
  • ") Response.Write("
    Please click 'Back' and enter this information.

    ") Response.Write("

    ") Else set FormRequestsRS = Server.CreateObject("ADODB.RecordSet") FormRequestsRS.Open "FormRequests", conn, 1, 3 FormRequestsRS.AddNew FormRequestsRS.Fields("FromSite") = Request.ServerVariables("SERVER_NAME") If Request.Form("FirstName") <> "" Then FormRequestsRS.Fields("FirstName") = Request.Form("FirstName") End If If Request.Form("MiddleName") <> "" Then FormRequestsRS.Fields("MiddleName") = Request.Form("MiddleName") End If If Request.Form("LastName") <> "" Then FormRequestsRS.Fields("LastName") = Request.Form("LastName") End If If Request.Form("Address1") <> "" Then FormRequestsRS.Fields("Address1") = Request.Form("Address1") End If If Request.Form("Address2") <> "" Then FormRequestsRS.Fields("Address2") = Request.Form("Address2") End If If Request.Form("City") <> "" Then FormRequestsRS.Fields("City") = Request.Form("City") End If If Request.Form("State") <> "" Then FormRequestsRS.Fields("State") = Request.Form("State") End If If Request.Form("Zip") <> "" Then FormRequestsRS.Fields("Zip") = Request.Form("Zip") End If If Request.Form("Country") <> "" Then FormRequestsRS.Fields("Country") = Request.Form("Country") End If If Request.Form("DaytimePhone") <> "" Then FormRequestsRS.Fields("DaytimePhone") = Request.Form("DaytimePhone") End If If Request.Form("EveningPhone") <> "" Then FormRequestsRS.Fields("EveningPhone") = Request.Form("EveningPhone") End If If Request.Form("Fax") <> "" Then FormRequestsRS.Fields("Fax") = Request.Form("Fax") End If If Request.Form("Email") <> "" Then FormRequestsRS.Fields("Email") = Request.Form("Email") End If If Request.Form("BestTime") <> "" Then FormRequestsRS.Fields("BestTime") = Request.Form("BestTime") End If FormRequestsRS.Update Dim myMail Dim HTML Set myMail = CreateObject("CDONTS.NewMail") HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
    Name:" HTML = HTML & Request.Form("FirstName") If Request.Form("MiddleName") <> "" Then HTML = HTML & " " & Request.Form("MiddleName") End If HTML = HTML & " " & Request.Form("LastName") HTML = HTML & "
    Company Name:" HTML = HTML & Request.Form("CompanyName") HTML = HTML & "
    Address:" HTML = HTML & Request.Form("Address1") & " " & Request.Form("Address2") HTML = HTML & "
    City:" HTML = HTML & Request.Form("City") HTML = HTML & "
    State:" HTML = HTML & Request.Form("State") HTML = HTML & "
    Zip:" HTML = HTML & Request.Form("Zip") HTML = HTML & "
    Country:" HTML = HTML & Request.Form("Country") HTML = HTML & "
    Daytime Phone:" HTML = HTML & Request.Form("DaytimePhone") HTML = HTML & "
    Evening Phone:" HTML = HTML & Request.Form("EveningPhone") HTML = HTML & "
    Fax:" HTML = HTML & Request.Form("Fax") HTML = HTML & "
    Email:" HTML = HTML & Request.Form("Email") HTML = HTML & "
    Where did you hear about us?:" HTML = HTML & Request.Form("Tracking") HTML = HTML & "
    Best Time to Contact:" HTML = HTML & Request.Form("BestTime") HTML = HTML & "
    Event Date:" HTML = HTML & Request.Form("EventDate") HTML = HTML & "
    Event Time:" HTML = HTML & Request.Form("EventTime") HTML = HTML & "
    Event Location:" HTML = HTML & Request.Form("EventLocation") HTML = HTML & "
    Expected Attendance:" HTML = HTML & Request.Form("ExpectedAttendance") HTML = HTML & "
    Location Secured:" HTML = HTML & Request.Form("Location_Secured") HTML = HTML & "
    Need to Provide Power:" HTML = HTML & Request.Form("Need_to_Provide_Power") HTML = HTML & "
    Need to Provide Restrooms:" HTML = HTML & Request.Form("Need_to_Provide_Restrooms") HTML = HTML & "
    Need to Provide Cleanup:" HTML = HTML & Request.Form("Need_to_Provide_Cleanup") HTML = HTML & "
    Fun for All:" HTML = HTML & Request.Form("FUN FOR ALL") HTML = HTML & "
    Fun for Kids:" HTML = HTML & Request.Form("FUN FOR KIDS") HTML = HTML & "
    Water Fun:" HTML = HTML & Request.Form("WATER FUN") HTML = HTML & "
    Interactive:" HTML = HTML & Request.Form("INTERACTIVE") HTML = HTML & "
    Creation Station:" HTML = HTML & Request.Form("CREATION STATION") HTML = HTML & "
    Sports Events:" HTML = HTML & Request.Form("SPORTS EVENTS") HTML = HTML & "
    Carnival Games:" HTML = HTML & Request.Form("CARNIVAL GAMES") HTML = HTML & "
    Drinks:" HTML = HTML & Request.Form("Drinks") HTML = HTML & "
    Catering:" HTML = HTML & Request.Form("CATERING") HTML = HTML & "
    Music & Entertainment:" HTML = HTML & Request.Form("MUSIC & ENTERTAINMENT") HTML = HTML & "
    Casino:" HTML = HTML & Request.Form("Casino") HTML = HTML & "
    Desserts:" HTML = HTML & Request.Form("Desserts") HTML = HTML & "
    Concessions:" HTML = HTML & Request.Form("CONCESSIONS") HTML = HTML & "
    Sides:" HTML = HTML & Request.Form("SIDES") HTML = HTML & "
    Decorations:" HTML = HTML & Request.Form("DECORATIONS") HTML = HTML & "
    Extras:" HTML = HTML & Request.Form("EXTRAS") HTML = HTML & "
    Comments:" HTML = HTML & Request.Form("Comments") HTML = HTML & "
    " myMail.From = "Request@SpectacularEvents.com" myMail.To = "robert.leroux@spectacularevents.com" myMail.Subject = "SE Website Quote Request" myMail.BodyFormat = 0 myMail.MailFormat = 0 myMail.Body = HTML myMail.Send Response.Write("Thank you. Your contact request has been sent.") Response.Write("") End If Response.Write("
    Please enter the following information:
    First Name*:
    Middle Name:
    Last Name*:
    Company Name*:
    Address*:
    Address:
    City*:
    State*:
    Zip*:
    County:
    Daytime Phone*:
    Evening Phone:
    Fax:
    Email*:
    How did you here about
     Spectacular Events:*
    Best Time to Contact You?:
    Event Date*:
    Event Time:
    Event Location:
    Expected Attendance*:

    Is the Location Secured? Yes No
    Do We Need to Provide power? Yes No
    Do We Need to Provide Restrooms? Yes No
    Do We Need to Provide Clean-Up Service? Yes No

    Please select the items you are interested in having at your event.

    FUN FOR ALL
    Victory Lap Slide
    Wally Whale Slide
    Crash Course Obstacle Course
    Spider Man Obstacle Course
    Tiki Rock Climb
    Dual Sport Bungee
    Safari Challenge
    Titanic Adventure Slide
    Bungee Run
    Buddy Boxing
    Gladiator Joust
    High Striker
    Slot Car Racing
    Alien Laser Tag
    Giant Slide
    Inflatable Obstacle Course
    Trackless Train
    Fire Engine
    Fruit Spin
    Crazy Eight Slot Car Racing
    Rock Climbing Wall
    Off With Your Head
    Movie Screen
    Jet Sled
    Safari Challenge
    Dual Gyroscope
    Movie
    Rocket Slide
    Colorful Slide
    Safari Challenge


    CATERING
    Hamburgers
    Hot Dogs
    Chicken
    BBQ Pork
    Bratwurst
    Ribs


    SIDES
    Baked Beans
    Potato Salad
    Cole Slaw
    Potato Chips
    Pasta Salad
    Tossed Salad
    Corn on the Cob


    DRINKS
    Tea & Lemonade
    Sodas
    Fruit Punch

    FUN FOR KIDS
    Kiddy Area
    Laugh & Learn Play Center
    Ultimate Gator
    Caterpillar
    Under the Sea Tunnel
    Helium Balloon Setup
    Space Jump
    Sea of Balls
    Animal Bounce
    Crayon Bounce
    Train Crawl
    Under the Sea Tunnel

    CREATION STATION
    Spin Art
    Body Art
    Sand Art
    Visor Art
    Edible Art
    Glitter Name Tags
    Bead Works
    Stamp Station


    INTERACTIVE
    Relays Bingo
    Clowns
    Barnyard Treasure Hunt
    Spectacular Shopping


    CARNIVAL GAMES
    Kool Pool
    Milk Can Toss
    Fish Pond
    Crossbow
    Loop D Doo
    Frog Launch
    Roller Bowler
    Shooting Gallery
    Five Pin Bowl
    Plus many many more !!! Ask For Info.


    CONCESSIONS
    Cotton Candy
    Sno-Cones
    Popcorn
    Nachos
    Ice Cream
    Funnel Cakes


    DESSERTS
    Cookies
    Brownies

    WATER FUN
    Backyard Water Slide
    Royal Flush
    Water Slide
    Dunk Tank
    Water Tag Arena


    SPORTS EVENTS
    Radar Speed Pitch
    Batting Cage
    Golf Driving
    Dual Hoops
    Flag Football
    Soft Ball
    Portable Basketball Goal
    Golf Chipping
    Soccer Kick
    *Softball bats, balls, and bases available


    MUSIC & ENTERTAINMENT
    Clowns
    Sound Systems
    DJ
    Karaoke


    CASINO
    Black Jack
    Wheel of Fortune
    Poker
    Texas Hold'em
    Five Card Draw


    EXTRAS
    Welcome Tent
    Banners
    Portable Toilets
    Baby Changing Stations
    Staging
    Emergency Medical Personnel
    Tents
    Tables
    Chairs


    DECORATIONS
    Vertitubes
    Balloon Arch
    Candy Cane Arch



    Comments:
    * Denotes Required Fields
      

    © 2017 Spectacular Events