File Manager

<%response.cachecontrol="private"%>

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

<title>BSRI's Research</title>
 
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">

<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>Report of Research BSRI<br>
        Behavioral Science Research Institute, Srinakharinwirot University</strong></p>
        <p align="left"></p>
        <blockquote>

</blockquote>
		
        <table width="100%" border="0">
          <tr bgcolor=#c0c0c0>
            <td><div align="center">No.</div></td>
            <td><div align="center" >Research Name</div></td>
            <td><div align="center">Researcher</div></td>
			
            <td><div align="center">Year</div></td>
			
			<td><div align="center">[Download]</div></td>
			<td><div align="center">[Comment]</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
			no1=noo Mod 2
			If no1>0 Then
			bgc="#e0e0e0"
			Else
			bgc="#ffffff"
			End If
			noo=noo+1
			response.write "<tr bgcolor="&bgc&"><td>"&orsall("id_research")
			response.write "<td width=300><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
'			if not orsch.eof then
'			response.Write orsch("name_lec_eng")&" "&orsch("sur_lec_eng")
'else
'			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_eng")&" "&orsch2("lastname_eng")
'						end if
'				end if
			'response.Write orsall1("id_lecturer")
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_eng")&" "&orsch("sur_lec_eng")
							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_eng")&" "&orsch2("lastname_eng")
									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_eng")&" "&orss("sur_st_eng")
									end if
				end if
			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_eng")
		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")-543
		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 "Hit:<a href=hitc_report.asp?id="&orsat("id_attach")&">"&orsat("hitc")&"</a>"
		response.write "<br>"
		orsat.movenext
		loop
		else
		response.write "-"
	end if
		response.Write " <td>[<a href=ref_res.asp?id="&orsall("id_research")&">comment</a>]"	
		orsall.movenext
		loop

else
		  response.write "<tr><td colspan =6 align=center>����բ�����"
		  end if
		  
		  %>
		  
        </table>
        <p>&nbsp;</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_eng.asp