[Resolvido] Gerar JSON com ASP

[xanburzum 169]

<!--#include file="JSON_latest.asp"--> 

<%

Dim o

Set o = jsObject()

 

o("nome") = "xan"

o("nome") = o("nome") & "rul"

 

o("surnome") = "burzum"

o("lucky_numbers") = Array(1,2,6,7,9)

o("sample_date") = #05.05.2010#

o(Null) = "testando teste"

 

o.Flush

%>

[Cesão 1]

O exemplo que você me mandou não me ajudaria. Este sim:

 

<%
Dim a
Set a = jsArray()

Sub AddMember(name, surname, birth)
        Set a(Null) = jsObject()
        a(Null)("name") = name
        a(Null)("surname") = surname
        a(Null)("birth") = birth
End Sub

AddMember("tuğrul", "topuz", "10.09.1989")
AddMember("cin", "ali", "01.01.1968")

a.Flush
%>

No exemplo acima, existem duas linhas de AddMember... basta deixar apenas uma delas, trocar os valores por variaveis do banco e dar o loop na linha.

Pode fechar. Resolvido.

[Cesão 1]

Pessoal, nesse mesmo código ai em cima, preciso dar um nome ao array, e se possível, dar um callback.

Quero que o tesultado seja:

 

{"NomeDoArray":[{"ID-PALAVRA":"19","TEXTO-PALAVRA":"Casa","HTML":"<p>Texto da casa</p>"}]

 

Se possivel, gostaria de um callback, então ficaria:

 

NomeDoCallback({"NomeDoArray":[{"ID-PALAVRA":"19","TEXTO-PALAVRA":"Casa","HTML":"<p>Texto da casa</p>"}])

 

Alguém sabe como fazer isso usando o JSON 2.0.2?