/beta/inventory/xml_InventoryItem.asp

http://github.com/khaneh/Orders · ASP · 89 lines · 77 code · 7 blank · 5 comment · 5 complexity · 7dcba4aba8a9be2d10e10346a9a56ce7 MD5 · raw file

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%>
  2. <!--#include file="../config.asp" -->
  3. <!--#include File="../JSON_2.0.4.asp"-->
  4. <%
  5. select case request("act")
  6. case "fromCode":
  7. Set result = jsObject()
  8. set store = jsArray()
  9. set result("store") = jsArray()
  10. if request("invCode")<>"" then
  11. set rs = Conn.Execute("SELECT * From InventoryItems WHERE invCode="& request("invCode") & " ORDER BY id")
  12. if rs.eof then
  13. result("errMsg") = " "
  14. result("err")=1
  15. else
  16. result("err")=0
  17. itemID = cint(rs("id"))
  18. result("itemID") = itemID
  19. result("itemName") = rs("name")
  20. set rs = Conn.Execute("select * from inventoryItemsInStore where itemID = " & itemID)
  21. while not rs.eof
  22. set result("store")(null) = jsObject()
  23. result("store")(null)("storeID") = rs("storeID")
  24. result("store")(null)("unit") = rs("unit")
  25. rs.moveNext
  26. wend
  27. end if
  28. rs.close()
  29. conn.close()
  30. end if
  31. case "getStore":
  32. set result = jsArray()
  33. set rs = Conn.Execute("select * from inventoryItemsInStore where itemID = " & request("itemID"))
  34. while not rs.eof
  35. set result(null) = jsObject()
  36. result(null)("storeID") = rs("storeID")
  37. result(null)("unit") = rs("unit")
  38. rs.moveNext
  39. wend
  40. rs.close
  41. conn.close
  42. case "search":
  43. set result = jsArray()
  44. mySQL="SELECT * From InventoryItems WHERE (REPLACE([Name], ' ', '') LIKE REPLACE(N'%"& URLDecode(Server.urlencode(request("search"))) & "%', ' ', '')) ORDER BY Name"
  45. 'mySQL="SELECT * From InventoryItems WHERE [Name] LIKE N'%%' ORDER BY Name"
  46. 'response.write mySQL 'request("search")
  47. Set rs = conn.Execute(mySQL)
  48. while not rs.eof
  49. 'response.write rs("name")
  50. set result(null) = jsObject()
  51. result(null)("id") = rs("id")
  52. result(null)("name") = rs("name")
  53. result(null)("invCode") = rs("invCode")
  54. rs.moveNext
  55. wend
  56. rs.close
  57. conn.close
  58. end select
  59. Response.Write toJSON(result)
  60. Function URLDecode(sConvert)
  61. Dim aSplit
  62. Dim sOutput
  63. Dim I
  64. If IsNull(sConvert) Then
  65. URLDecode = ""
  66. Exit Function
  67. End If
  68. ' convert all pluses to spaces
  69. sOutput = REPLACE(sConvert, "+", " ")
  70. ' next convert %hexdigits to the character
  71. aSplit = Split(sOutput, "%")
  72. If IsArray(aSplit) Then
  73. sOutput = aSplit(0)
  74. For I = 0 to UBound(aSplit) -1
  75. sOutput = sOutput & _
  76. Chr("&H" & Left(aSplit(i + 1), 2)) &_
  77. Right(aSplit(i + 1), Len(aSplit(i + 1)) - 2)
  78. Next
  79. End If
  80. URLDecode = sOutput
  81. End Function
  82. %>