PageRenderTime 16ms CodeModel.GetById 12ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/beta/admin/sysLock.asp

http://github.com/khaneh/Orders
ASP | 44 lines | 31 code | 6 blank | 7 comment | 3 complexity | 28bb833958f150501ad17fe18613e90c MD5 | raw file
 1<%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%><%
 2' Admin
 3PageTitle="��� �����"
 4SubmenuItem=5
 5%>
 6<!--#include file="top.asp" -->
 7<BR><BR><BR><BR><BR><CENTER>
 8<%
 9'-----------------------------------------------------------------------------------------------------
10'---------------------------------------------------------------------------------- Submit new AO MEMO
11'-----------------------------------------------------------------------------------------------------
12if request("act")="open" then
13	application("syslock") = ""
14	application("syslockerName") = ""
15
16'-----------------------------------------------------------------------------------------------------
17'---------------------------------------------------------------------------------- Submit new AO MEMO
18'-----------------------------------------------------------------------------------------------------
19elseif request("act")="close" then
20	application("syslock") = session("id")
21	application("syslockerName") = session("CSRName")
22
23end if
24
25if application("syslock") <> ""  then 
26	response.write "<H3>����� ����  "& application("syslockerName") & " ��� ��� ���</H3>"
27	%>
28	<FORM METHOD=POST ACTION="?act=open">
29		<INPUT TYPE="submit" value="��� ���� ���">
30	</FORM>
31	<%
32else
33	%>
34	<FORM METHOD=POST ACTION="?act=close">
35		<INPUT TYPE="submit" value="���� ���">
36	</FORM>
37	<%
38end if 
39
40%>
41
42</CENTER>
43
44<!--#include file="tah.asp" -->