AFFORDABLEBELLYRINGS.COM | HARD TO FIND-EASY ON YOUR WALLET BELLY RINGS

Active-Income.com - Make Money Online!
Discover how you can make money online with home business opportunities, affiliate programs, ad networks and more. We also provide resources for web marketing. Start earning an extra income from your home now!

Free Traffic

<% dim id dim PageSize id="69C1C7D1-B45D-4036-B446-7A0AF421331F" 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 &"

" Set objItemList = Nothing %><%= strHTML%>

ť Your Link Here

Add your link to this page.