% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next 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("knowledge_and_understanding_of_the German culture_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(83) Dim arFormDBFields0(83) Dim arFormValues0(83) arFormFields0(0) = "what instruments" arFormDBFields0(0) = "what_instruments" arFormValues0(0) = Request("what instruments") arFormFields0(1) = "agree/disagree" arFormDBFields0(1) = "agree/disagree" arFormValues0(1) = Request("agree/disagree") arFormFields0(2) = "gern/nicht" arFormDBFields0(2) = "gern/nicht" arFormValues0(2) = Request("gern/nicht") arFormFields0(3) = "answer phone call" arFormDBFields0(3) = "answer_phone_call" arFormValues0(3) = Request("answer phone call") arFormFields0(4) = "speak with distant family/friends" arFormDBFields0(4) = "speak_with_distant_family/friends" arFormValues0(4) = Request("speak with distant family/friends") arFormFields0(5) = "inquire where s.o. is from" arFormDBFields0(5) = "inquire_where_s_o__is_from" arFormValues0(5) = Request("inquire where s.o. is from") arFormFields0(6) = "describe family members and relationship" arFormDBFields0(6) = "describe_family_members_and_relationship" arFormValues0(6) = Request("describe family members and relationship") arFormFields0(7) = "24 hour clock" arFormDBFields0(7) = "24_hour_clock" arFormValues0(7) = Request("24 hour clock") arFormFields0(8) = "activities today" arFormDBFields0(8) = "activities_today" arFormValues0(8) = Request("activities today") arFormFields0(9) = "schoolsystems" arFormDBFields0(9) = "schoolsystems" arFormValues0(9) = Request("schoolsystems") arFormFields0(10) = "classroom routines" arFormDBFields0(10) = "classroom_routines" arFormValues0(10) = Request("classroom routines") arFormFields0(11) = "give s.o. my name" arFormDBFields0(11) = "give_s_o__my_name" arFormValues0(11) = Request("give s.o. my name") arFormFields0(12) = "specific event" arFormDBFields0(12) = "specific_event" arFormValues0(12) = Request("specific event") arFormFields0(13) = "Germany flag" arFormDBFields0(13) = "Germany_flag" arFormValues0(13) = Request("Germany flag") arFormFields0(14) = "bodylanguage" arFormDBFields0(14) = "bodylanguage" arFormValues0(14) = Request("bodylanguage") arFormFields0(15) = "ask s.o. name" arFormDBFields0(15) = "ask_s_o__name" arFormValues0(15) = Request("ask s.o. name") arFormFields0(16) = "likes/dislikes" arFormDBFields0(16) = "likes/dislikes" arFormValues0(16) = Request("likes/dislikes") arFormFields0(17) = "make an appointment" arFormDBFields0(17) = "make_an_appointment" arFormValues0(17) = Request("make an appointment") arFormFields0(18) = "what to wear" arFormDBFields0(18) = "what_to_wear" arFormValues0(18) = Request("what to wear") arFormFields0(19) = "what to do in class" arFormDBFields0(19) = "what_to_do_in_class" arFormValues0(19) = Request("what to do in class") arFormFields0(20) = "boy/girl name" arFormDBFields0(20) = "boy/girl_name" arFormValues0(20) = Request("boy/girl name") arFormFields0(21) = "speak with parents/grandparents" arFormDBFields0(21) = "speak_with_parents/grandparents" arFormValues0(21) = Request("speak with parents/grandparents") arFormFields0(22) = "greet 1" arFormDBFields0(22) = "greet_1" arFormValues0(22) = Request("greet 1") arFormFields0(23) = "tell age" arFormDBFields0(23) = "tell_age" arFormValues0(23) = Request("tell age") arFormFields0(24) = "other daily routines" arFormDBFields0(24) = "other_daily_routines" arFormValues0(24) = Request("other daily routines") arFormFields0(25) = "other German speaking countries" arFormDBFields0(25) = "other_German_speaking_countries" arFormValues0(25) = Request("other German speaking countries") arFormFields0(26) = "rivers, oceans, forests, mountains" arFormDBFields0(26) = "rivers,_oceans,_forests,_mountains" arFormValues0(26) = Request("rivers, oceans, forests, mountains") arFormFields0(27) = "rock" arFormDBFields0(27) = "rock" arFormValues0(27) = Request("rock") arFormFields0(28) = "describe where from" arFormDBFields0(28) = "describe_where_from" arFormValues0(28) = Request("describe where from") arFormFields0(29) = "point out family relationship to each other" arFormDBFields0(29) = "point_out_family_relationship_to_each_other" arFormValues0(29) = Request("point out family relationship to each other") arFormFields0(30) = "how to get home" arFormDBFields0(30) = "how_to_get_home" arFormValues0(30) = Request("how to get home") arFormFields0(31) = "what food " arFormDBFields0(31) = "what_food_" arFormValues0(31) = Request("what food ") arFormFields0(32) = "what job in class" arFormDBFields0(32) = "what_job_in_class" arFormValues0(32) = Request("what job in class") arFormFields0(33) = "identify neighboring countries" arFormDBFields0(33) = "identify_neighboring_countries" arFormValues0(33) = Request("identify neighboring countries") arFormFields0(34) = "lieber" arFormDBFields0(34) = "lieber" arFormValues0(34) = Request("lieber") arFormFields0(35) = "heavy metal" arFormDBFields0(35) = "heavy_metal" arFormValues0(35) = Request("heavy metal") arFormFields0(36) = "written instructions" arFormDBFields0(36) = "written_instructions" arFormValues0(36) = Request("written instructions") arFormFields0(37) = "Visited German speaking country NO" arFormDBFields0(37) = "Visited_German_speaking_country_NO" arFormValues0(37) = Request("Visited German speaking country NO") arFormFields0(38) = "day of the week" arFormDBFields0(38) = "day_of_the_week" arFormValues0(38) = Request("day of the week") arFormFields0(39) = "write letter or card" arFormDBFields0(39) = "write_letter_or_card" arFormValues0(39) = Request("write letter or card") arFormFields0(40) = "department store" arFormDBFields0(40) = "department_store" arFormValues0(40) = Request("department store") arFormFields0(41) = "common phrases/idioms" arFormDBFields0(41) = "common_phrases/idioms" arFormValues0(41) = Request("common phrases/idioms") arFormFields0(42) = "tell s.o. my phone number" arFormDBFields0(42) = "tell_s_o__my_phone_number" arFormValues0(42) = Request("tell s.o. my phone number") arFormFields0(43) = "activities" arFormDBFields0(43) = "activities" arFormValues0(43) = Request("activities") arFormFields0(44) = "how to get to school" arFormDBFields0(44) = "how_to_get_to_school" arFormValues0(44) = Request("how to get to school") arFormFields0(45) = "offer eat and drink" arFormDBFields0(45) = "offer_eat_and_drink" arFormValues0(45) = Request("offer eat and drink") arFormFields0(46) = "Austria flag" arFormDBFields0(46) = "Austria_flag" arFormValues0(46) = Request("Austria flag") arFormFields0(47) = "Switzerland flag" arFormDBFields0(47) = "Switzerland_flag" arFormValues0(47) = Request("Switzerland flag") arFormFields0(48) = "folk" arFormDBFields0(48) = "folk" arFormValues0(48) = Request("folk") arFormFields0(49) = "introduce s.o." arFormDBFields0(49) = "introduce_s_o_" arFormValues0(49) = Request("introduce s.o.") arFormFields0(50) = "Liechtenstein flag" arFormDBFields0(50) = "Liechtenstein_flag" arFormValues0(50) = Request("Liechtenstein flag") arFormFields0(51) = "report the weather" arFormDBFields0(51) = "report_the_weather" arFormValues0(51) = Request("report the weather") arFormFields0(52) = "Happy birthday" arFormDBFields0(52) = "Happy_birthday" arFormValues0(52) = Request("Happy birthday") arFormFields0(53) = "rooms and furniture" arFormDBFields0(53) = "rooms_and_furniture" arFormValues0(53) = Request("rooms and furniture") arFormFields0(54) = "states and capitols" arFormDBFields0(54) = "states_and_capitols" arFormValues0(54) = Request("states and capitols") arFormFields0(55) = "geo diff" arFormDBFields0(55) = "geo_diff" arFormValues0(55) = Request("geo diff") arFormFields0(56) = "rap" arFormDBFields0(56) = "rap" arFormValues0(56) = Request("rap") arFormFields0(57) = "express time conversational" arFormDBFields0(57) = "express_time_conversational" arFormValues0(57) = Request("express time conversational") arFormFields0(58) = "suggestions" arFormDBFields0(58) = "suggestions" arFormValues0(58) = Request("suggestions") arFormFields0(59) = "16 states" arFormDBFields0(59) = "16_states" arFormValues0(59) = Request("16 states") arFormFields0(60) = "hiphop" arFormDBFields0(60) = "hiphop" arFormValues0(60) = Request("hiphop") arFormFields0(61) = "other music " arFormDBFields0(61) = "other_music_" arFormValues0(61) = Request("other music ") arFormFields0(62) = "other music" arFormDBFields0(62) = "other_music" arFormValues0(62) = Request("other music") arFormFields0(63) = "spoken instructions" arFormDBFields0(63) = "spoken_instructions" arFormValues0(63) = Request("spoken instructions") arFormFields0(64) = "Level of German" arFormDBFields0(64) = "Level_of_German" arFormValues0(64) = Request("Level of German") arFormFields0(65) = "hobbies/interests" arFormDBFields0(65) = "hobbies/interests" arFormValues0(65) = Request("hobbies/interests") arFormFields0(66) = "clothing" arFormDBFields0(66) = "clothing" arFormValues0(66) = Request("clothing") arFormFields0(67) = "classical" arFormDBFields0(67) = "classical" arFormValues0(67) = Request("classical") arFormFields0(68) = "ask s.o. age" arFormDBFields0(68) = "ask_s_o__age" arFormValues0(68) = Request("ask s.o. age") arFormFields0(69) = "date order" arFormDBFields0(69) = "date_order" arFormValues0(69) = Request("date order") arFormFields0(70) = "class objects" arFormDBFields0(70) = "class_objects" arFormValues0(70) = Request("class objects") arFormFields0(71) = "what sports" arFormDBFields0(71) = "what_sports" arFormValues0(71) = Request("what sports") arFormFields0(72) = "tell homework" arFormDBFields0(72) = "tell_homework" arFormValues0(72) = Request("tell homework") arFormFields0(73) = "daily routines described" arFormDBFields0(73) = "daily_routines_described" arFormValues0(73) = Request("daily routines described") arFormFields0(74) = "choose and order food" arFormDBFields0(74) = "choose_and_order_food" arFormValues0(74) = Request("choose and order food") arFormFields0(75) = "exported products" arFormDBFields0(75) = "exported_products" arFormValues0(75) = Request("exported products") arFormFields0(76) = "what hobbies" arFormDBFields0(76) = "what_hobbies" arFormValues0(76) = Request("what hobbies") arFormFields0(77) = "discuss purchase" arFormDBFields0(77) = "discuss_purchase" arFormValues0(77) = Request("discuss purchase") arFormFields0(78) = "prizes" arFormDBFields0(78) = "prizes" arFormValues0(78) = Request("prizes") arFormFields0(79) = "Speak with friends" arFormDBFields0(79) = "Speak_with_friends" arFormValues0(79) = Request("Speak with friends") arFormFields0(80) = "express how I feel" arFormDBFields0(80) = "express_how_I_feel" arFormValues0(80) = Request("express how I feel") arFormFields0(81) = "products" arFormDBFields0(81) = "products" arFormValues0(81) = Request("products") arFormFields0(82) = "products of other countries" arFormDBFields0(82) = "products_of_other_countries" arFormValues0(82) = Request("products of other countries") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" 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 FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "knowledge_and_understanding_of_the%20German%20culture.asp",_ "Return to the form." End If End If %>
Dear German student,
I would appreciate if you take a little time to fill out this survey. This information is confidential , anonymous, and solely used to evaluate and improve the Foreign Language Program. Hope you have fun in finding out how much you learned. Thank you for you time.
Elke Kuege Last updated: April 10, 2008