<% strDB = "Borel.mdb" 'Database MapPath strTable = "tblsurvey" '************************************** 'Set your database - ' change the MapPath to your ' database folder '************************************** Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "DATA SOURCE=" & server.MapPath(strDB) if request("a") = null then request("a") = " " end if if request("b") = null then request("b") = " " end if if request("c") = null then request("c") = " " end if if request("c2") = null then request("c2") = " " end if if request("c3") = null then request("c3") = " " end if if request("c4") = null then request("c4") = " " end if if request("d") = null then request("d") = " " end if if request("e") = null then request("e") = " " end if if request("f") = null then request("f") = " " end if if request("g") = null then request("g") = " " end if if request("g2") = null then request("g2") = " " end if if request("h") = null then request("h") = " " end if if request("i") = null then request("i") = " " end if if request("j") = null then request("j") = " " end if if request("j2") = null then request("j2") = " " end if if request("k") = null then request("k") = " " end if if request("k2") = null then request("k2") = " " end if if request("k3") = null then request("k3") = " " end if if request("k4") = null then request("k4") = " " end if if request("k5") = null then request("k5") = " " end if if request("k6") = null then request("k6") = " " end if if request("k8") = null then request("k8") = " " end if if request("L") = null then request("L1") = " " end if if request("l2") = null then request("l2") = " " end if if request("l3") = null then request("l3") = " " end if if request("l4") = null then request("l4") = " " end if if request("l5") = null then request("l5") = " " end if if request("l6") = null then request("l6") = " " end if if request("l8") = null then request("l8") = " " end if if request("m1") = null then request("m1") = " " end if if request("m2") = null then request("m2") = " " end if if request("m3") = null then request("m3") = " " end if if request("m4") = null then request("m4") = " " end if if request("m5") = null then request("m5") = " " end if if request("m6") = null then request("m6") = " " end if if request("m8") = null then request("m8") = " " end if if request("n") = null then request("n") = " " end if if request("o") = null then request("o") = " " end if if request("p") = null then request("p") = " " end if if request("q") = null then request("q") = " " end if if request("r") = null then request("r") = " " end if if request("s1") = null then request("s1") = " " end if if request("s2") = null then request("s2") = " " end if if request("s3") = null then request("s3") = " " end if if request("s4") = null then request("s4") = " " end if if request("s5") = null then request("s5") = " " end if if request("s6") = null then request("s6") = " " end if if request("s7") = null then request("s7") = " " end if if request("s8") = null then request("s8") = " " end if if request("t") = null then request("t") = "" end if MySQL="UPDATE " & strTable & " SET Question1=""" & request("a") & """, Question2=""" & request("b") & """, Question3a=""" & request("c") & """, Question3b=""" & request("c2") & """, Question3c=""" & request("c3") & """, Question3d=""" & request("c4") & """, Question4=""" & request("d") & """, Question5=""" & request("e") & """, Question6=""" & request("f") & """, Question7a=""" & request("g") & """, Question7b=""" & request("g2") & """, Question8=""" & request("h") & """, Question9=""" & request("i") & """, Question10a=""" & request("j") & """ , Question10b=""" & request("j2") & """, Question11a=""" & request("k") & """, Question11b=""" & request("k2") & """, Question11c=""" & request("k3") & """, Question11d=""" & request("k4") & """, Question11e=""" & request("k5") & """, Question11f=""" & request("k6") & """, Question11g=""" & request("k7") & """, Question11h=""" & request("k8") & """, Question12a=""" & request("L") & """, Question12b=""" & request("L2") & """, Question12c=""" & request("L3") & """, Question12d=""" & request("L4") & """, Question12e=""" & request("L5") & """, Question12f=""" & request("L6") & """, Question12g=""" & request("L7") & """, Question12h=""" & request("L8") & """, Question13a=""" & request("m") & """, Question13b=""" & request("m2") & """, Question13c=""" & request("m3") & """, Question13d=""" & request("m4") & """, Question13e=""" & request("m5") & """, Question13f=""" & request("m6") & """, Question13g=""" & request("L7") & """, Question13h=""" & request("m8") & """, Question14=""" & request("n") & """, Question15=""" & request("o") & """, Question16=""" & request("p") & """, Question17=""" & request("q") & """, Question18=""" & request("r") & """, Question19a=""" & request("s1") & """, Question19b=""" & request("s2") & """, Question19c=""" & request("s3") & """, Question19d=""" & request("s4") & """, Question19e=""" & request("s5") & """, Question19f=""" & request("s6") & """, Question19g=""" & request("s7") & """, Question19h=""" & request("s8") & """, Question20=""" & request("t") & """ Where username=""" & session("username") & """" Set MyRs=MyConn.Execute(MySQL) MySQL="select * from tblcomments where username='" & session("username") & "'" Set MyRs=MyConn.Execute(MySQL) response.write("
Return to Main page
") response.write("
") response.write("

") response.write("Survey Answers") response.write("

") response.write("
") response.write("
----------------------
") response.write("1. How much time did you spend on the tour?") response.write("
----------------------
") response.write("") response.write(request("a")) response.write("") response.write("
----------------------
") response.write("2. The web-tour currently has 7 stops. Would you like to see:") response.write("
----------------------
") response.write("") response.write(request("b")) response.write("") response.write("
----------------------
") response.write("3. The web-tour currently uses a mix of maps, pictures, text and links to more information. Which parts did you find most helpful? (pick all that apply)") response.write("
----------------------
") response.write("") response.write(request("c") & "
" & request("c2") & "
" & request("c3") & "
" & request("c4") ) response.write("") response.write("
----------------------
") response.write("4. Regarding the concepts presented during the tour, would you generally like:") response.write("
----------------------
") response.write("") response.write(request("d")) response.write("") response.write("
----------------------
") response.write("5. Are there changes that you would like to see to the written part of the tour?
Level of difficulty:") response.write("
----------------------
") response.write("") response.write(request("e")) response.write("") response.write("
----------------------
") response.write("Length of written text:") response.write("
----------------------
") response.write("") response.write(request("f")) response.write("") response.write("
----------------------
") response.write("6. Are there changes you would like to see to the image part of the tour?
Number of images:") response.write("
----------------------
") response.write("") response.write(request("g")) response.write("") response.write("
----------------------
") response.write("Image quality:") response.write("
----------------------
") response.write("") response.write(request("g2")) response.write("") response.write("
----------------------
") response.write("7. Are there other changes you would like to suggest for the webtour?") response.write("
----------------------
") response.write("") response.write(request("h")) response.write("") response.write("
----------------------
") response.write("8. This website was intended to help you prepare for an upcoming SFMAC meeting.
After taking the tour, to what extent do you feel it has helped you prepare?") response.write("
----------------------
") response.write("") response.write(request("i")) response.write("") response.write("
----------------------
") response.write("9. Of the following options, which are your preferred ways of preparing for an SFMAC meeting?") response.write("
----------------------
") response.write("") response.write(request("j")) response.write(request("j2")) response.write("") response.write("
----------------------
") response.write("10. What concepts did you find most interesting about the tour?") response.write("
----------------------
") response.write("") response.write(request("k1") & "
" & request("k2") & "
" & request("k3") & "
" & request("k4") & "
" & request("k5") & "
" & request("k6") & "
" & request("k8")) response.write("") response.write("
----------------------
") response.write("11. What did you find least interesting about the tour?") response.write("
----------------------
") response.write("") response.write(request("L1") & "
" & request("l2") & "
" & request("l3") & "
" & request("l4") & "
" & request("l5") & "
" & request("l6") & "
" & request("l8")) response.write("") response.write("
----------------------
") response.write("12. Do you think your understanding of the following concepts change after viewing the webtour?") response.write("
----------------------
") response.write("") response.write(request("m1") & "
" & request("m2") & "
" & request("m3") & "
" & request("m4") & "
" & request("m5") & "
" & request("m6") & "
" & request("m8")) response.write("") response.write("
----------------------
") response.write("13. One of the goals of the web-tour was to give you a chance to think about and reflect on ideas and information before an SFMAC meeting.
Were there statements made in the tour that caused you to reflect?
Please explain:") response.write("
----------------------
") response.write("") response.write(request("n")) response.write("") response.write("
----------------------
") response.write("14. Did the website lead you to any new insights about sustainable forest management?:") response.write("
----------------------
") response.write("") response.write(request("new")) response.write("") response.write("
----------------------
") response.write("14. With regards to bias, do you think information was biased inappropriately in the web-tour?
Please explain:") response.write("
----------------------
") response.write("") response.write(request("o")) response.write("") response.write("
----------------------
") response.write("15. Did you use the website or the CD-Rom version?") response.write("
----------------------
") response.write("") response.write(request("p")) response.write("") response.write("
----------------------
") response.write("16. Has your comfort level with using the Internet changed since viewing the website?") response.write("
----------------------
") response.write("") response.write(request("q")) response.write("") response.write("
----------------------
") response.write("17. Would you consider using a web-tour to prepare for an SFMAC meeting again in the future?") response.write("
----------------------
") response.write("") response.write(request("r")) response.write("") response.write("
----------------------
") response.write("18. What do you think are the biggest barrier to using this type of tool to prepare for SFMAC meetings? (Please choose 3)") response.write("
----------------------
") response.write("") response.write(request("s1") & "
" & request("s2") & "
" & request("s3") & "
" & request("s4") & "
" & request("s5") & "
" & request("s6") & "
" & request("s7") & "
" & request("s8")) response.write("") response.write("
----------------------
") response.write("19. Are there any other comments you would like to make about the web-tour?") response.write("
----------------------
") response.write("") response.write(request("t")) response.write("") response.write("
Return to Main page ") MyConn.Close set MyConn=nothing %>