<%@CODEPAGE="874"%>

วันที่พิมพ์ : <%=Day(Date)&" / "&Month(Date)&" / " %> <%if Year(Date) < 2550 then response.write Year(Date)+543 else response.write Year(Date) end if %>  เวลาที่พิมพ์ : <%=Time()%>

โรงเรียนสาธิตแห่งมหาวิทยาลัยเกษตรศาสตร์ ศูนย์วิจัยและพัฒนาการศึกษา บันทึกการประเมินการอ่าน คิดวิเคราะห ์และเขียน ปีการศึกษา <% if Year(Date) < 2550 then response.write Year(Date)+543 else response.write Year(Date) end if %> อาจารย์ประจำชั้น <% If ConnectDB() = True Then sqlTech = "SELECT ClassName.ClassName, Advisor.Expr1 as TeachName, Advisor.Order " & _ " FROM ClassName INNER JOIN Advisor ON ClassName.ClassName = Advisor.ClassName " & _ " where classname.classname='" & request("classname") & "'" & _ " order by Advisor.Order " Set rsTeach = Server.CreateObject("ADODB.Recordset") rsTeach.Open sqlTech,conn,3,3 if Not(rsTeach.Eof) Then Do While Not rsTeach.EOF %> <%=rsTeach("TeachName")%> <% rsTeach.MoveNext Loop rsTeach.Close set rsTeach = nothing Else%> ไม่พบอาจารย์ประจำชั้น <%End if%> ช่วงชั้นที่ :<%=request("CourseTitleID")%>  ชั้น :<%=request("SectionTitle")%> วิชา :<%=request("SubjectCode")%>  ชื่อวิชา :<%=request("SubjectTitle")%>  หน่วยการเรียน :<%=request("Credit")%>  อาจารย์ผู้สอน :<%=session("Prefix")%> <%=session("FName")%> <%=session("LName")%>  หน้าแรก |   พิมพ์ |   ออกจากระบบ

<% sql =" SELECT inputscore.SectionID, student.StudentNumber,student.PreName, student.FirstName, " & _ " student.LastName, student.PlanName as stuPlanName, inputscore.grade " & _ " FROM inputscore INNER JOIN student " & _ " ON inputscore.StudentNumber = student.StudentNumber " & _ " WHERE (((inputscore.SectionID)=" & request("SectionID") & " )) " & _ " order by student.ClassName,student.StdNO,student.StudentNumber " 'response.write "sql:" & sql & " " Set rs = Conn.Execute(sql) If Not(rs.EOF) Then recno = 0 Do While Not rs.EOF recno = recno + 1 if recno mod 2 = 0 then bgcolor = "#FFFFFF" fontcolor = "#000000" else bgcolor = "#E1F0FF" fontcolor = "#000000" end if %> <% rs.MoveNext Loop rs.Close set rs = nothing %> <% Else %> <% rs.Close set rs = nothing End if %> <%End if%> ผลการประเมิน ลำดับ. เลขที่ ชื่อ-นามสกุล แผนการเรียน ระดับคุณภาพ ผลการประเมิน <%=recno%>. <%if isnull(rs("StudentNumber")) then response.write " " else response.write " "&rs("StudentNumber")&" " end if%> <%if isnull(rs("StudentNumber")) then response.write " " else response.write " "&rs("PreName")&" "&rs("FirstName")&" "&rs("LastName") end if%> <%if isnull(rs("stuPlanName")) then response.write " " else response.write " "&rs("stuPlanName")&" " end if%> <%if isnull(rs("grade")) then response.write " " else response.write " "&rs("grade")&" " end if%> <%if isnull(rs("grade")) then response.write " " else if rs("grade") = 8 then response.write " รอผลการประเมิน " elseif rs("grade") = 9 then response.write " ไม่ประเมินผล " elseif rs("grade") = 3 then response.write " ดีเยี่ยม " elseif rs("grade") = 2 then response.write " ดี " elseif rs("grade") = 1 then response.write " พอใช้/ผ่าน " elseif rs("grade") = 0 then response.write " ไม่ผ่าน " else response.write " ไม่สามารถประเมินได้ " end if end if%> - - - - - -   ค้นพบทั้งหมดจำนวน   " style="width:30" class="box" readonly>   รายการ