<% If ConnectDB() = True Then sql = "SELECT 1 " & _ " FROM teacherandsubject " & _ " where InstructorCode = '"& session("UName") &"'" Set rs = Conn.Execute(sql) If Not(rs.EOF) Then %> <% Else %> <% End if rs.Close set rs = nothing End if %>

โรงเรียนสาธิตแห่งมหาวิทยาลัยเกษตรศาสตร์ ศูนย์วิจัยและพัฒนาการศึกษา บันทึกการประเมินการอ่าน คิดวิเคราะห ์และเขียน ปีการศึกษา <% if Year(Date) < 2550 then response.write Year(Date)+543 else response.write Year(Date) end if %> อาจารย์ผู้สอน <%=session("Prefix")%> <%=session("FName")%> <%=session("LName")%>  ออกจากระบบ

โรงเรียนสาธิตแห่งมหาวิทยาลัยเกษตรศาสตร์ ศูนย์วิจัยและพัฒนาการศึกษา บันทึกการประเมินการอ่าน คิดวิเคราะห ์และเขียน ปีการศึกษา <% if Year(Date) < 2550 then response.write Year(Date)+543 else response.write Year(Date) end if %> อาจารย์ผู้สอน : ไม่พบข้อมูล

<% If ConnectDB() = True Then sql = "SELECT * " & _ " FROM teacherandsubject " & _ " where InstructorCode = '"& session("UName") &"'" Set rs = Conn.Execute(sql) If (rs.EOF) Then %> <% Response.end Else 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%> <%End If End If%> ข้อมูลรายวิชาที่สอน ลำดับ. รหัสวิชา ชื่อวิชา ห้องเรียน - - - - - "> ชื่อวิชา: <%=rs("SubjectTitle")%>ห้องเรียน: <%=rs("SectionTitle")%>"> <%=recno%>. <%if isnull(rs("SubjectCode")) then response.write " " else response.write " "&rs("SubjectCode")&" " end if%> <%if isnull(rs("SubjectTitle")) then response.write " " else response.write " "&rs("SubjectTitle")&" " end if%> <%if isnull(rs("SectionTitle")) then response.write " " else response.write " "&rs("SectionTitle")&" " end if%>   ค้นพบทั้งหมดจำนวน   " style="width:30" class="box" readonly>   รายการ