File Manager

<%

'*****************************************************************
'session("tb_name")="course"
%>

<%
'*****************************************************************
 ' if session("tb_edit") <> 1  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 '���Է�
	'response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
'response.write "<meta http-equiv=refresh content =4;url=javascript:history.back();>" '���Է�
	'end if '���Է�
%>

File Manager

Editing: del_reportprogress_res.asp.bak