File Manager

<%

'*****************************************************************
session("tb_name")="student"
id_stu=session("id_stu1")
%>

<%
'*****************************************************************
  if session("id_stu1") =id_stu  then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ

<head>
<body>
	  <%

dim ors
id=request("id")
id_thesis=request("id_thesis")
set ors1=server.createobject("adodb.recordset")
	 sqlmark1="select *  from thesis  where id_thesis= '"&id_thesis&"'"

ors1.Open sqlmark1, conn, 1, 3
	if not ors1.eof then
				id_stu=ors1("id_stu")
	end if
set ors=server.createobject("adodb.recordset")
	 sqlmark="Delete from thesis_test  where id= '"&id&"'"

ors.Open sqlmark, conn, 1, 3

set ors2=server.createobject("adodb.recordset")
	 sqlmark2="Delete from committee_thesis  where id= '"&id&"' "

ors2.Open sqlmark2, conn, 1, 3

response.write"ź�������������º�������Ǩ��"

'resposne.write "<meta http-equiv='refresh' content ='0;url=choose_course_form.asp?id_category="&id_category&" '>"
	response.write "<meta http-equiv='refresh' content ='0;url=reserve_room_test_form.asp?id_thesis="&id_thesis&"&id_stu="&id_stu&"'>"
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_reserve_room.asp