<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("schoolbooking_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(52) Dim arFormDBFields0(52) Dim arFormValues0(52) arFormFields0(0) = "prefer_morning" arFormDBFields0(0) = "prefer_morning" arFormValues0(0) = Request("prefer_morning") arFormFields0(1) = "prefer_february" arFormDBFields0(1) = "prefer_february" arFormValues0(1) = Request("prefer_february") arFormFields0(2) = "prefer_Tuesday" arFormDBFields0(2) = "prefer_Tuesday" arFormValues0(2) = Request("prefer_Tuesday") arFormFields0(3) = "in_other" arFormDBFields0(3) = "in_other" arFormValues0(3) = Request("in_other") arFormFields0(4) = "in_gym" arFormDBFields0(4) = "in_gym" arFormValues0(4) = Request("in_gym") arFormFields0(5) = "attending_3rd" arFormDBFields0(5) = "attending_3rd" arFormValues0(5) = Request("attending_3rd") arFormFields0(6) = "in_lunchroom" arFormDBFields0(6) = "in_lunchroom" arFormValues0(6) = Request("in_lunchroom") arFormFields0(7) = "prefer_wednesday" arFormDBFields0(7) = "prefer_wednesday" arFormValues0(7) = Request("prefer_wednesday") arFormFields0(8) = "attending_4th" arFormDBFields0(8) = "attending_4th" arFormValues0(8) = Request("attending_4th") arFormFields0(9) = "attending_2nd" arFormDBFields0(9) = "attending_2nd" arFormValues0(9) = Request("attending_2nd") arFormFields0(10) = "school_lunchstart" arFormDBFields0(10) = "school_lunchstart" arFormValues0(10) = Request("school_lunchstart") arFormFields0(11) = "prefer_thursday" arFormDBFields0(11) = "prefer_thursday" arFormValues0(11) = Request("prefer_thursday") arFormFields0(12) = "attending_total" arFormDBFields0(12) = "attending_total" arFormValues0(12) = Request("attending_total") arFormFields0(13) = "attending_5th" arFormDBFields0(13) = "attending_5th" arFormValues0(13) = Request("attending_5th") arFormFields0(14) = "attending_preK" arFormDBFields0(14) = "attending_preK" arFormValues0(14) = Request("attending_preK") arFormFields0(15) = "bookers_besttime" arFormDBFields0(15) = "bookers_besttime" arFormValues0(15) = Request("bookers_besttime") arFormFields0(16) = "bookers_email" arFormDBFields0(16) = "bookers_email" arFormValues0(16) = Request("bookers_email") arFormFields0(17) = "principal_email" arFormDBFields0(17) = "principal_email" arFormValues0(17) = Request("principal_email") arFormFields0(18) = "school_phone" arFormDBFields0(18) = "school_phone" arFormValues0(18) = Request("school_phone") arFormFields0(19) = "prefer_december" arFormDBFields0(19) = "prefer_december" arFormValues0(19) = Request("prefer_december") arFormFields0(20) = "bookers_phone" arFormDBFields0(20) = "bookers_phone" arFormValues0(20) = Request("bookers_phone") arFormFields0(21) = "principal_phone" arFormDBFields0(21) = "principal_phone" arFormValues0(21) = Request("principal_phone") arFormFields0(22) = "booking_extras" arFormDBFields0(22) = "booking_extras" arFormValues0(22) = Request("booking_extras") arFormFields0(23) = "prefer_march" arFormDBFields0(23) = "prefer_march" arFormValues0(23) = Request("prefer_march") arFormFields0(24) = "prefer_january" arFormDBFields0(24) = "prefer_january" arFormValues0(24) = Request("prefer_january") arFormFields0(25) = "school_zipcode" arFormDBFields0(25) = "school_zipcode" arFormValues0(25) = Request("school_zipcode") arFormFields0(26) = "prefer_afternoon" arFormDBFields0(26) = "prefer_afternoon" arFormValues0(26) = Request("prefer_afternoon") arFormFields0(27) = "bookers_position" arFormDBFields0(27) = "bookers_position" arFormValues0(27) = Request("bookers_position") arFormFields0(28) = "school_address" arFormDBFields0(28) = "school_address" arFormValues0(28) = Request("school_address") arFormFields0(29) = "school_lunchend" arFormDBFields0(29) = "school_lunchend" arFormValues0(29) = Request("school_lunchend") arFormFields0(30) = "sendinfo_no" arFormDBFields0(30) = "sendinfo_no" arFormValues0(30) = Request("sendinfo_no") arFormFields0(31) = "sendinfo_yes" arFormDBFields0(31) = "sendinfo_yes" arFormValues0(31) = Request("sendinfo_yes") arFormFields0(32) = "prefer_october" arFormDBFields0(32) = "prefer_october" arFormValues0(32) = Request("prefer_october") arFormFields0(33) = "in_gymlunchroom" arFormDBFields0(33) = "in_gymlunchroom" arFormValues0(33) = Request("in_gymlunchroom") arFormFields0(34) = "bookers_lastname" arFormDBFields0(34) = "bookers_lastname" arFormValues0(34) = Request("bookers_lastname") arFormFields0(35) = "principal_firstname" arFormDBFields0(35) = "principal_firstname" arFormValues0(35) = Request("principal_firstname") arFormFields0(36) = "school_start" arFormDBFields0(36) = "school_start" arFormValues0(36) = Request("school_start") arFormFields0(37) = "school_state" arFormDBFields0(37) = "school_state" arFormValues0(37) = Request("school_state") arFormFields0(38) = "school_city" arFormDBFields0(38) = "school_city" arFormValues0(38) = Request("school_city") arFormFields0(39) = "prefer_april" arFormDBFields0(39) = "prefer_april" arFormValues0(39) = Request("prefer_april") arFormFields0(40) = "attending_kdgn" arFormDBFields0(40) = "attending_kdgn" arFormValues0(40) = Request("attending_kdgn") arFormFields0(41) = "prefer_friday" arFormDBFields0(41) = "prefer_friday" arFormValues0(41) = Request("prefer_friday") arFormFields0(42) = "prefer_November" arFormDBFields0(42) = "prefer_November" arFormValues0(42) = Request("prefer_November") arFormFields0(43) = "prefer_september" arFormDBFields0(43) = "prefer_september" arFormValues0(43) = Request("prefer_september") arFormFields0(44) = "school_name" arFormDBFields0(44) = "school_name" arFormValues0(44) = Request("school_name") arFormFields0(45) = "attending_1st" arFormDBFields0(45) = "attending_1st" arFormValues0(45) = Request("attending_1st") arFormFields0(46) = "prefer_monday" arFormDBFields0(46) = "prefer_monday" arFormValues0(46) = Request("prefer_monday") arFormFields0(47) = "school_end" arFormDBFields0(47) = "school_end" arFormValues0(47) = Request("school_end") arFormFields0(48) = "prefer_may" arFormDBFields0(48) = "prefer_may" arFormValues0(48) = Request("prefer_may") arFormFields0(49) = "bookers_firstname" arFormDBFields0(49) = "bookers_firstname" arFormValues0(49) = Request("bookers_firstname") arFormFields0(50) = "principal_lastname" arFormDBFields0(50) = "principal_lastname" arFormValues0(50) = Request("principal_lastname") arFormFields0(51) = "school_webpage" arFormDBFields0(51) = "school_webpage" arFormValues0(51) = Request("school_webpage") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "schoolbookingconfirmation.asp" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Thank you for your interest in A Friendship Adventure with Ronald McDonald™

Please note:
This system is only booking for
Wisconsin area-codes 608 & 920 & 715
Michigan area-code 906

Dear Educator,

McDonald’s® is pleased to announce the arrival of a new Ronald McDonald® show, “A Friendship Adventure with Ronald McDonald™.”

This show has been endorsed by noted author and Kids/Parenting expert, Dr. Michele Borba and contains great new songs, magic and audience participation games that help to deliver the important messages of-
                       ·         Friendship
                       ·         Cooperation
                       ·         Anti-bullying and
                       ·         Active Play

We hope that you will consider booking A Friendship Adventure with Ronald McDonald at your school.  It is free of charge and can be scheduled by filling out the form below.
 
 School Information
School Name
Street Address
City
State
Zip Code
Phone
School Start Time
School End Time
Lunch Start Time
Lunch End Time
School Webpage
 Principal Information
First Name
Last Name
Phone
E-mail
 Show Bookers Information
First Name
Last Name
Title/Position
Phone
E-mail
Best Contact Time
 Show Information
grades attending show:
Pre-K, Kdgn, 1st, 2nd, 3rd, 4th, 5th
estimated number of students attending show
the show will be held in the:
gym, gym/lunchroom, lunchroom, other
 Preferred Show Time
preferred month:
September,October,November,December
January,February,March,April,May
preferred day:
Monday,Tuesday,Wednesday,Thursday,Friday
preferred time:
morning,afternoon
 General Information
Any other information you feel that might be helpful in this booking:


Please send us information for next years school show Yes,No

 

Author: David J Heim
Copyright © 2007 [McDonald's]. All rights reserved.
schoolshow@mcdonaldlandmail.com

Hit Counter
October 12th, 2007 1:00pm