File Manager

<%response.cachecontrol="private"%>

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

</head>

<%
		  id_stat_res="5"
		  idtype=request("idtype")
		  
		  sqlall="select * from research where id_status_res<>'"&id_stat_res&"' order by y_begin desc"
		 
		  set orsall=server.CreateObject("adodb.recordset")
		  orsall.open sqlall,conn,1,3
		  if not orsall.eof then
	
		  noo=0
		  orsall.movefirst
		  		do while not orsall.eof
				noo=noo+1
					 response.write "<tr><td div align=center>"&noo
					 
					 response.write "<td width=300>"&orsall("research_t")&"</a>"
					 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
											  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 not orsch.eof then
																	response.Write orsch("name_lec")&" "&orsch("sur_lec")

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 "<strong>"
																		response.Write orsch2("firstname")&" "&orsch2("lastname")
																		'response.write "</strong>"
																	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	
											  end if
			  '����ش����ʴ��ѡ�Ԩ��
					response.write "<td>"
						sqlsa="select * from reportprogress_res where id_contact='"&orsall("id_contact")&"'"
					    set orssa=server.CreateObject("adodb.recordset")
						orssa.open sqlsa,conn,1,3
								if not orssa.eof then
										'response.write orss("status_res_name")
										orssa.movelast
					 	sqls="select * from status_research where id_status_res='"&orssa("id_status_res")&"'"
					    set orss=server.CreateObject("adodb.recordset")
						orss.open sqls,conn,1,3
								if not orss.eof then
										response.write orss("status_res_name")
								end if
								end if
								
					 			
				orsall.movenext
				loop
		  
		  else
		  response.write "<tr><td colspan =6 align=center>����բ�����"
		  end if
		 ' orsall.close
		  'set orsall=nothing

%>
        </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: res_inpro_public.asp