File Manager

<%response.cachecontrol="private"%>

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

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center">
  <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">SWU</a> | <a href="http://bsri.swu.ac.th">BSRI</a> 
        |<a href="log_out.asp">Log Out </a></strong></font>|</div></td>
  </tr>
  <tr> 
    
    <td width="77%" align="left" valign="top">
      <div align="center">
        <p><strong>�ҹ�Ԩ�·���������<br>
        ʶҺѹ�Ԩ�¾ĵԡ�����ʵ��</strong></p>
        <p align="left">���¹ ��Ҫԡ��� ʶҺѹ�Ԩ�¾ĵԡ�����ʵ�� �ء��ҹ</p>
        <blockquote> 
          <p align="left">���͡�þѲ����л�Ѻ��ا�������ԡ�÷ҧ���ྨ���բ�� 
            ��зҧ��红ͧ���������ԡ�����ҧ���� <strong>�ô���ء��ҹ��͹���� 
            ���ʡ�� ������� �������Ѿ�� ��мŧҹ</strong>�ͧ��ҹ���Ӽŧҹ�Ԩ�¢ͧʶҺѹ� 
            ���ҧ�ԧ��������� <strong>��ͤԴ���</strong> �ѡ�͢ͺ��Фس���<br>
            <br>
            <a href="http://esurvey.swu.ac.th/phpframework/swu/qnr/master/qqnrqnr002.php?qnr_cd=QNR52005401&web_system_id=1">&lt;&lt; 
            Ẻ�ͺ��������֧��㨡�����ԡ�ðҹ�����ŧҹ�Ԩ��ʶҺѹ�Ԩ�¾ĵԡ�����ʵ��&gt;&gt;</a></p>
        </blockquote>
		
        <table width="100%" border="0">
		
          <tr bgcolor=#FFD9FC>
            <td><div align="center">�ӴѺ���</div></td>
            <td><div align="center" >���ͧҹ�Ԩ��</div></td>
            <td><div align="center">��м���Ԩ��</div></td>
			
            <td><div align="center">�շ������</div></td>
			
			<td><div align="center">[Download]</div></td>
			<td><div align="center">[��ͤԴ���]</div></td>
          </tr>

<%
		  id_stat_res="5"

sqlall="select * from research where id_status_res='"&id_stat_res&"' order by id_research desc"
   set orsall=server.CreateObject("adodb.recordset")
					orsall.open sqlall,conn,1,3
					if not orsall.eof then
						noo=1
						orsall.movefirst
							do while not orsall.eof
							if noo mod 2 > 0 then 
							bgc="#EAEAEA"
							else bgc="#ffffff"
							end If
	'�ʴ���� ����� ����ʴ�������������ͧ �ѡ�Ԩ�� ������ �.�� ����ʴ��ء�ҹ�Ԩ�� �������� �͡���Ṻ
''sqlat="select * from attachment_res where id_contact='"&orsall("id_contact")&"'"
		''set orsat=server.CreateObject("adodb.recordset")
			''orsat.open sqlat,conn,1,3
			''if not orsat.eof then
			
	'�ʴ���� ����� ����ʴ�������������ͧ �ѡ�Ԩ�� ������			
			response.write "<tr bgcolor="&bgc&"><td>"&orsall("id_research")
			response.write "<td width=300>"&orsall("research_t")&"<br><strong>"&orsall("research_e")

response.write "<td>"
															  '���������ʴ��ѡ�Ԩ��
			id=orsall("id_contact")
			sqlall1="select * from cowork_res where id_contact='"&id&"' order by id_level"
			set orsall1=server.CreateObject("adodb.recordset")
			orsall1.open sqlall1,conn,1,3
				if not orsall1.eof then
													
			orsall1.movefirst
				do while not orsall1.eof
				s_value=orsall1("source_c")
				response.write orsall1("id_level")&"."
				'response.Write "<td>"	
				'sqlch="select * from lecturer where id_lecturer='"&orsall1("id_lecturer")&"'"
				'set orsch=server.CreateObject("adodb.recordset")
				'orsch.open sqlch,conn,1,3
if s_value="1" then
			  			sqlch="select * from lecturer where id_lecturer='"&orsall1("id_lecturer")&"'"
						set orsch=server.CreateObject("adodb.recordset")
						orsch.open sqlch,conn,1,3
							if not orsch.eof then
									response.Write orsch("name_lec")&" "&orsch("sur_lec")
							end if
				elseif s_value="2" then
					sqlch2="select * from other_lec where id_other_lec='"&orsall1("id_lecturer")&"'"
					set orsch2=server.CreateObject("adodb.recordset")
					orsch2.open sqlch2,conn,1,3
					if not orsch2.eof then
							response.Write orsch2("firstname")&" "&orsch2("lastname")
					end if
				else 
					sqls="select * from staff where id_staff='"&orsall1("id_lecturer")&"'"
					set orss=server.CreateObject("adodb.recordset")
					orss.open sqls,conn,1,3
					if not orss.eof then
						response.Write orss("name_st")&" "&orss("sur_st")
					end if
				end if
											  'response.Write orsall1("id_lecturer")
			response.Write "-"	
			sqlp="select * from position_res where id_position_res='"&orsall1("id_position_res")&"'"
			set orsp=server.CreateObject("adodb.recordset")
			orsp.open sqlp,conn,1,3
				if not orsp.eof then
				response.write orsp("position_res")
				end if
				'response.Write orsall1("id_position_res")
				'response.Write "<td>"
				response.Write "<br>"
				orsall1.movenext
				loop	
				else
				response.write "-"
				end if
			  '����ش����ʴ��ѡ�Ԩ��
			response.write "<td>"
			response.write orsall("ytime_end")
			response.write "<td>"

'�ʴ���� ����� ����ʴ�������������ͧ �ѡ�Ԩ�� ������ �.�� ����ʴ��ء�ҹ�Ԩ�� �������� �͡���Ṻ
sqlat="select * from attachment_res where id_contact='"&orsall("id_contact")&"'"
		set orsat=server.CreateObject("adodb.recordset")
			orsat.open sqlat,conn,1,3
			if not orsat.eof then														
			orsat.movefirst
			do while not orsat.eof
				sqltat="select * from type_attach where id_typeattach='"&orsat("id_typeattach")&"'"
					set orstat=server.createobject("adodb.recordset")
					orstat.open sqltat,conn,1,3
																											'response.write orstat("type_attach")
			response.Write " [<a href=hitc_research.asp?id="&orsat("id_attach")&">"&orstat("type_attach")&"</a>]"
			response.write "��:<a href=hitc_report.asp?id="&orsat("id_attach")&">"&orsat("hitc")&"</a>"
			response.write "<br>"
			orsat.movenext
			Loop
			
			sqld="select * from distribute_res where id_contact='"&orsall("id_contact")&"'"
	set orsd=server.CreateObject("adodb.recordset")
	orsd.open sqld,conn,1,3
		if not orsd.eof then
					d=1
			orsd.movefirst
			do while not orsd.eof 
	'response.write d&"."&orsd("name_dis_res")&"-"&orsd("d_dis_res")&"-"&orsd("m_dis_res")&"-"&orsd("y_dis_res")
	sqlt="select * from type_dis_res where id_type_dis_res='"&orsd("id_type_dis_res")&"'"
	set orst=server.CreateObject("adodb.recordset")
	orst.open sqlt,conn,1,3
	if not orst.eof then
	response.write orst("type_dis_res")&"<br>"
				'response.Write orsch2("id_type_dis_res")
		end if
								'response.
						d=d+1
						orsd.movenext
						loop
						else 
						response.write "-"
					end if
else
		response.write "Contact Researcher"
end if																												
		response.Write " <td>[<a href=ref_res.asp?id="&orsall("id_research")&">comment</a>]"	
'�ͧ����ʴ���� orsat

orsall.movenext
		noo=noo+1
		loop
		  else
		  response.write "<tr><td colspan =6 align=center>����բ�����"
		  end if
		  
		  %>
		  
        </table>
        <p><a href="https://info.flagcounter.com/QvH1"><img src="https://s11.flagcounter.com/count2/QvH1/bg_FFFFFF/txt_000000/border_CCCCCC/columns_2/maxflags_10/viewers_0/labels_0/pageviews_0/flags_0/percent_0/" alt="Flag Counter" border="0"></a></p>
        <p></p>
		<p></p>
      </div>    </td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif">&nbsp;</td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: research_public.asp