<% ' 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 Session.LCID = 1033 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("feedback_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(18) Dim arFormDBFields0(18) Dim arFormValues0(18) arFormFields0(0) = "Improve Lessons" arFormDBFields0(0) = "Improve_Lessons" arFormValues0(0) = Request("Improve Lessons") arFormFields0(1) = "Demo" arFormDBFields0(1) = "TryDemo" arFormValues0(1) = Request("Demo") arFormFields0(2) = "XX-send-to-email" arFormDBFields0(2) = "XX-send-to-email2" arFormValues0(2) = Request("XX-send-to-email") arFormFields0(3) = "OtherSuggestions" arFormDBFields0(3) = "OtherSuggestions" arFormValues0(3) = Request("OtherSuggestions") arFormFields0(4) = "XX-subject" arFormDBFields0(4) = "XX-subject1" arFormValues0(4) = Request("XX-subject") arFormFields0(5) = "Improve Music" arFormDBFields0(5) = "Improve_Music" arFormValues0(5) = Request("Improve Music") arFormFields0(6) = "ImproveLVL" arFormDBFields0(6) = "ImproveLVL" arFormValues0(6) = Request("ImproveLVL") arFormFields0(7) = "ImproveLesson" arFormDBFields0(7) = "ImproveLesson" arFormValues0(7) = Request("ImproveLesson") arFormFields0(8) = "ImproveMusic" arFormDBFields0(8) = "ImproveMusic2" arFormValues0(8) = Request("ImproveMusic") arFormFields0(9) = "Improve Other Areas" arFormDBFields0(9) = "Improve_Other_Areas" arFormValues0(9) = Request("Improve Other Areas") arFormFields0(10) = "ImproveGFX" arFormDBFields0(10) = "ImproveGFX" arFormValues0(10) = Request("ImproveGFX") arFormFields0(11) = "Name" arFormDBFields0(11) = "Name" arFormValues0(11) = Request("Name") arFormFields0(12) = "XX-redirect-to-url" arFormDBFields0(12) = "XX-redirect-to-url2" arFormValues0(12) = Request("XX-redirect-to-url") arFormFields0(13) = "EmailAddress" arFormDBFields0(13) = "EmailAddr" arFormValues0(13) = Request("EmailAddress") arFormFields0(14) = "Rating" arFormDBFields0(14) = "Rating" arFormValues0(14) = Request("Rating") arFormFields0(15) = "TryDemo" arFormDBFields0(15) = "TryDemo1" arFormValues0(15) = Request("TryDemo") arFormFields0(16) = "Improve Maps/Levels" arFormDBFields0(16) = "Improve_Maps/Levels" arFormValues0(16) = Request("Improve Maps/Levels") arFormFields0(17) = "EmailAddr" arFormDBFields0(17) = "EmailAddr1" arFormValues0(17) = Request("EmailAddr") 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 FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "feedback.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Interactive Parables

Give us your feedback on Interactive Parables!

Thank you for helping us improve our products.

 

How did you like the game?

Did you try the Demo?

Yes

No

What improvements would you like to see?

Better Graphics

Different Maps/Levels

Different Lessons

Better Music

Other

Name

Email Address

 

Click to buy.  More info at GraceWorks Interactive Site

The Interactive Parables is a fun, 3-D game combining lessons from the Parables of Jesus. There are twenty four lessons from Jesus' Parables grouped together by theme. Complete each lesson to win a crown. A great Bible-based product for your family, church or home school. Students 10 and older will enjoy it. Younger students would enjoy it as well with parent partners.

Within the game, you will fly, slide, jump, bounce, dodge, search, and solve puzzles in 20 game levels. Meanwhile, you are learning about the lesson based on Jesus' Parables. The Interactive Parables is a great tool to have fun and learn at the same time. With twenty four lessons, it fully covers every Parable told by Jesus Christ. It promotes understanding and retention while providing positive experiences for students. It requires Windows 98, ME, XP, or XP Pro and 3D graphics capability. It's packaged in either a full or slim-line jewel case.

The Interactive Parables Offers 24 Lessons and 20 Game Levels

Game Levels

  (c) 1998-2005, GraceWorks Interactive