File Manager

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>

<title>�к����ʹ�����͡�ú�����</title>
 
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">

<link href="bsri2006.css" rel="stylesheet" type="text/css">
<link href="image/favicon.ico" rel="shortcut icon" type="image/x-icon">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0">
  <tr> 
    <td colspan="2"><div align="right"><img src="Image/head1.gif" width="800" height="61"></div></td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif"><div align="right"><font size="2" face="MS Sans Serif, Tahoma, sans-serif"><strong>| 
        <a href="http://www.swu.ac.th" target=_blank>SWU</a> | <a href="http://bsri.swu.ac.th" target=_blank>BSRI</a> 
        |<a href="chaPW.asp"><strong>Change 
        Password</strong></a>|<a href="log_out.asp">Log Out </a></strong></font>|</div></td>
  </tr>
  <tr> 
    <td width="20%" align="left" valign="top" bgcolor="#FFCCCC">
	</td>
    <td width="77%" align="left" valign="top">
<table width="100%" border="0" cellspacing="0">
<%
'*****************************************************************

session("tb_name")="course"
%>

<%
'*****************************************************************
  if session("tb_preview") <> 1  then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ
'id_course=request("id_course")
id_schedule=request("id")
%>
<tr> 
   
    <td width="892" align="left" valign="top"><div align="center">
	<%if session("tb_edit")=2 then%>
	
	[ <a href="add_schedule1.asp?id_schedule=<%=id_schedule%>">���ҧ���¹</a>]
	<%end if%><br><strong>��ػ���ŧ����¹�����Ԫ���мš�����¹<br><br>
	<table align=center border=1>
	<tr>
<%
'������ ��лա���֡��
'sql_check="select * from course_schedule where id_schedule='"&id_schedule&"'"
'set ors_check=server.createobject("adodb.recordset")
'ors_check.open sql_check,conn,1,3
';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
'if not ors_check.eof then
'ors_check.movefirst
'do while not ors_check.eof

'					response.write "<tr>"
		
	'				response.write "<td>�Ҥ���¹���  "&ors_check("id_academic_semeter")

'				response.write "/"&ors_check("id_academic_year")&"</td>"
	
							sql_check_2="select distinct id_course from course_schedule2 where id_schedule='"&id_schedule&"'"
							set ors_check_2=server.createobject("adodb.recordset")
							ors_check_2.open sql_check_2,conn,1,3
									'response.write sql_check_2
											if not ors_check_2.eof then
												ors_check_2.movefirst
												'id_status=ors_check_2("id_status")
												do while not ors_check_2.eof
												response.write "<table border=0 >"
																sql_course="select * from course where id_course='"&ors_check_2("id_course")&"'"
																set ors_course=server.createobject("adodb.recordset")
																ors_course.open sql_course,conn,1,3
																if not ors_course.eof then		
																response.write "<tr bgcolor=#FFFFCC>"
																response.write "<td><strong>"&ors_course("id_course_th")&"</td>"
																response.write "<td><strong>"&ors_course("course_th")&"</td>"
																response.write "<td><strong>"&ors_course("credit")&"</td>"
																end if										
					response.write "</tr>"
									sql_cl="select * from  course_schedule2 where id_schedule='"&id_schedule&"' and id_course='"&ors_check_2("id_course")&"'"
									set ors_cl=server.createobject("adodb.recordset")
									ors_cl.open sql_cl,conn,1,2
									if not ors_cl.eof then
									ors_cl.movefirst
									do while not ors_cl.eof
									sql_lec="select * from lecturer where id_lecturer='"&ors_cl("id_lecturer")&"' "
									set ors_lec=server.createobject("adodb.recordset")
									ors_lec.open sql_lec,conn,1,3
									'response.write sql_lec
													if not ors_lec.eof then
													ors_lec.movefirst
														do while not ors_lec.eof
														response.write "<tr><td></td><td>����͹   "&ors_lec("name_lec")&"   "&ors_lec("sur_lec")&"</td>"
														response.write "</tr>"
													
														ors_lec.movenext
														loop
													else 	
								
									response.write "<tr><td colspan=2> Lecturer Not Match or Delete</td></tr>"
									end if		
									ors_cl.movenext
									loop
									end if

response.write "</table>"

response.write "<table border=0 width = 550>"
response.write "<tr bgcolor=#FFCCCC><td colspan=5><div align=center><strong>��ª��͹��Ե���ŧ����¹</strong></div></td></tr>"
response.write "<tr bgcolor=#FFCCFF align=center><td>�ӴѺ���</td><td>���ʻ�Шӵ��</td><td>����-ʡ��</td><td colspan=2>�š�����¹</td></tr>"
		sql_regis="select * from course_regis where id_schedule='"&id_schedule&"' and id_course='"&ors_check_2("id_course")&"'"
		set ors_regis=server.createobject("adodb.recordset")
		ors_regis.open sql_regis,conn,1,3
			if not ors_regis.eof then
				ors_regis.movefirst
				a=0
					do while not ors_regis.eof
					a=a+1
					li=a mod 2
											if li=0 then
											bgc="#EBEBEB"
											else
											bgc="#FDFDFD"
											end if
						
								
						response.write "<tr bgcolor="&bgc&"><td>"&a
						id_student= ors_regis("id_student")
								sql_stu1="select * from student where id_stu='"&id_student&"'"
								set ors_stu1=server.createobject("adodb.recordset")
								ors_stu1.open sql_stu1,conn,1,3
								if not ors_stu1.eof then
									response.write "<td>"&ors_stu1("id_stu")&"<td>[<a href=detail_stu.asp?id_stu="&ors_stu1("id_stu")&">"&ors_stu1("name_stu")&" "&ors_stu1("sur_stu")&"</a>]"
								end if

'response.write  "<td>"

sqlgrade="select * from grade where id_grade='"&ors_regis("grade")&"'"
								set orsgrade=server.createobject("adodb.recordset")
								orsgrade.open sqlgrade,conn,1,3
											if not orsgrade.eof then
											response.write "<td align=center>"&orsgrade("ngrade")
											end if

response.write "</tr>"
				ors_regis.movenext
				loop
				
			else 
				response.write "<tr ><td colspan=4><div align=center>No Register</div></td></tr>"
				response.write "<tr bgcolor=#FFCCFF><td colspan=5>-</td></tr>"
			end if

response.write "</table>"
	ors_check_2.movenext
									loop
									end if
' ors_check.movenext
' loop
					
	'				end if 
%>
</td>

<%
	  else '���Է�
	response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
response.write "<meta http-equiv=refresh content =4;url=javascript:history.back();>" '���Է�
	end if '���Է�
	%>
</table>
</td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif">Contact Admin:: wassanaw@swu.ac.th 
      tel.02-649-5000 ext 17600</td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: all_register_schedule.asp