<%
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
%>