Shopping Hospedagem Fórum Contato
     
   O portal do desenvolvedor ASP Florianópolis-SC, Domingo - 22 de Outubro de 2017  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
Lendo RSS via XML
Avaliações: 5   -   Minha nota: Média Geral: 1  

<%
 Dim XMLDoc1, RootNode1, Channel1, Iitem1, Ttitle1, Node1,NodeList1,tt1,LLink1,href1,pubDate1
 Set XMLDoc1 = Server.CreateObject("Microsoft.XMLDOM")
 XMLDoc1.async = False
 XMLDoc1.setProperty "ServerHTTPRequest", true
 XMLDoc1.load("http://www.experian.com/ask_max/rss.xml")
 Set NodeList1 = XMLDoc1.documentElement.selectNodes("channel/item/*")
 For Each Node1 In NodeList1
     if Node1.nodename="title" Then
   tt1=Node1.text
  End if
  if Node1.nodename="link" Then
   LLink1=Node1.text
  End if
  
  'if(LLink1<>"") then
'   href1=href1 & "<p><a href='" & LLink1 & "' target='_blank'>" & tt1 & "</a> </p>"
'  end if
'  
  if Node1.nodename="pubDate" Then
   pubDate1=Node1.text
  End if
  
  if(pubDate1<>"") then
   href1=href1 & "<p><a href='" & LLink1 & "' target='_blank'>" & tt1 & "</a><br>" & pubDate1 & "</p>"
  end if
  pubDate1=""
  
 Next
%>

<marquee behavior=scroll direction=up width=140 height=200 scrollamount=1 scrolldelay=60 onmouseover='this.stop()' onmouseout='this.start()'>
<table border=0 cellpadding=0 cellspacing=0 width=128 bgcolor=white align="left" style="border-left: 1 solid #000000;border-right: 1 solid #D0D5DF;border-top: 1 solid #000000; border-bottom: 1 solid #D0D5DF" >
    <tr>
     <td>
       <center>
       <% Response.Write(href1) %>
       </center> 
     </td> 
    </tr>
</table>
</marquee> 

 

Alexandre




SuperASP do Brasil Ltda

03.066.522/0001-84
Av. Rio Branco 433 - Centro - Florianopolis - SC
Contato

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados