File Manager

<%
		  pern=session("username")
		  per="2"
		  tb="research"
		  sqlnc="select * from tb_permission where id_staff='"&pern&"' and tb_edit='"&per&"' and tb_name='"&tb&"'"
		  set orsnc=server.createobject("adodb.recordset")
		  orsnc.open sqlnc,conn,1,3
				'if not orsnc.eof then
		  %>
<!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  border="0" cellspacing="0" align=center width=100%>

<%
'*****************************************************************

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

<%
'*****************************************************************
 ' if session("tb_preview") <> 1 or session("tb_edit")=2 then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ

pern=session("username")
		  per="2"
		  tb="course"
		  sqlnc="select * from tb_permission where id_staff='"&pern&"' and tb_edit='"&per&"' and tb_name='"&tb&"'"
		  set orsnc=server.createobject("adodb.recordset")
		  orsnc.open sqlnc,conn,1,3
				'if not orsnc.eof then
		  id=request("id")
sqlst="select * from student where id_stu='"&id&"'"
	set orsst=server.createobject("adodb.recordset")
							  orsst.open sqlst,conn,1,3
							  
			
%>
	<tr><td colspan=6><strong><div align=center>����Ԫҷ����ѧ�Դ�͹
	<tr><td colspan=6><%
	 if not orsst.eof then
				response.write "<div align=center>"&id&"[<a href=register_sche_indi.asp?id="&id&">"&orsst("name_stu")&"  "&orsst("sur_stu")&"</a>]"

set ors4=server.createobject("adodb.recordset")
									 sql4="select * from student_group where id_stugroup='"&orsst("id_stugroup")&"'"
									 ors4.open sql4,Conn,1,3
									 if not ors4.eof then

sql5="select * from curriculum where id_curriculum='"&ors4("id_curriculum")&"'"
									set ors5=server.createobject("adodb.recordset")
									ors5.open sql5,conn,1,3
									if not ors5.eof then
										   sql6="select * from type_curriculum where id_type_curri='"&ors4("id_type_curri")&"'"
										   set ors6=server.createobject("adodb.recordset")
										   ors6.open sql6,conn,1,3
										   if not ors6.eof then
										   'response.write ors4("id_stugroup")
									%>

<%  =ors5("curriculum_sum")%>   <%=ors6("type_curri_th")%> ��� <%=ors4("no_stugroup")%>
										<%
										end if
								end if
			 end if
	end if
	%>
	<tr bgcolor=#E0E0E0><td width=6%>�ӴѺ���</td><td width=10%>�Ҥ����֡��</td><td width=54%>�Ԫ�</td><td width=10%>ŧ����¹</td>
	
	<%
	
	'sqlc="select distinct id_course, id_schedule from course_schedule2 where id_status='1' "
     sqlc="select * from course_schedule1 where id_status='1' "
	set orsc=server.createobject("adodb.recordset")
							  orsc.open sqlc,conn,1,3
							  
			 if not orsc.eof then
   				    idn=1
					 orsc.movefirst
						 do while not orsc.eof 
						 
						 idnc=idn mod 2
						 if idnc = 0  then 
						 bg1="#F2F2F2"
						 else
						  bg1="#FFFFFF"
						end if
						
						'��Ǩ�ͺ��ҹ��Ե�����ŧ�Ԫҹ��������ѧ
							sqls="select * from course_regis where id_student='"&id&"' and id_schedule='"&orsc("id_schedule")&"' and id_course='"&orsc("id_course")&"'"
							set orss=server.createobject("adodb.recordset")
							'response.write sqls
							 orss.open sqls,conn,1,3
		if orss.eof then
								id_schedule=orsc("id_schedule")
								response.write "<form name=frm1 method=post action=add_stu_sche_indi.asp>"
								
								sqlc2="select * from course_schedule where id_schedule='"&orsc("id_schedule")&"' order by id_academic_year asc, id_academic_semeter desc"
								set orsc2 =server.createobject("adodb.recordset")
''								response.write sqlc2
								orsc2.open sqlc2,conn,1,3
								if not orsc2.eof then  '9
									response.write "<tr bgcolor="&bg1&"><td>"&idn&"</td><td>"&orsc2("id_academic_year")
									response.write "/"&orsc2("id_academic_semeter")
									'response.write orsc("id_schedule")

end if
								sqlc1="select * from course where id_course='"&orsc("id_course")&"'"
								set orsc1=server.createobject("adodb.recordset")
								orsc1.open sqlc1,conn,1,3
							  
								 if not orsc1.eof then '8
								 response.write "<td>"&orsc1("id_course_th")&" "&orsc1("course_th")&"-"
									set ors8=server.createobject("adodb.recordset")
									 sql8="select * from student_group where id_stugroup='"&orsc2("id_stugroup")&"'"
									 ors8.open sql8,Conn,1,3
									 if not ors8.eof then
											sql7="select * from curriculum where id_curriculum='"&ors8("id_curriculum")&"'"
												set ors7=server.createobject("adodb.recordset")
												ors7.open sql7,conn,1,3
												if not ors7.eof then
													response.write ors7("curriculum_sum")
												end if
										
								 end if
if not orsnc.eof then
								response.write "<input type=hidden name=id_student value="&id&">"
								response.write "<input type=hidden name=id_course value="&orsc("id_course")&">"
								response.write "<input type=hidden name=id_schedule value="&orsc("id_schedule")&">"
								response.write "<td><input type=submit name=Submit value=ŧ����¹ ></td>"
end if
								response.write "</tr>"
								response.write "</form>"
								end if  '8
								end if '9
idn=idn+1
					  orsc.movenext
						loop

else
							  response.write "<tr><td colspan=9>No Course Open!!!!"
				end if
	%>
	
	
	
	
	 <%	'else '���Է�
	'response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
'response.write "<meta http-equiv=refresh content =3;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: course_open.asp