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