 links
<%
dim id
dim PageSize
id="78C5A184-E1CF-4050-8931-B7DE1DB005F5"
PageSize=30
Dim objXML
Dim objItemList
Dim objItem
Dim strHTML
strHTML=""
Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False
Dim d
d=CStr(DateAdd("yyyy",-1,Now()))
If Not IsEmpty(Application("RSSFeedUpdated")) Then
d=CDate(Application("RSSFeedUpdated"))
End IF
If DateDiff("h", d, Now()) >= 2 Then
objXML.setProperty "ServerHTTPRequest", True
objXML.Load("http://www.simplesitelinks.com/feed.aspx?id="+id)
Application.Lock()
Application("RSSFeed") = objXML.xml
Application("RSSFeedUpdated") = Now()
Application.UnLock()
Else
objXML.loadXML(Application("RSSFeed"))
End If
Set objItemList = objXML.getElementsByTagName("item")
Set objXML = Nothing
Dim Links
Links=objItemList.length
Dim From
From=0
if Not IsEmpty(Request.QueryString("From")) Then
From=CInt(Request.QueryString("From"))
End If
Dim LinkTo
LinkTo=CInt(From)+CInt(PageSize)
if LinkTo>Links Then
LinkTo=Links
End If
Dim i
For i=From To LinkTo-1
strHTML = strHTML & "" & objItemList(i).childNodes(0).text & " " & objItemList(i).childNodes(1).text & " "
Next
strHTML=strHTML & "Page: "
For i=0 To Round(Links\PageSize)
If From<>(i*PageSize) Then
strHTML=strHTML & " " & (i+1) & " "
Else
strHTML=strHTML & (i+1) & " "
End If
Next
strHTML=strHTML &"
|
