Ir para o conteúdo

Previsão Do Signo Por Xml Externo


Criado por Patrique, Out 10 2010 03:13

Não há respostas para este tópico
  • Por favor, faça o login para responder

#1 Patrique

Patrique
  • Patrique
  • Colaborador
  • 13 Revisões

Revisou 10 outubro 2010 - 03:13

<%

'autor: Patrique André (O Gostosão)



Function SignoDiario(signo)

   Set xmlSignos = Server.CreateObject("MSXML2.DOMDocument")

       xmlSignos.async = False

       xmlSignos.setProperty "ServerHTTPRequest", true

       xmlSignos.load("http://www.estrelaguia.com.br/feed/rss/horoscopo/"& signo &"/")

       If (xmlSignos.ParseError <> 0) Then

           'Call alertaAdmin("ocorreu um erro na page "& vCode &"")

           Response.write("ocorreu um erro, o administrador do portal esta sendo alertado sobre o ocorrido, pedimos desculpas pela inconveniência.")

       Else

           SignoDiario = xmlSignos.selectNodes("//description").item(1).Text

           SignoDiario = Replace(SignoDiario,"(Para ver o resto do horóscopo <a href='http://www.estrelaguia.com.br/horoscopo/"& signo &"/'>clique aqui</a>.)","")

       End If

   Set xmlSignos = Nothing

End Function



Response.Write(SignoDiario("libra"))

%>





1 usuário(s) está(ão) lendo este código

1 membro(s), 0 visitante(s) e 0 membros anônimo(s)