<!-- #include file = "datacon.inc" -->
<!-- #include file = "adovbs.inc" -->
<%
	Dim teacherID, teachername, schoolname
	teacherID = Cint(request.form("teacherID"))
	teachername = request.form("teachername")
	schoolname = session("schoolname")

	Dim row, btnName, questionID
	Dim aryButton(2,16)

	for row = 1 to 16
		btnName = "btn"&row
		questionID = "Q"&row
		aryButton(1,row) = request.form(""&questionID&"")
		aryButton(2,row) = request.form(""&btnName&"")
	next

	Dim objRec
	Set objRec = Server.CreateObject("ADODB.Recordset")

	if aryButton(1,1) <> "" then
		objRec.Open "Rating",strConnect,adOpenDynamic,adLockOptimistic

		for row = 1 to 16
			objRec.AddNew
			objRec("teacherID") = teacherID
			objRec("questionID") = aryButton(1,row)
			objRec("Rating") = aryButton(2,row)
			objRec("RatingDate") = date()
			objRec.Update
		next
		objRec.close
		set objRec = nothing

		response.redirect("teacher.asp?teacherID="&teacherID&"&teachername="&teachername)
	end if


%>