xml_CustomerAccount.asp

/beta/accounting/xml_CustomerAccount.asp

http://github.com/khaneh/Orders
ASP | 29 lines | 25 code | 2 blank | 2 comment | 3 complexity | 1de68d3cffbaf530719e1c871a5783f1 MD5 | raw file

 1<%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%>
 2<!--#include file="../config.asp" -->
 3<%
 4ErrorFound=False
 5ON ERROR Resume Next
 6	ID=clng(request("id"))
 7
 8	if Err.Number<>0 then
 9		Err.clear
10		ErrorFound=True
11	end if
12ON ERROR GOTO 0
13
14if NOT ErrorFound then
15	'Changed by Kid ! 831125
16	'Considering Status <> 3 (3=Account is Blocked)
17	sql="SELECT AccountTitle From Accounts WHERE ID="& ID & " AND Status <> 3"
18	set rs=Conn.Execute(sql)
19	if (rs.EOF) then
20		response.write escape ("���� ����� ���� �����" )
21	else
22		response.write escape( rs("AccountTitle") )
23	end if
24	rs.close
25else
26		response.write escape ("���� ����� ���� �����" )
27end if
28conn.close
29%>