Editing: qe_close.asp

<!--#INCLUDE FILE="ConnectDB.asp"--> <!--#include file="chk_login.asp"--> <% pern=session("username") per="2" tb="qe" 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 qe_id=request("id") sqls="select * from qe where qe_id="&qe_id&"" set orss=server.createobject("adodb.recordset") orss.open sqls,conn,1,3 if not orss.eof then sta=orss("qe_status") if sta="0" then sta="1" elseif sta="1" then sta="0" end if sqldata="update qe set qe_status='"&sta&"' where qe_id="&qe_id&"" response.write sqldata set orsdata = Server.CreateObject("adodb.recordset") orsdata.open sqldata,conn,1,3 'sqlregis="insert into qe_regis2(id_regis,qe_course) values("&id_regis&",'"&qe_course&"')" 'set orsregis = Server.CreateObject("adodb.recordset") 'orsregis.open sqlregis,conn,1,3 else %> <SCRIPT LANGUAGE="JavaScript"> <% response.write"alert('ID"&qe_id&" Not found');" 'response.write "window.location.href='qe_index.asp';" %> --> </SCRIPT> <% end if 'response.write sqldata %> <SCRIPT LANGUAGE="JavaScript"> <% 'response.write "alert('QE is Closed');" %> </SCRIPT> <% response.write "<meta http-equiv='refresh' content ='0;url=qe_index.asp'>" '"<meta http-equiv='refresh' content ='0;url=qe_regis_form.asp.asp'>" else %> <SCRIPT LANGUAGE="JavaScript"> <% response.write "window.location.href='index.html';" %> --> </SCRIPT> <% end if %>