tugrul / aspjson Goto Github PK

Can't open Google Code ,how to make this?

{"name1":value1,"name2":value2,"data":[{"ArrName":"ArrVlaue1","ArrName":"ArrVlaue2"},{"ArrName":"ArrVlaue3","ArrName":"ArrVlaue4"}]}

I use QueryToJSON only make [{"ArrName":"ArrVlaue1","ArrName":"ArrVlaue2"},{"ArrName":"ArrVlaue3","ArrName":"ArrVlaue4"}]

Unhandled exception at line 157, column 5 in json.asp
0x800a802d - Microsoft VBScript runtime error: This script contains malicious content and has been blocked by your antivirus software.: 'Eval' occurred

Firstly, thanks for creating this code.

Small issue though. I have an array containing two entries which are both jsObjects containing 5 entries each. When I pass the Results array to toJSON shown below, it adds 1000ms to the execution time.

If I create a jsObject and set myJSObject("myresults") = Results, and myJSObject.flush, the execution time is only 34ms in total, but then the format is not correct as it includes the 'myresults' field name in the output.

'tblResults is an ADODB RecordSet.

dim Results()
redim Results(-1)
dim Result

do until tblResults.eof
	set Result = jsObject()

	Result("tenancyid") = tblResults("tenancyid")	
	if tblResults("company") <> "" then
		Result("fullname") = tblResults("company")
	else
		Result("fullname") = tblResults("firstname") & " " & tblResults("surname")
	end if

	Result("apartmentnumber") = tblResults("namenumber")
	Result("blockname") = tblResults("blockname")
	Result("postcode") = tblResults("postcode")
	
	redim preserve Results(ubound(Results)+1)
	set Results(ubound(Results)) = Result
	
	tblResults.movenext
loop

ResultsJson = toJSON(Results)

response.write ResultsJson

set o = jsobject()
o("a")= 0.123
WScript.Echo toJSON(o)
' Output: {"a":.123} which is invalid because ECMA-404 does not allow numbers starting with decimal point.