/beta/accounting/xml_GLAccount.asp
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%>