Output JSON

https://code.google.com/archive/p/aspjson/ 'on error resume next Dim res Set res = jsObject() set hero = new Hero_m user_id = session("userNo"

Continue Reading

Dictionary

Set fields = Server.CreateObject("Scripting.Dictionary") fields.Add "order_id", order_id fields.Add "order_id2", order_id db.update "id", order_i

Continue Reading

DB Class

Class DB_m Private conn private error_string Public Sub Class_Initialize() init() End Sub public sub init() set conn = server.cre

Continue Reading