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

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

    3. 

  3. <%

    4. 

  4. if request("id")="" then

    5. 

  5. '	response.write escape ("  " )

    6. 

  6. 	response.write escape ("   " )

    7. 

  7. 	response.end

    8. 

  8. end if 

    9. 

  9. 

    10. 

  10. if not isnumeric(request("id")) then

    11. 

  11. '	response.write escape ("! " )

    12. 

  12. 	response.write escape ("   " )

    13. 

  13. 	response.end

    14. 

  14. end if 

    15. 

  15. 

    16. 

  16. sql="SELECT * From GLAccounts WHERE id="& request("id") & " AND (GL="& OpenGL & ") ORDER BY Name"

    17. 

  17. 'response.write sql

    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("name") )

    23. 

  23. end if

    24. 

  24. 

    25. 

  25. rs.close()

    26. 

  26. conn.close()

    27. 

  27. %>
    28.