Dictionary

Set fields = Server.CreateObject("Scripting.Dictionary")
fields.Add "order_id", order_id
fields.Add "order_id2", order_id

db.update "id", order_id, fields, "CPS_Orders"
'log_g order_id

Loop

keys = dic.keys()
For Each k In keys
	response.write k & ": " & dic.item(k) & "<br/>"
next

Reference:

  1. http://www.w3schools.com/asp/met_add.asp