|
|
| |
|
|
| |
| |
News & Events |
|
| |
<%
on error resume next
ct = 1
Dim objXML, objRoot, objItems, sTxt, iSpeed, iTop, iLeft, iWidth, iHeight, strSQL,aMarquee
sTxt = ""
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load("http://blog.visualmaxxllc.com/nampasmiles/feed/")
If (objXML.parseError.errorCode = 0) Then
Set objRoot = objXML.documentElement
If IsObject(objRoot) = False Then
response.write "Connection Error!"
End If
Set objItems = objRoot.getElementsByTagName("item")
If IsObject(objItems) = True Then
Dim objItem
For Each objItem in objItems
%>
|
<%=objItem.selectSingleNode("title").Text%>
WHEN: <%=left(objItem.selectSingleNode("pubDate").Text,16)%>
|
|
<%=objItem.selectSingleNode("content:encoded").text%>
|
|
<%
Next
else
response.write "Connection Error!"
End If
Set objItems = Nothing
Set objRoot = Nothing
End If
Set objXML = Nothing
%>
|
|
| |
|
|
|
|
| |
|
|
|
 |
