 |
| | <%=mostraEtiqueta(cnn,"capsalera4",obreT("taula"),"wwwTaules")%> | <%=mostraEtiqueta(cnn,"capsalera4_3",obreT("taula"),"wwwTaules")%> | <%=mostraEtiqueta(cnn,"capsalera4_3_1",obreT("taula"),"wwwTaules")%> | <%=mostraEtiqueta(cnn,"capsalera4_3_2_1",obreT("taula"),"wwwTaules")%> | |
| <%=mostraEtiqueta(cnn,"bt6",obreT("taula"),"wwwMenus")%> |
<%
Dim objXML
Dim objItemList
Dim objItem
Dim strHTML
Dim cadena
Dim quants
Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load("http://www.turijobs.com/rss/ofertas.xml")
Set objItemList = objXML.getElementsByTagName("item")
Set objXML = Nothing
quants=10
For Each objItem In objItemList
if quants<25 then
TituloRSS = objItem.childNodes(0).text
LinkRSS = objItem.childNodes(4).text
DescripcionRSS = objItem.childNodes(3).text
FechaRSS = objItem.childNodes(1).text
%>
|
<%=TituloRSS%>
|
<% Response.Write (" " & DescripcionRSS & "
") %>
|
<%
cadena = mid(FechaRSS,5,12)
Response.Write (" " & cadena & "
") %>
|
<%
end if
quants=quants+1
Next
%>
| |
|
|