<%
If DateDiff("h", Application("rss-html-time"), Now()) >= 2 then

Set xmlDOM = Server.CreateObject("MSXML2.DOMDocument")
xmlDOM.async = False

xmlDOM.setProperty "ServerHTTPRequest", True
'Vnesemo URL RSS vsebin
xmlDOM.Load("http://www.pomagalnik.com/feed/")

'Pridobimo vse <item> oznake RSS objave
Set itemList = xmlDOM.getElementsByTagName("item")

'Sprehodimo se skozi vsako objavo
For Each item In itemList

'Dodelimo vrednosti
For each child in item.childNodes
Select case lcase(child.nodeName)
case "title"
title = child.text
case "link"
link = child.text
case "description"
description = child.text
End Select

Next

strHTML = strHTML & "<a href='" & Server.HTMLEncode(link) & "'>"
strHTML = strHTML & Server.HTMLEncode(title)
strHTML = strHTML & "</a>"
strHTML = strHTML & "<br>"
strHTML = strHTML & Server.HTMLEncode(description)
strHTML = strHTML & "<br><br> "

Next

Set xmlDOM = Nothing Set itemList = Nothing
Application.Lock
Application("rss-html") = strHTML
Application("rss-html-time") = Now()
Application.UnLock

End If

Response.Write(Application("rss-html"))
%>

UL { 
padding: 0px;
MARGIN: 0px;
}

LI { 
list-style-type: none; 
background-image:none; 
padding: 0px 0px 15px 0px;
MARGIN: 0px 0px 15px 0px;
}