/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. 

  2. <!--#include file="../config.asp" -->

    3. 

  3. <%

    4. 

  4. ErrorFound=False

    5. 

  5. ON ERROR Resume Next

    6. 

  6. 	ID=clng(request("id"))

    7. 

  7. 

    8. 

  8. 	if Err.Number<>0 then

    9. 

  9. 		Err.clear

    10. 

  10. 		ErrorFound=True

    11. 

  11. 	end if

    12. 

  12. ON ERROR GOTO 0

    13. 

  13. 

    14. 

  14. if NOT ErrorFound then

    15. 

  15. 	'Changed by Kid ! 831125

    16. 

  16. 	'Considering Status <> 3 (3=Account is Blocked)

    17. 

  17. 	sql="SELECT AccountTitle From Accounts WHERE ID="& ID & " AND Status <> 3"

    18. 

  18. 	set rs=Conn.Execute(sql)

    19. 

  19. 	if (rs.EOF) then

    20. 

  20. 		response.write escape ("   " )

    21. 

  21. 	else

    22. 

  22. 		response.write escape( rs("AccountTitle") )

    23. 

  23. 	end if

    24. 

  24. 	rs.close

    25. 

  25. else

    26. 

  26. 		response.write escape ("   " )

    27. 

  27. end if

    28. 

  28. conn.close

    29. 

  29. %>
    30.