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
		  %>
<head>
<body>
	  <%

dim ors
id=request("id")
id_n=request("id_n")
set ors=server.createobject("adodb.recordset")
	 sqlmark="Delete from reportprogress_res  where id_contact= '"&id&"' and id_status_res='"&id_n&"'"

ors.Open sqlmark, conn, 1, 3
	sqlup="select * from reportprogress_res where id_contact='"&id&"'"
						  set orsup=server.createobject("adodb.recordset")
						  orsup.open sqlup,conn,1,3
						  if not orsup.eof then
									orsup.movelast
									sql12="update  research set username_status='"&username&"',datemo_status='"&date_mo&"',id_status_res='"&orsup("id_status_res")&"'  where id_contact='"&id&"'"
									set ors12=server.createobject("adodb.recordset")
									ors12.open sql12,conn,1,3
									'response.write sql12
						  end if
	%>
<SCRIPT LANGUAGE="JavaScript">
<%
		response.write"alert('ź���������º���¤��');"

%>
		-->
		</SCRIPT>
		<%
		response.write "<meta http-equiv='refresh' content ='0;url=reportprogress_res_form.asp?id="&id&"''>"

Conn.Close

'end if
%>
</FORM>
</body>
</head>
<%
else
%>
<SCRIPT LANGUAGE="JavaScript">
<%

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

File Manager

Editing: del_reportprogress_res.asp