/beta/Inquiry/xml2.asp

http://github.com/khaneh/Orders · ASP · 22 lines · 21 code · 1 blank · 0 comment · 2 complexity · 5140546badb24e3a59d043d7ff4293a8 MD5 · raw file 

    

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%>

    2. 

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

    3. 

  3. <%

    4. 

  4. InvItemID=request("id")

    5. 

  5. if isNumeric(InvItemID) then

    6. 

  6. 	InvItemID=clng(InvItemID)

    7. 

  7. else

    8. 

  8. 	InvItemID=0

    9. 

  9. end if

    10. 

  10. sql="SELECT * FROM InvoiceItems WHERE (ID='" & InvItemID &"') AND (Enabled=1)"

    11. 

  11. set rs=Conn.Execute(sql)

    12. 

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

    13. 

  13. 	response.write escape ("ÓØÑ ÎÇáí" )

    14. 

  14. elseif (rs.EOF) then

    15. 

  15. 	response.write escape ("ßÏ ßÇáÇ ÛáØ ÇÓÊ" )

    16. 

  16. else

    17. 

  17.     response.write escape( rs("name") & "#" & rs("type") & "#" & rs("fee") & "#" & rs("hasVat"))

    18. 

  18. end if

    19. 

  19. 

    20. 

  20. rs.close()

    21. 

  21. conn.close()

    22. 

  22. %>
    23.