<% Dim teacherID, teachername, schoolname teacherID = Cint(request.querystring("teacherID")) teachername = trim(request.querystring("teachername")) schoolname = trim(session("schoolname")) dim sqlQuestion sqlQuestion = "select QuestionID, Question from Question order by QuestionID;" dim objRec Set objRec = Server.CreateObject("ADODB.Recordset") objRec.cursorlocation = adUseClient objRec.Open sqlQuestion,strConnect,adOpenDynamic,adLockOptimistic,adCmdText %> Rate Teachers - Your Teacher: <%=teachername%>  (<%=schoolname%>)
5 - Strongly Agree Please select an appropriate rating for your instructor and the course he/she conducts, then click "Submit" button.

Each rating receives a different points respectively, and overall average score of all the ratings implies the quality of your instructor and the course.
4 - Agree
3 - Average
2 - Disagree
1 - Strongly Disagree
<% dim btnName, questionID while not objRec.EOF questionID = "Q"&objRec("QuestionID") btnName = "btn"&objRec("QuestionID") if objRec("QuestionID") = 11 then %> <% end if %> <% objRec.movenext counter = counter +1 wend %>
Instructor Evaluation 5 4 3 2 1
Course Evaluation 5 4 3 2 1
<%=objRec("QuestionID")%>"> <%=objRec("Question")%>