/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
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%>
- <!--#include file="../config.asp" -->
- <!--#include File="../JSON_2.0.4.asp"-->
- <%
- select case request("act")
- case "fromCode":
- Set result = jsObject()
- set store = jsArray()
- set result("store") = jsArray()
- if request("invCode")<>"" then
- set rs = Conn.Execute("SELECT * From InventoryItems WHERE invCode="& request("invCode") & " ORDER BY id")
- if rs.eof then
- result("errMsg") = " "
- result("err")=1
- else
- result("err")=0
- itemID = cint(rs("id"))
- result("itemID") = itemID
- result("itemName") = rs("name")
- set rs = Conn.Execute("select * from inventoryItemsInStore where itemID = " & itemID)
- while not rs.eof
- set result("store")(null) = jsObject()
- result("store")(null)("storeID") = rs("storeID")
- result("store")(null)("unit") = rs("unit")
- rs.moveNext
- wend
- end if
- rs.close()
- conn.close()
- end if
- case "getStore":
- set result = jsArray()
- set rs = Conn.Execute("select * from inventoryItemsInStore where itemID = " & request("itemID"))
- while not rs.eof
- set result(null) = jsObject()
- result(null)("storeID") = rs("storeID")
- result(null)("unit") = rs("unit")
- rs.moveNext
- wend
- rs.close
- conn.close
- case "search":
- set result = jsArray()
-
- mySQL="SELECT * From InventoryItems WHERE (REPLACE([Name], ' ', '') LIKE REPLACE(N'%"& URLDecode(Server.urlencode(request("search"))) & "%', ' ', '')) ORDER BY Name"
- 'mySQL="SELECT * From InventoryItems WHERE [Name] LIKE N'%%' ORDER BY Name"
- 'response.write mySQL 'request("search")
- Set rs = conn.Execute(mySQL)
- while not rs.eof
- 'response.write rs("name")
- set result(null) = jsObject()
- result(null)("id") = rs("id")
- result(null)("name") = rs("name")
- result(null)("invCode") = rs("invCode")
- rs.moveNext
- wend
- rs.close
- conn.close
- end select
- Response.Write toJSON(result)
-
- Function URLDecode(sConvert)
- Dim aSplit
- Dim sOutput
- Dim I
- If IsNull(sConvert) Then
- URLDecode = ""
- Exit Function
- End If
-
- ' convert all pluses to spaces
- sOutput = REPLACE(sConvert, "+", " ")
-
- ' next convert %hexdigits to the character
- aSplit = Split(sOutput, "%")
-
- If IsArray(aSplit) Then
- sOutput = aSplit(0)
- For I = 0 to UBound(aSplit) -1
- sOutput = sOutput & _
- Chr("&H" & Left(aSplit(i + 1), 2)) &_
- Right(aSplit(i + 1), Len(aSplit(i + 1)) - 2)
- Next
- End If
-
- URLDecode = sOutput
- End Function
-
- %>