Previsão do tempo

[Patrique 0]

Fala ae galera, hoje um de meus clientes me ligou e falou que um script de previsão de tempo que eu havia feito estava co problemas.

 

O script pega informações do site clima tempo e a partir disso eu monto o esquema.

 

O ingraçado é que do nada o script parou de funcionar, já verifiquei tudo e não consigo achar aonde possa estar o problema, olhand na url http://selos.climatempo.com.br/selos/selo.php?CODCIDADE=319 os dados estão sendo passados corretamente.

 

O erro esta aparecendo assim

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: 'xmlTempo.selectSingleNode(...)'

/inc/func_tempo_resende.asp, line 9

Segue abaixo o code, se alguém ae souber o que pode esta acontecendo e puder me ajudar eu agradeço.

 

set xmlTempo = createObject("MSXML2.DOMDocument")

On Error Resume Next

    xmlTempo.async = False
    xmlTempo.setProperty "ServerHTTPRequest", true
    xmlTempo.load("http://selos.climatempo.com.br/selos/selo.php?CODCIDADE=319")

    nometempo     = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("nome").Text
    data          = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("data").Text
    minima        = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("low").Text
    maxima        = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("high").Text
    probabilidade = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("prob").Text
    mm            = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("mm").Text
    icone         = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("ico").Text
    frase         = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("frase").Text
    
    nometempo = split(nometempo,"-")

    Response.Write("<table width=""145"" border=""0"" cellpadding=""1"" cellspacing=""0"" class=""txt_topo"">")
        Response.Write("<tr>")
            Response.Write("<td width=""41"" rowspan=""2"" align=""center""><img src=""/img/tempo/"& icone &".gif"" title="""& frase & " - " & data &"""></td>")
            Response.Write("<td colspan=""5""><strong>"& nometempo(1) &" - "& nometempo(0) &"</strong></td>")
        Response.Write("</tr>")
        Response.Write("<tr>")
            Response.Write("<td width=""10""><img src=""/img/tempo/seta_topo1.gif"" alt=""Temperatura Mínima"" width=""10"" height=""9"" /></td>")
            Response.Write("<td width=""21""><strong>"& Minima &"º</strong></td>")
            Response.Write("<td width=""10""><img src=""/img/tempo/seta_topo2.gif"" alt=""Temperatura Máxima"" width=""10"" height=""9"" /></td>")
            Response.Write("<td width=""20""><strong>"& Maxima &"º</strong></td>")
            Response.Write("<td><a onclick=""PrevisaoTempo('2'); return false"" href=""#""><img src=""/img/tempo/seta_topo3.gif"" alt=""Atualizar"" width=""12"" height=""14"" border=""0"" /></a></td>")
        Response.Write("</tr>")
    Response.Write("</table>")

    If Err Then
       Response.write("<strong>nada</strong>")
       Err.Clear
    End If

[desisto 0]

o problema é que semudarem o nome de algum elemento o script da pau

 

 

 

tente eliminar esses modulos

 

    nometempo     = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("nome").Text
    data          = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("data").Text
    minima        = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("low").Text
    maxima        = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("high").Text
    probabilidade = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("prob").Text
    mm            = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("mm").Text
    icone         = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("ico").Text
    frase         = xmlTempo.selectSingleNode("//cidade").Attributes.GetNamedItem("frase").Text

pra ver se algum nome que esta dando pau, vai ser mais facil eliminar os possiveis erros

[xanburzum 169]

existe o Brspeed , um ótimo codigo...

mas no seu caso você precisa sehuir o dados do XML

GetNamedItem precisa ser igual

verifique tb se naun tem nenhum Object required. Um dos motivos que faz com que esse erro ocorra é tentar utilizar a propriedade ou executar uma ação em um objeto quando o mesmo ainda não foi criado. Por exemplo, caso você tentar finalizar a instância de um objeto sem ter criando: conn.Close(). Esse tipo de ação gera o erro de número 800A01A8. Antes de finalizar a instância do objeto o mesmo deve ser criado. (Set conn = Server.CreateObject("ADODB.Connection"))

[Patrique 0]

É estranho,

 

Verifiquei tudo e aparentemente esta normal hehehehe mais tem alguma coisa atrapalhando rsrsrssr, mais tentarei aqui qualquer coisa eu posto aqui.

 

valew.

[desisto 0]

quando você conseguir resolver o problema, seria legal você salvar junto o xml http://selos.climatempo.com.br/selos/selo.php?CODCIDADE=319

 

ai você pode comparar um com o outro caso o problema aconteca novamente

[xanburzum 169]

verifique como você esta atribuindo o XML,

se a URL esta correta e se esta recupenado corretamente...