[thelist] RSS feed for moreover.com

[Anthony Baratta]

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."