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