บริการประกาศผลการเรียนทาง Internet

<% xtid = request.form("tid") + request.querystring("tid") response.write("รหัสการสอน : "& xtid & "") Set objConn = CreateObject("ADODB.Connection") objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("grade.mdb")) Set rsUser = objConn.Execute("SELECT tid,school,subj,tyear,tsem,tname,typeshow FROM teacher where teacher.tid=" & xtid) response.write("( " & rsUser("tyear") &" / ") response.write(rsUser("tsem") &" )
") response.write("
" & rsUser("school")&"
") response.write("" & rsUser("subj") &"
") tshow = rsUser("typeshow") tname = rsUser("tname") rsUser.close Set rsUser = objConn.Execute("SELECT tid,sid,sname,scorekeep,scoremid,scoreproject,scorefinal,grade FROM grade where grade.tid=" & xtid) response.write("") response.write("") if tshow= "l" then response.write("") response.write("") response.write("") response.write("") response.write("") end if response.write("") i = 0 do while not rsUser.eof i = i + 1 if (i mod 2) = 0 then response.write("") else response.write("") end if response.write("") response.write("") response.write("") if tshow= "l" then response.write("") response.write("") response.write("") response.write("") ss = rsUser("scorekeep")+rsUser("scoremid")+rsUser("scoreproject")+rsUser("scorefinal") response.write("") end if response.write("") rsUser.movenext loop response.write("
ลำดับรหัสชื่อ - สกุลคะแนนเก็บคะแนนสอบกลางภาคคะแนนรายงานคะแนนสอบปลายภาคคะแนนรวมเกรด
" & i &"" & rsUser("sid")&"" & rsUser("sname")&"" & rsUser("scorekeep")&"" & rsUser("scoremid")&"" & rsUser("scoreproject")&"" & rsUser("scorefinal")&"" & ss &"" & rsUser("grade")&"
") response.write("ชื่อผู้สอน : " & tname &" [ ") if tshow = "s" then response.write("s : รายงานแบบสั้น]
") if tshow = "l" then response.write("l : รายงานแบบสั้น พร้อมคะแนนสอน]
") if tshow = "i" then response.write("i : รายงานแบบสั้น โดย import ข้อมูลจาก text ]
") rsUser.close set rsUser=nothing %>