Problemas com JSON no Webservice
Amigos, estou com um sério problema com json2.asp
Estou usando ele pra listar uma paginação de um webservice.
Ele lê normalmente a página 1, mas quando o WHILE passa pra pagina 2 ele me retorna um erro
Acredito que seja alguma coisa no sentido de zerar o Objeto Json mas não estou sabendo como fazer.
Erro de tempo de execução do Microsoft VBScript erro '800a01b6'
O objeto não dá suporte para a propriedade ou método: 'parse'
api_sms/grava_extrato_sms.asp, linha 93
paginas=2
conta = 0
webservice_url = "https://api.directcallsoft.com/extrato/list-sms"
do while conta <= paginas
conta = conta + 1
resultado = ""
arrmsg = ""
mensagens = ""
response.write "conta: " & conta
response.write ","
'===== CONSULTAR SMS
set Xml = Server.Createobject("MSXML2.ServerXMLHTTP")
Xml.open "POST", webservice_url, false
Xml.setRequestHeader "content-type", "application/x-www-form-urlencoded"
Xml.send("access_token="&tokenSMS&"&formato=json&dataInicial="&dataAnterior&"&dataFinal="&dataAtual&"&pagina=" & conta)
resultado = Xml.responseText
Set json = JSON.parse(resultado)
mensagens = json.msg
arrmsg = split(mensagens, ",")
for i=0 to ubound(arrmsg)
response.write "conta_for: " & i
response.write ","
callerid = json.msg.get(i).callerid
cliente = json.msg.get(i).cliente
status_sms = json.msg.get(i).status_sms
callerid = json.msg.get(i).callerid
custo = json.msg.get(i).custo
uuid_origem = json.msg.get(i).uuid_origem
response.write callerid
response.write ","
next
loop
set Xml = Nothing
set json = Nothing
Discussão (0)
Carregando comentários...