Editing: add_extratime_res.asp.bak

<!--#INCLUDE FILE="ConnectDB.asp"--> <!--#include file="chk_login.asp"--> <% 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.form("id") num_extra=request.form("num_extra") d_extra=request.form("d_extra") m_extra=request.form("m_extra") y_extra=request.form("y_extra") date_mo=now username=session("username") sqldata="insert into extratime_res(username,date_mo,num_extra,d_extra,m_extra,y_extra,id_contact) values('"&username&"','"&date_mo&"','"&num_extra&"','"&d_extra&"','"&m_extra&"','"&y_extra&"','"&id&"')" '' response.write sqldata set orsdata = Server.CreateObject("adodb.recordset") sqlcheck="select * from extratime_res where id_contact='"&id&"' and num_extra='"&num_extra&"'" 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='extratime_res_form.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='extratime_res_form.asp?id="&id&"';" %> --> </SCRIPT> <% end if else %> <SCRIPT LANGUAGE="JavaScript"> <% response.write "window.location.href='index.html';" %> --> </SCRIPT> <% end if %>