PageRenderTime 4ms CodeModel.GetById 2ms app.highlight 0ms RepoModel.GetById 1ms app.codeStats 0ms

/beta/accounting/xml_GLAccount.asp

http://github.com/khaneh/Orders
ASP | 27 lines | 21 code | 3 blank | 3 comment | 5 complexity | b5a1b126e3b2b4bc017c684199c53372 MD5 | raw file
 1<%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%>
 2<!--#include file="../config.asp" -->
 3<%
 4if request("id")="" then
 5'	response.write escape ("���� ��� " )
 6	response.write escape ("���� ����� ���� �����" )
 7	response.end
 8end if 
 9
10if not isnumeric(request("id")) then
11'	response.write escape ("���! " )
12	response.write escape ("���� ����� ���� �����" )
13	response.end
14end if 
15
16sql="SELECT * From GLAccounts WHERE id="& request("id") & " AND (GL="& OpenGL & ") ORDER BY Name"
17'response.write sql
18set rs=Conn.Execute(sql)
19if (rs.EOF) then
20	response.write escape ("���� ����� ���� �����" )
21else
22    response.write escape( rs("name") )
23end if
24
25rs.close()
26conn.close()
27%>