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
		  %>
<%
id=request("id")
id_sub=request("id_sub")

' set orscr=server.createobject("adodb.recordset")
	' sqlcr="select * from sub_res where id_contact='"&id&"' and id_contact_sub='"&id_sub&"'"
'	 orscr.open sqlcr,Conn,1,3
	' if not orscr.eof then
	'orscr.movelast
	'a=orscr("id_status_res")
	''do while not orscr.eof
	'if a="" then
	'a=0
'end if
	'a=a+1
			'response.write "<tr><td>"&orscr("id_capital_res")&"<td>"&orscr("capital_res")
	'	orscr.movenext
	'	loop
	'	end if
		  
		  
date_mo=now
username=session("username")
sqldata="insert into sub_res(username,id_contact,date_mo,id_contact_sub)  values('"&username&"','"&id&"','"&date_mo&"','"&id_sub&"')"
'  response.write sqldata

set orsdata = Server.CreateObject("adodb.recordset")
 sqlcheck="select * from sub_res where id_contact='"&id&"' and id_contact_sub='"&id_sub&"'"
 set orscheck=server.createobject("adodb.recordset")
 orscheck.open sqlcheck,conn,1,3
 if orscheck.eof then
 orsdata.open sqldata,conn,1,3
'response.write sqldata
%>
<SCRIPT LANGUAGE="JavaScript">
<%
		response.write "alert('�ѹ�֡�����Ź�����º��������');"
		response.write "window.location.href='sub_res.asp?id="&id&"';"
'response.write "<meta http-equiv='refresh' content ='3;url=status_res.asp'>"
%>
		-->
		</SCRIPT>
		<%
else
%>
<SCRIPT LANGUAGE="JavaScript">
<%

response.write "alert('�ѹ�֡�����ū��++ ��ҹ��ѹ�֡�����Ź�������');"
		response.write "window.location.href='sub_res.asp?id="&id&"';"
%>
		-->
		</SCRIPT>
		<%
'response.write "�����ū�� "
'response.write "<meta http-equiv='refresh' content ='7;url=index.asp'>"
end if
else
%>
<SCRIPT LANGUAGE="JavaScript">
<%

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

File Manager

Editing: add_sub_res.asp