File Manager

<%@ Language=VBScript %>
<%

'Response.ContentType = "application/vnd.ms-excel"
'Response.AddHeader "Content-Disposition", "attachment; filename=advisor_thesis.xls"

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>ʶҺѹ�Ԩ�¾ĵԡ�����ʵ�� ICT</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<link type="text/css">
</head>
	
<body>
<table width="100%" border="0" cellspacing="1">
  
        <tr bgcolor="#66CC00"> 
		  <td><div align="center">����Ԩ��</div></td>
		  <td><div align="center">�շ�診����֡��</div></td>
		  <td><div align="center">�ӹǹ��ǹ���Ŵ</div></td>
		  <td><div align="center">��������ͧ</div></td>

</tr>
<%

'�����---------------------------	
		
sql="select * from student where id_status_edu=2 and f_edu_year>2556 order by f_edu_year"
		'1-���ѧ�֡��
set ors=server.createobject("adodb.recordset")
	ors.open sql,conn,1,3
	If Not ors.eof Then
	ors.movefirst
	Do While Not ors.eof
		Response.write "<tr><td>"&ors("name_stu")&" "&ors("sur_stu")&"<td>"&ors("f_edu_year")

sql2_t="select * from thesis where id_stu='"&ors("id_stu")&"' "
		Set ors2_t=server.createobject("adodb.recordset")
		ors2_t.open sql2_t,conn,1,3
		If Not ors2_t.eof Then
		ors2_t.movefirst
		Do While Not ors2_t.eof
			Response.write "<td>"&ors2_t("thesis_th")
			Response.write "<td>"&ors2_t("id_thesis")
			response.write "http://bsris.swu.ac.th/thesis/"&ors2_t("full_thesis")
		
			'sql_thesis="SELECT * FROM keywords_Lthesis where ddd>0 and id_thesis='"&ors2_t("id_thesis")&"'"
			sql_thesis="SELECT * FROM keywords_Lthesis where id_thesis='"&ors2_t("id_thesis")&"'"
			set ors_thesis=server.createobject("adodb.recordset")
				 ors_thesis.open sql_thesis,conn,1,3
			If Not ors_thesis.eof Then
			a=0
			ors_thesis.movefirst
				Do While Not ors_thesis.eof 
					a=a+1
				ors_thesis.movenext
				Loop
				Response.write "<td>"&a
			sql_group="select * from student_group where id_stugroup='"&ors("id_stugroup")&"' "
							set ors_group=server.createobject("adodb.recordset")
							ors_group.open sql_group,conn,1,3
						if not ors_group.eof Then
							
							sql_tc="select * from type_curriculum where id_type_curri='"&ors_group("id_type_curri")&"'"
							set ors_tc=server.createobject("adodb.recordset")
							ors_tc.open sql_tc,conn,1,3
							if not ors_tc.eof then
							response.write "<td>"&ors_tc("type_curri_th")&"</td>"
							End If

sql_major="select * from major where id_major='"&ors_group("id_major")&"'"
							set ors_major=server.createobject("adodb.recordset")
							ors_major.open sql_major,conn,1,3
							if not ors_major.eof then
							response.write "<td>"&ors_major("major_name")&"</td>"
							End If

'sql_curri="select * from curriculum where id_curriculum='"&ors_group("id_curriculum")&"'"
							'set ors_curri=server.createobject("adodb.recordset")
							'ors_curri.open sql_curri,conn,1,3
							'if not ors_curri.eof then
									
							'response.write "<td>"&ors_curri("curriculum_sum")&"</td>"
							'End If
							'
						End If 'ors_group.
			
			
				
			ors2_t.movenext
			loop
			End If

End If
ors.movenext
loop
End If
'��------------------------

</table>
</body>
</html>

File Manager

Editing: list_status_thesis_load.asp.bak