[thelist] RSS feed for moreover.com
Anthony Baratta
Anthony at Baratta.com
Fri Dec 13 00:03:00 CST 2002
At 06:04 PM 12/12/2002, Cayley Vos wrote:
>I know that there is a PHP script to convert the moreover news into a usable
>form for your website, but is there an ASP version out there?
Here's some code that should help you along....
Set XMLDoc = CreateObject("MSXML2.DomDocument")
Articles = "http://p.moreover.com/cgi-local/page?c=" & varArticleCategory
xmlSource = Articles
XMLDoc.async = False
XMLDoc.setProperty "ServerHTTPRequest", True
XMLDoc.load(xmlSource)
TearValue = XMLDoc.load(xmlSource)
If (TearValue) Then
Set rootNode = XMLDoc.documentElement
If rootNode.hasChildNodes() Then
For Each article in rootNode.childNodes
ArticleID = article.attributes.getNamedItem("id").Text
For Each item in article.childNodes
If "headline_text" = item.nodeName Then
newsHeadLine = Trim(item.Text)
End If
If "url" = item.nodeName Then
newsURL = item.Text
End If
If "source" = item.nodeName Then
OriginTitle = item.Text
End If
If "document_url" = item.nodeName Then
OriginURL = item.Text
End If
If "harvest_time" = item.nodeName Then
ArticleDateTime = item.Text
End If
Next
'' Insert Into Temp Table
ArticleID = Replace(ArticleID,"'","''",1,-1,1)
newsURL = Replace(newsURL,"'","''",1,-1,1)
newsHeadLine = Replace(newsHeadLine,"'","''",1,-1,1)
OriginTitle = Replace(originTitle,"'","''",1,-1,1)
OriginURL = Replace(OriginURL,"'","''",1,-1,1)
ArticleDateTime = Replace(ArticleDateTime,"'","''",1,-1,1)
varArticleCategory = Replace(varArticleCategory,"'","''",1,-1,1)
strQ = "INSERT INTO NewsArticleDataTemp (ArticleID, URL,
Headline, OriginTitle, OriginURL, ArticleDateTime, DateCreated,
ArticleCategory) "
strQ = strQ & "Values ('" & ArticleID & "','" & newsURL &
"','" & newsHeadLine & "','" & OriginTitle & "','"
strQ = strQ & OriginURL & "','" & ArticleDateTime & "','" &
DateCreated & "','" & varArticleCategory & "')"
objDB_ConnectionB.Execute strQ
Next
End If
Else
End If
---
Anthony Baratta
President
Keyboard Jockeys
"Conformity is the refuge of the unimaginative."
More information about the thelist
mailing list