Search

New Homes

Commercial

Loan Center

Relocation

Find an Agent

Real Estate News

 

<% 'If DateDiff("h", Application("RealtyTimesUpdated"), Now()) >= 2 _ ' Or Request.QueryString("force") <> "" Then Dim objXML Dim objItemList Dim objItem Dim strHTML Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument") objXML.async = False objXML.setProperty "ServerHTTPRequest", True objXML.Load("http://www.realtytimes.com/rss") 'objXML.Load(Server.MapPath("megatokyo.xml")) If objXML.parseError.errorCode <> 0 Then Response.Write "

" & vbCrLf
       Response.Write "Error: " & objXML.parseError.reason
       Response.Write "Line:  " & objXML.parseError.line & vbCrLf
       Response.Write "Text:  " _
          & Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
       Response.Write "

" & vbCrLf End If Set objItemList = objXML.getElementsByTagName("item") Set objXML = Nothing For Each objItem In objItemList ' MegaTokyo Feed childNodes: 0=title, 1=link, 2=description strHTML = strHTML & "

" & vbCrLf strHTML = strHTML & "" strHTML = strHTML & "" & objItem.childNodes(1).text strHTML = strHTML & "
" & vbCrLf strHTML = strHTML & Replace(objItem.childNodes(2).text, "
", "
") & vbCrLf strHTML = strHTML & "

" & vbCrLf strHTML = strHTML & "
" & vbCrLf Next Set objItemList = Nothing Application.Lock Application("RealtyTimesContent") = strHTML Application("RealtyTimesUpdated") = Now() Application.UnLock 'End If %> <%= Application("RealtyTimesContent") %>