<% ' change the RSSURL variable to the exact URL of the RSS Feed you want to pull RSSURL = "http://www.urbanthang.com/ver3/index.php/photos?format=feed" Dim objHTTP ' this object is used to call the RSS Feed remotely Dim RSSURL,RSSFeed ' these variables hold the URL and Content for the RSS Feed Dim xmlRSSFeed ' this variable hold the XML data in a DOM Object Dim objItems,objItem, objChild ' these variables are used to temporarily hold data from the various RSS Items Dim title,description,link ' these are local variables that will hold the data to be displayed Dim OutputHTML_1,OutputHTML_2,OutputHTML_3 ' these variables will hold the HTML that was converted from the RSS Feed ' this code requests the raw RSS/XML and saves the response as a string Set objHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP") objHTTP.open "GET",RSSURL,false objHTTP.send RSSFeed = objHTTP.responseText ' this code takes the raw RSSFeed and loads it into an XML Object Set xmlRSSFeed = Server.CreateObject("MSXML2.DomDocument.4.0") xmlRSSFeed.async = false xmlRSSFeed.LoadXml(RSSFeed) ' this code disposes of the object we called the feed with Set objHTTP = Nothing ' this is where you determine how to display the content from the RSS Feed ' this code grabs all the "items" in the RSS Feed Set objItems = xmlRSSFeed.getElementsByTagName("item") ' this code disposes of the XML object that contained the entire feed Set xmlRSSFeed = Nothing y=1 ' loop over all the items in the RSS Feed For x = 0 to objItems.length - 1 'For x = 0 to 4 ' this code places the content from the various RSS nodes into local variables Set objItem = objItems.item(x) For Each objChild in objItem.childNodes Select Case LCase(objChild.nodeName) Case "title" title = objChild.text Case "link" link = objChild.text Case "description" description = objChild.text End Select Next ' Here are some various display samples. OutputHTML_1 = OutputHTML_1 & "
" OutputHTML_1 = OutputHTML_1 & "
" OutputHTML_1 = OutputHTML_1 & "View PHOTOS
" OutputHTML_1 = OutputHTML_1 & "
" 'OutputHTML_1 = OutputHTML_1 & "" & description & "
" Next y = y + 1 %>

Latest EVENT Photos

<%=OutputHTML_1%>

MY.PEOPLE

Nullam non wisi a sem semper eleifend. Donec mattis libero eget urna. Duis pretium velit ac suscipit mauris. Proin eu wisi suscipit nulla suscipit interdum.

Get the FREE App

MY.PLACES

Proin eu wisi suscipit nulla suscipit interdum. Nullam non wisi a sem semper suscipit eleifend. Donec mattis libero eget urna. Duis velit ac mauris.

Subscribe

MY.CITY

Donec mattis libero eget urna. Duis pretium velit ac mauris. Proin eu wisi suscipit nulla suscipit interdum. Nullam non wisi a sem suscipit eleifend.

VIEW >>

Welcome

This is Urbanthang, The ultimate digital companion for the discriminating African American "socialite". Get the latest event information & photos on your PC, tablet or smartphone FREE. SHOP for exclusive local brands & more. This is the FUTURE of Urban Nightlife!

[ DOWNLOAD ] the FREE mobile app (for BOTH Android & IPHONE)