<% Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT SUBJECT_ID, SUBJECT_NAME,SUBJECT_INTRO,SUBJECT_COUNT FROM Subjects;" rs.Open strSQL, adoConn If NOT rs.EOF then While NOT rs.EOF If Session("LoginStatus") = "Yes" then Set rsSub = Server.CreateObject("ADODB.Recordset") strSQLSub = "SELECT SUBJECT_ID FROM SubjectSelected where TRAINEE_ID = "&Session("TraineeID")&" AND SUBJECT_ID = "&rs("SUBJECT_ID") rsSub.Open strSQLSub, adoConn If NOT rsSub.EOF then Dim registered registered = True rsSub.Close Else registered = False rsSub.Close End if Else registered = False End If %> <% rs.MoveNext WEnd Else Response.write("") End If rs.Close %>

Tên môn học	Số buổi	Nội dung
" <%If registered=True then Response.write("checked")%>> <%If registered=True then Response.write(""&rs("SUBJECT_NAME")&"") Else Response.write(rs("SUBJECT_NAME")) End If%>	<%=rs("SUBJECT_COUNT")%>	<%=rs("SUBJECT_INTRO")%>
Chưa có môn nào học được cung cấp