In this section you may review/request listings that might be of interest to you. Please follow the link(s) below to review/request the listings. Be sure to visit this section often as updated links are added on a regular basis. <% 'LookyLooz.com Data Feed Code © Copyright 2006 URLToRSS = "http://sites.lookylooz.com/LookyListings.asp?ID=KHIHWMILOHC" if request("N")>"" Then NumToDisplay = request("N") else NumToDisplay = 5 end if if request("P")>"" Then Page = request("P") else Page = 1 end if Response.Expires = -1 iFrom = ((Page-1)*NumToDisplay) '+ 1 iTo = ((Page-1)*NumToDisplay) + NumToDisplay - 1 MaxNumberOfItems = 1000 MainTemplateHeader = "" MainTemplateFooter = "" Keyword1 = "" ' Keyword1 = "tech" - set non-empty keyword value to filter by this keyword Keyword2 = "" ' Keyword1 = "win" - set non-empty keyword value to filter by this keyword ItemTemplate = "{TAGLINE}{STATUS} {PRICE}" ItemTemplate = ItemTemplate + "{SUMMARY}" ItemTemplate = ItemTemplate + "Bedrooms: {BEDROOMS}Bathrooms: {BATHROOMS}Size: {SIZE} sq ftMLS ID: {MLSID}More Details" ItemTemplate = ItemTemplate + "

---

" ErrorMessage = "Error has occured while trying to process " &URLToRSS & "
Please contact web-master" Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0") xmlHttp.Open "Get", URLToRSS, false xmlHttp.Send() RSSXML = xmlHttp.ResponseText Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0") xmlDOM.async = false xmlDOM.LoadXml(RSSXML) Set xmlHttp = Nothing ' clear HTTP object Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS Set xmlDOM = Nothing ' clear XML RSSItemsCount = RSSItems.Length-1 if RSSItemsCount > 0 then Response.Write MainTemplateHeader End If if iFrom > RSSItemsCount then iFrom = RSSItemsCount - NumToDisplay if iFrom < 0 then iFrom = 0 if iTo > RSSItemsCount Then iTo = RSSItemsCount j = -1 For i = 0 To RSSItemsCount Set RSSItem = RSSItems.Item(i) for each child in RSSItem.childNodes Select case lcase(child.nodeName) case "title" RSStitle = child.text case "link" RSSlink = child.text case "description" RSSdescription = child.text case "image" RSSimage = child.text case "price" RSSprice = child.text case "bedrooms" RSSbedrooms = child.text case "bathrooms" RSSbathrooms = child.text case "tagline" RSStagline = child.text case "status" RSSstatus = child.text case "summary" RSSsummary = child.text case "size" RSSsize = child.text case "mlsid" RSSmlsid = child.text End Select next If (InStr(RSSTitle,Keyword1)>0) or (InStr(RSSTitle,Keyword2)>0) or (InStr(RSSDescription,Keyword1)>0) or (InStr(RSSDescription,Keyword2)>0) then j = J+1 if J= ifrom and i<=ito then Response.Write Replace(ItemContent,"{DESCRIPTION}",RSSDescription) end if ItemContent = "" End if End If Next if RSSItemsCount > 0 then Response.Write MainTemplateFooter response.Write "

" & RSSItemsCount + 1 & " Listing(s)

Page:  " Pages = cint(rssitemscount / numtodisplay) If Pages > 1 Then Pages = Pages + 1 If Pages = 0 Then Pages = 1 for i = 1 to Pages if cstr(i) = cstr(Page) then LinkMe = false else LinkMe = true if LinkMe = true then response.Write "" response.Write i if LinkMe = true then response.Write "" response.Write " " next response.Write "

" else Response.Write ErrorMessage End If %>