<%= Clinton Gallagher
METROmilwaukee (sm) "A Regional Information Service"
NET csgallagher AT metromilwaukee.com
URL http://metromilwaukee.com/
URL http://clintongallagher.metromilwaukee.com/
"HarborTed @harborcomputerservices.net>" <ted<removeme> wrote in message
news:6C6861D1-F386-431F...@microsoft.com...
Create a new page in your website with an IFrame.
Load the blog page into the IFrame.
--
Steve Easton
Microsoft MVP FrontPage
95isalive
This site is best viewed............
.......................with a computer
"HarborTed @harborcomputerservices.net>" <ted<removeme> wrote in message
news:6C6861D1-F386-431F...@microsoft.com...
<%
Response.Expires = -1
FEEDSRC_RSS = "http://example.com/rss.xml"
MaxNumberOfItems = 10 '----------set to number of entries to show from feed
MainTemplateHeader = "<table>"
MainTemplateFooter = "</table>"
Keyword1 = "" '---------------keywords for display from feed
Keyword2 = ""
ItemTemplate = "<tr><td><a target=blank href=" & """{LINK}""" &
">{TITLE}</a><BR>{DESCRIPTION}</td></tr>"
ErrorMessage = "Data error from feed: " &FEEDSRC_RSS & "<BR><a
href=""mailto:ad...@example.com"">Please inform the webmaster.</a>"
Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0")
xmlHttp.Open "Get", FEEDSRC_RSS, false
xmlHttp.Send()
RSSXML = xmlHttp.ResponseText
Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0")
xmlDOM.async = false
xmlDOM.LoadXml(RSSXML)
Set xmlHttp = Nothing
Set RSSItems = xmlDOM.getElementsByTagName("item")
Set xmlDOM = Nothing
RSSItemsCount = RSSItems.Length-1
if RSSItemsCount > 0 then
Response.Write MainTemplateHeader
End If
j = -1
For i = 0 To RSSItemsCount
Set RSSItem = RSSItems.Item(i)
for each child in RSSItem.childNodes
Select case lcase(child.nodeName)
case "title"
RSStitle = child.text
case "link"
RSSlink = child.text
case "description"
RSSdescription = child.text
End Select
next
If (InStr(RSSTitle,Keyword1)>0) or (InStr(RSSTitle,Keyword2)>0) or
(InStr(RSSDescription,Keyword1)>0) or (InStr(RSSDescription,Keyword2)>0)
then
j = J+1
if J<MaxNumberOfItems then
ItemContent = Replace(ItemTemplate,"{LINK}",RSSlink)
ItemContent = Replace(ItemContent,"{TITLE}",RSSTitle)
Response.Write Replace(ItemContent,"{DESCRIPTION}",RSSDescription)
ItemContent = ""
End if
End If
Next
if RSSItemsCount > 0 then
Response.Write MainTemplateFooter
else
Response.Write ErrorMessage
End If
%>
--------------------------------
Remember to change "example.com" above to your site, and the FEEDSRC_RSS to
the xml location. Save it as inc_rss.asp - the last step is easy. Anywhere
you want to display your feed, just include this code:
--------------------------------
<!--#include virtual="inc_rss.asp" -->
---------------------------------
like this:
---------------------------------
<html>
<head>
<title>My Feed</title>
</head>
<body>
<!--#include virtual="inc_rss.asp" -->
</body>
</html>
-----------------------------------------
Make sure that the page you use the feed on has an extension of ".asp",
like default.asp - .htm extensions don't execute asp code. You can rename
any htm page to asp without problems on an IIS server. Good luck, Theodore.
Nicholas Savalas
http://savalas.tv
------------------------------------------
"HarborTed @harborcomputerservices.net>" <ted<removeme> wrote in message
news:6C6861D1-F386-431F...@microsoft.com...