Erro comparando variaveis
Estou tentando ler um xml do meu próprio site usando , contudo,
Estou tentando ler um xml no meu proprio site, contudo, nesse arquivo teste que criei ress.asp só tem um response.write com o texto 'OK' (para recuperar com o responseText)...Contudo, ele sempre considera com valores diferentes, já tentei converter tudo para string, troquei por número e converti para inteiro e continua lendo como diferentes, o codigo abaixo devolve:
erro 200 -8 OK
Isto é, ele leu o arquivo, mas nao reconheceu que devolveu OK e mostrou 'erro 200', o tipo da variavel é 8 (string), e o responseText, devolveu OK, igual o que uso para comparar...
Alguma ideia?
Obrigado.
<%
Dim oXMLHTTP
Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")
oXMLHTTP.Open "get", "http://www.folhamt.com.br/ress.asp", false
oXMLHTTP.Send
if (oXMLHTTP.readyState = 4) then
If oXMLHTTP.Status = 200 Then
GetTextFromUrl = oXMLHTTP.responseText
if GetTextFromUrl = "OK" then ///AQUI A COMPARAÇÃO NÃO É VÁLIDA
response.write "Passou"
response.Write(VarType(GetTextFromUrl))
else
response.write "erro 200"
response.Write " -"&(VarType(GetTextFromUrl))
end if
response.write comparou
response.write GetTextFromUrl
end if
else
response.write "erro 4"
End if
%>
Discussão (4)
Carregando comentários...