<% Response.Buffer = true Response.ContentType = "text/xml" Dim MyTFile,Count,sLine,FSO,strlastmod Set FSO = Server.CreateObject("Scripting.FileSystemObject") strlastmod = FSO.GetFile(Server.MapPath("/database/newlistings.txt")).DateLastModified 'Date Conversion Functions--------------------------------------------------------------- Private Function zeroPad(m, t) zeroPad = String(t-Len(m),"0")&m End Function Private Function return_RFC822_Date(myDate, offset) Dim myDay, myDays, myMonth, myYear,myHours, myMonths, mySeconds myDate = CDate(myDate) myDay = WeekdayName(Weekday(myDate),true) myDays = Day(myDate) myMonth = MonthName(Month(myDate), true) myYear = Year(myDate) myHours = zeroPad(Hour(myDate), 2) myMinutes = zeroPad(Minute(myDate), 2) mySeconds = zeroPad(Second(myDate), 2) return_RFC822_Date = myDay&", "& _ myDays&" "& _ myMonth&" "& _ myYear&" "& _ myHours&":"& _ myMinutes&":"& _ mySeconds&" "& _ offset End Function 'Date Conversion Functions--------------------------------------------------------------- Response.Write("" & chr(13)) Response.Write("" & chr(13)) Response.Write(" " & chr(13)) Response.Write(" Copyright (c) " & Year(now()) & " HouseViewOnline.com! Inc. All rights reserved." & chr(13)) Response.Write(" http://www.houseviewonline.com/" & chr(13)) Response.Write(" Houseview latest 10 Listings" & chr(13)) Response.Write(" en-us" & chr(13)) Response.Write(" " & return_RFC822_Date(strlastmod, "GMT") & "" & chr(13)) Response.Write(" 10" & chr(13)) Response.Write("" & chr(13)) Response.Write(" " & chr(13)) Response.Write(" 144" & chr(13)) Response.Write(" 42" & chr(13)) Response.Write(" http://www.houseviewonline.com/" & chr(13)) Response.Write(" http://www.houseviewonline.com/webimages/HVNEWFULLsmall.jpg" & chr(13)) Response.Write("" & chr(13)) 'loop the Top 10 Items----------------------------------------------------------------- Set MyTFile = FSO.OpenTextFile(Server.MapPath("/database/newlistings.txt"),1,-2) Count = 1 Do While MyTFile.AtEndOfStream <> TRUE sLine = Trim(Server.HTMLEncode(MyTFile.ReadLine)) sLine = Split(sLine, "|") Response.Write("" & chr(13)) Response.Write("tag:houseviewonline.com," & year(date()) & ":" & sLine(0) & "" & chr(13)) Response.Write("" & chr(13)) Response.Write("http://www.houseviewonline.com/viewhome.asp?MLS=" & sLine(0) & "" & chr(13)) Response.Write("" & sLine(16) & "

]]>" & chr(13)) Response.Write("" & chr(13)) Response.Write("" & chr(13)) count = count + 1 Loop MyTFile.Close 'loop the Top 10 Items----------------------------------------------------------------- Response.Write("" & chr(13)) Response.Write("" & chr(13)) Response.Write("" & chr(13)) Set MyTFile = Nothing Set FSO = Nothing %>