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">
      <div align="center">
        <p>��������ŧҹ�Ԩ��<br>
          		  <%
		 ' id=request("id")
		 ' sqlall="select * from research where id_contact='"&id&"'"
		 ' set orsall=server.CreateObject("adodb.recordset")
		  'orsall.open sqlall,conn,1,3
		  'if not orsall.eof then
		  
%>

</p>
		
        <table width="90%" border="0" bgcolor="#99FF99">
          <%

'if not orsnc.eof then%><%'end if%>
          <tr>
            <td  align="center" valign="top" bgcolor="#FFCCFF">�����š�������ŧҹ�Ԩ��<br>
              <%
	'id=request("id")
	'response.write orsall("id_contact")&"<br>����ͧ "
		'  response.write orsall("research_t")
					%>
              <br>
            <table width="100%" border="1" cellspacing="0" bordercolor="#CCCCCC">
              <tr>
			  <td><div align="center"><strong>���ͧҹ�Ԩ��</strong></div></td>
                <td><div align="center"><strong>�ѹ ��͹ �� ��������</strong></div></td>
                <td><div align="center"><strong>��������������</strong></div></td>
				<td><div align="center"><strong>���ͧҹ/������</strong></div></td>
				<td><div align="center"><strong>ʶҹ���/˹��§ҹ</strong></div></td>
				<td><div align="center"><strong>�������ҷ��Ѵ</strong></div></td>
				<td><div align="center"><strong>��������´���</strong></div></td>
				<%
				'if not orsnc.eof then
				%>
				<%
				'end if
				%>
              </tr>
			  <%
			sqlch2="select * from distribute_res"
			set orsch2=server.CreateObject("adodb.recordset")
			orsch2.open sqlch2,conn,1,3
			if not orsch2.eof then
			orsch2.movefirst
			do while not orsch2.eof			
			response.write "<tr>"
			response.write "<td>"
			response.write "<a href=detail_research.asp?id="&orsch2("id_contact")&">"&orsch2("id_contact")&"</a>"
			response.write "<td>"
			response.write orsch2("d_dis_res")&" - "&orsch2("m_dis_res")&" - "&orsch2("y_dis_res")
			response.write "<td>"
																				sqlt="select * from type_dis_res where id_type_dis_res='"&orsch2("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")
		response.Write orsch2("id_type_dis_res")
		end if
		response.write "<td>"
		response.write orsch2("name_dis_res")
		response.write "<td>"
		response.write orsch2("place_dis_res")
		response.write "<td>"
		response.write orsch2("d_begin")&"-"&orsch2("m_begin")&"-"&orsch2("y_begin")&" �֧ "&orsch2("d_end")&"-"&orsch2("m_end")&"-"&orsch2("y_end")
		response.write "<td>"
		response.write orsch2("detail_dis_res")
		' if not orsnc.eof then
		' response.Write "<td>"
		%>
<%
		'end if
		orsch2.movenext
		loop
	end if
			  %>
            </table>
            <%
					
			
			%>			</td>
          </tr>
        </table>
        <p>&nbsp;</p>
        <p> 
																	 
		</p>
	  </div>
</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>
<%
'else
%>
<SCRIPT LANGUAGE="JavaScript">
<%

'response.write "window.location.href='index.html';"
		%>
		-->
		</SCRIPT>
		<%
'end if

File Manager

Editing: distribute_all_res.asp