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")="lecturer"
%>

<%
'*****************************************************************
'response.write session("id_lecturer1")
'response.write "aaa"
id_academic_semeter=request.form("id_academic_semeter")
id_academic_year=request.form("id_academic_year")
id_lecturer=request("id_lecturer")
if id_lecturer="" then
id_lecturer=session("id_lecturer1")
end if
'response.write id_lecturer
'  if session("tb_preview") <> 1 or session("id_lecturer1") = id_lecturer then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ
idc=request.form("idc")

<tr> 
        <td width="892" align="left" valign="top" ><div align="center"><strong>
		 [<a href=detail_lec_course.asp>����͹�Ѻ����Ԫ�</a>]
		<br>�ʴ�����Ԫҷ�褳Ҩ�������з�ҹ�͹ <br><br>
	<table>
	<%	
		sqlall="select * from lecturer where id_lecturer='"&id_lecturer&"'"
		set orsall=server.createobject("adodb.recordset")
		orsall.open sqlall,conn,1,3
		if not orsall.eof then
     i=0
response.write "<tr><td><strong>�.</td><td><strong>"&orsall("name_lec")
response.write " <strong> "&orsall("sur_lec")&"</td></tr>"
end if
'response.write "<tr><td colspan=5 align=center><strong>����Ԫҷ���͹ </td></tr>"
response.write "<FORM METHOD=POST ACTION=detail_lec_course2.asp >"
response.write "<tr><td colspan=5 align=center>"
%>
�ա���֡��
			  <select name="id_academic_year">
<% 
sqlyear="select distinct id_academic_year from course_schedule order by id_academic_year desc"
set orsyear=server.createobject("adodb.recordset")
orsyear.open sqlyear,conn,1,3
if not orsyear.eof then
	orsyear.movefirst
	do while not orsyear.eof
			response.write "<option value="&orsyear("id_academic_year")&">"&orsyear("id_academic_year")
			response.write "</option>"
	orsyear.movenext
	loop
end if

</select>�Ҥ
<select name="id_academic_semeter">
<% 
			  set ors_=server.createobject("adodb.recordset")
	 sqlmark_="select * from academic_semeter"
	 ors_.open sqlmark_,Conn,1,3
	ors_.movefirst
	do while not ors_.eof
		response.write "<option value="&ors_("id_academic_semeter")&">"&ors_("academic_semeter")&"</option>"
		ors_.movenext
		loop
		%>
			  </select>
			  <input type="hidden" name="id_lecturer" value=<%=id_lecturer%>>
	<input type="hidden" name="idc" value=1>
	  <input type="submit" name="Submit" value="Go!" >
	  <%

response.write "</td></tr>"
response.write "<tr><td colspan=5 align=right>[<a href=detail_lec_course2.asp?idc=0&id_lecturer="&id_lecturer&">����Ԫҷ���͹������</a>]"
response.write "<tr bgcolor=#E5E5E5><td>���<td align=center>�����Ԫ�<td align=center>�����Ԫ�<td align=center>�Ҥ���¹����͹<td align=center>������"
if idc=1 then
id_lecturer=request.form("id_lecturer")
'else idc=0
end if
	
'if idc=1 then
'id_lecturer=request.form("id_lecturer")
		'sqlse="select * from course_schedule where id_academic_semeter='"&id_academic_semeter&"' and id_academic_year='"&id_academic_year&"'"
		'response.write sqlse
	'	set orsse=server.createobject("adodb.recordset")
	'	orsse.open sqlse,conn,1,3
'		if not orsse.eof then
'		orsse.movefirst
	'	do while not orsse.eof 
	'	response.write orsse("id_schedule")
	'			sqlce="select * from course_schedule2 where id_schedule='"&orsse("id_schedule")&"' and id_lecturer='"&id_lecturer&"'"
	'			set orsce=server.createobject("adodb.recordset")
	'			orsce.open sqlce,conn,1,3
	'			if not orsce.eof then
	'				sqlco="select * from course where id_course='"&orsce("id_course")&"'"
	'				set orsco=server.createobject("adodb.recordset")
	'				orsco.open sqlco,conn,1,3
	'				if not orsco.eof then
		'					sqlcc="select * from course_category where id_course ='"&orsco("id_course")&"'"
		'					set orscc=server.createobject("adodb.recordset")
		'					orscc.open sqlcc,conn,1,3
		'							if not orscc.eof then
		'								sqlccc="select * from category_course where id_category	='"&orscc("id_category")&"' "
		'								set orsccc=server.createobject("adodb.recordset")
		'								orsccc.open sqlccc,conn,1,3
		'								if not orsccc.eof then
											'response.write "<tr bgcolor="&bg1&"><td>"&i&"</td><td> "&orsco("id_course_th")&"("&orsco("id_course")&") <td>"&orsco("course_th")
											'response.write "<td>"&id_academic_semeter&"/"&id_academic_year
										'	response.write "<td> <strong>�Ԫ� "&orsccc("category")&"</td></tr>"
									'	end if  'orsccc
								'	end if 'orscc
				'	end if 'orsco
				'else 'orsce
					'response.write "<tr><td colspan=5>don't have Course that you teach!!"
			'	end if 'orsce
		'orsse.movenext
	'	loop

'	else 'orsse
		'	response.write "<tr><td colspan=5>don't have Course in this semeter"
	'	end if
i=0
'else  '��������͡ �ա���֡��
']]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
sqlc1="select * from course"
set orsc1=server.createobject("adodb.recordset")
orsc1.open sqlc1,conn,1,3
if not orsc1.eof then

orsc1.movefirst
     	 do while not orsc1.eof
sqlc="select * from course_schedule2 where id_lecturer='"&orsall("id_lecturer")&"' and id_course='"&orsc1("id_course")&"'"

set orsc=server.createobject("adodb.recordset")
orsc.open sqlc,conn,1,3
 
   if not orsc.eof then

'response.write sqlc&"<br>"
		 sqlt="select * from course where id_course='"&orsc("id_course")&"'"
		 set orst=server.createobject("adodb.recordset")
		 orst.open sqlt,conn,1,3
		 if not orst.eof then
		
			sqlcc="select * from course_category where id_course ='"&orsc("id_course")&"'"
			set orscc=server.createobject("adodb.recordset")
			orscc.open sqlcc,conn,1,3
				if not orscc.eof then
				    sqlccc="select * from category_course where id_category	='"&orscc("id_category")&"' "
					set orsccc=server.createobject("adodb.recordset")
					orsccc.open sqlccc,conn,1,3
					if not orsccc.eof then
					if idc=1 then
					orsc.movefirst
					do while not orsc.eof

sqlsem="select * from course_schedule where id_schedule='"&orsc("id_schedule")&"' and id_academic_semeter='"&id_academic_semeter&"' and id_academic_year='"&id_academic_year&"'"
					set orssem=server.createobject("adodb.recordset")
					orssem.open sqlsem,conn,1,3
				'response.write sqlsem&"<br>"
			'	response.write sqlc&"<br>"
			'response.write orsc("id_schedule")&"<br>"
						if not orssem.eof then
							 i=i+1
		 if i mod 2 = 0 then
		 bg1="#F0F0F0"
		 else
		 bg1 = "ffffff"
		 end if	
				response.write "<tr bgcolor="&bg1&"><td>"&i&"</td><td>[<a href=register_sche.asp?id_schedule="&orsc("id_schedule")&"&id_course="&orsc("id_course")&">"&orst("id_course_th")&"("&orst("id_course")&")</a>]<td>"&orst("course_th")

response.write "<td>"&id_academic_semeter&"/"&id_academic_year
				response.write "<td> <strong>�Ԫ� "&orsccc("category")&"</td></tr>"
						end if
						orsc.movenext
						loop
					else  '''��� idc=0
					    i=i+1
		 if i mod 2 = 0 then
		 bg1="#F0F0F0"
		 else
		 bg1 = "ffffff"
		 end if
				sqlsem="select * from course_schedule where id_schedule='"&orsc("id_schedule")&"'"
					set orssem=server.createobject("adodb.recordset")
					orssem.open sqlsem,conn,1,3
				'response.write sqlsem&"<br>"
			'	response.write sqlc&"<br>"
			'response.write orsc("id_schedule")&"<br>"
										
				response.write "<tr bgcolor="&bg1&"><td>"&i&"</td><td>[<a href=register_sche.asp?id_schedule="&orsc("id_schedule")&"&id_course="&orsc("id_course")&">"&orst("id_course_th")&"("&orst("id_course")&")]</a><td>"&orst("course_th")
										if not orssem.eof then
				response.write "<td align=center>"&orssem("id_academic_semeter")&"/"&orssem("id_academic_year")
											end if
				response.write "<td> <strong>�Ԫ� "&orsccc("category")&"</td></tr>"
										
						end if
					end if
				end if
		 end if
	
		end if

orsc1.movenext
loop

end if
	']]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
'end if '��������͡�ա���֡��
	%>

</table>
	 
  <%	'else '���Է�
	'response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
'response.write "<meta http-equiv=refresh content =3;url=javascript:history.back();>" '���Է�
	'end if '���Է�
%>
	</div></td>
   
  </tr>
  
</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: detail_lec_course2.asp.bak