<% varTitle="VPS Results" Dim photoRS Set photoRS=Server.CreateObject("ADODB.RecordSet") photoSQL="SELECT * FROM qry_Results ORDER BY [Order];" photoRS.Open photoSQL, objConn, 1, 1 %> Visual Preference Survey Results

Image Results

Next to each of the following images, the number of responses for each preference rating is included.  In reviewing these images, please note that the number of 'No Answer,' selections is not shown. They are, however, recorded in the overall totals.

**Note: Comments made for individual images are included below the score totals. Surveys completed at the meeting were numbered (1-69) for the purpose of recording results. This number is included in parentheses after each comment.

 

<% Do While Not PhotoRS.EOF If photoRS("Order")=1 Then Response.Write "

" & photoRS("Section") & "

" If photoRS("Order")=26 Then Response.Write "

" & photoRS("Section") & "

" If photoRS("Order")=41 Then Response.Write "

" & photoRS("Section") & "

" Response.Write"" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" Response.Write"" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" Response.Write"" & _ "" & _ "" & _ "

" & photoRS("Description") & "

Voting Results

-3

-2

-1

0

1

2

3

" & photoRS("Neg3") & " " & photoRS("Neg2") & " " & photoRS("Neg1") & " " & photoRS("Zero0") & " " & photoRS("Pos1") & " " & photoRS("Pos2") & " " & photoRS("Pos3") & " 
" & _ "" & _ "

Comments:

" & "

" & photoRS("Comments") & "





" PhotoRS.MoveNext Loop %>


<% objConn.Close Set objConn=Nothing %>