WSEval

CCTT National Institute Admin Area

Workshop Evaluations for
<% = WS(1) %> held on <% Response.write (rsW("workshopdate")& " at " & rsW("workshoplocation"))%>

<% For x = 1 to 10 if x = 1 then Response.Write "" rsq.MoveNext Response.Write "" rsq.MoveNext else If x mod 2 = 0 then Response.Write "" else Response.Write "" rsq.MoveNext Response.Write "" rsq.MoveNext Response.Write "" End If end if Num = A(x) + B(x) + C(x) + D(x) + E(x) Response.Write "" next %> <% For x = 11 to 12 if x = 1 then Response.Write "" rsq.MoveNext Response.Write "" rsq.MoveNext else If x mod 2 = 0 then Response.Write "" else Response.Write "" rsq.MoveNext Response.Write "" rsq.MoveNext Response.Write "" End If end if Num = A(x) + B(x) + C(x) + D(x) + E(x) Response.Write "" next %>

" & rsQ("Question") & "

" Response.Write "" Response.Write "" 'B Response.Write "" 'C Response.Write "" 'D Response.Write "" 'E Response.Write "" Response.Write "" Response.Write "

" 'A Response.Write "" Response.Write "

" & Val / 2 & "%

" Response.Write "

" & Val / 2 & "%

" Response.Write "

" & Val / 2 & "%

" Response.Write "

" & Val / 2 & "%

" Response.Write "

" & Val / 2 & "%

" Response.Write "

Strongly Agree

Agree

Neutral

Disagree

Strongly Disagree

" & rsQ("Question") & "

" Response.Write "" Response.Write "" 'B Response.Write "" 'C Response.Write "" 'D Response.Write "" 'E Response.Write "" Response.Write "" Response.Write "

" 'A Response.Write "" Response.Write "

" & Val / 2 & "%

" Response.Write "

" & Val / 2 & "%

" Response.Write "

" & Val / 2 & "%

" Response.Write "

" & Val / 2 & "%

" Response.Write "

" & Val / 2 & "%

" Response.Write "

Much More Demanding

More Demanding

Average

Less Demanding

Much Less Demanding