[Resolvido] Função previsão signo diario

[Patrique 0]

Galera, segue abaixo um code que eu fiz para resgatar a previsão diária do signo através de um feed, fiz em function para economizar, padronizar e simplificar o sistema.

 

O code é bem simples.

 

<%
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"))
%>

[]'s