classic ASP: import remote XML file into database

<%
Dim XMLDom
      Dim ItemID
      Dim DbConn
      Dim SQLString
      Dim ANArticleNode
      Dim CollectionOfArticleNodes
	  
Set DbConn = Server.Createobject("ADODB.connection")

	DbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="
 	DbConn.ConnectionString = DbConn.ConnectionString + server.MapPath("databasename")

    DbConn.Open
	Set XMLDom = Server.CreateObject( "Msxml2.DOMDocument.3.0" )
	XMLDom.async = false
	XMLDom.Load ("feed address goes here")

	Set CollectionOfArticleNodes = XMLDom.SelectNodes("InfoStreamResults/Article")
	'-- Iterate the collection of Article Tags 
	For Each ANArticleNode in CollectionOfArticleNodes 
    ItemID = ANArticleNode.SelectSingleNode("@ID").text
    Heading = ANArticleNode.SelectSingleNode("Heading").text 
    Contents = ANArticleNode.SelectSingleNode("Contents").text
    sDate = ANArticleNode.SelectSingleNode("Date").text 
    '-- Delete the item from the local database if it exists
    SQLString = "DELETE FROM NewsData WHERE DirectNewsID=" & ItemID & ";" 
	'response.Write(SQLString)
    DbConn.Execute(SQLString)
    '-- Insert the item into the local database
   SQLString = "INSERT INTO NewsData ([DirectNewsID], [Heading] ,[Contents], [Date]) VALUES(" & ItemID &", '" & EncodeIt(Heading) & "', '"& EncodeIt(Contents) & "', #"& sDate & "#)"
   'response.Write(SQLString)
   DbConn.Execute(SQLString)
   Next

Function EncodeIt(ByVal TextString)
   TextString = Replace(TextString, "'", "''")
   TextString = Replace(TextString, Chr(34), Chr(34)&Chr(34))
   EncodeIt = TextString
End Function
%>