" ' ##### Error message that will be displayed if not items etc '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 ' writing Header if RSSItemsCount > 0 then Response.Write MainTemplateHeader End If 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 End Select next j = J+1 if J 0 then Response.Write MainTemplateFooter else Response.Write ErrorMessage End If ' Response.End ' uncomment this line if you need to finalize output %>
<% ' =========== RSS2HTML.ASP for ASP/ASP.NET ========== ' copyright 2005 (c) www.Bytescout.com ' =============================================== ' =========== configuration ===================== ' ##### URL to RSS Feed to display ######### 'URLToRSS = "http://news.search.yahoo.com/news/rss?p=" & replace(yer2, """", """""") & "" 'URLToRSS = "http://news.google.com/news?hl=en&ned=us&ie=UTF-&output=rss&q=" & replace(yer2, """", """""") & "" URLToRSS = "http://www.msnbc.msn.com/Apps/SiteSearch/SearchRSS.aspx?search=msnbc&submit=Search&FORM=AE&os=0&gs=1&p=1&q=istanbul" ' ##### max number of displayed items ##### MaxNumberOfItems = 20 ' ##### Main template constants MainTemplateHeader = "
Touristic Information
Istanbul Hotel Reservations

Istanbul Hotels

Best Hotels of Istanbul


" ' ##### Error message that will be displayed if not items etc '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 ' writing Header if RSSItemsCount > 0 then Response.Write MainTemplateHeader End If 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 End Select next j = J+1 if J 0 then Response.Write MainTemplateFooter else Response.Write ErrorMessage End If ' Response.End ' uncomment this line if you need to finalize output %>
<% ' =========== RSS2HTML.ASP for ASP/ASP.NET ========== ' copyright 2005 (c) www.Bytescout.com ' =============================================== ' =========== configuration ===================== ' ##### URL to RSS Feed to display ######### URLToRSS = "http://news.search.yahoo.com/news/rss?p=istanbul" 'URLToRSS = "http://news.google.com/news?hl=en&ned=us&ie=UTF-8&output=rss&q=istanbul" 'URLToRSS = "http://www.msnbc.msn.com/Apps/SiteSearch/SearchRSS.aspx?search=msnbc&submit=Search&FORM=AE&os=0&gs=1&p=1&q=istanbul" ' ##### max number of displayed items ##### MaxNumberOfItems = 20 ' ##### Main template constants MainTemplateHeader = "

Istanbul News

Istanbul News provides news and analysis on Istanbul and international current events, business, finance, politics, economy, sports and more.

<% ' =========== RSS2HTML.ASP for ASP/ASP.NET ========== ' copyright 2005 (c) www.Bytescout.com ' =============================================== ' =========== configuration ===================== ' ##### URL to RSS Feed to display ######### 'URLToRSS = "http://news.search.yahoo.com/news/rss?p=" & replace(yer2, """", """""") & "" URLToRSS = "http://news.google.com/news?hl=en&ned=us&ie=UTF-8&output=rss&q=istanbul" 'URLToRSS = "http://www.msnbc.msn.com/Apps/SiteSearch/SearchRSS.aspx?search=msnbc&submit=Search&FORM=AE&os=0&gs=1&p=1&q=istanbul" ' ##### max number of displayed items ##### MaxNumberOfItems = 20 ' ##### Main template constants MainTemplateHeader = "" MainTemplateFooter = "
" ' ##### ' ##### Item template. ' ##### {LINK} will be replaced with item link ' ##### {TITLE} will be replaced with item title ' ##### {DESCRIPTION} will be replaced with item description ItemTemplate = "

{TITLE}
{DESCRIPTION}
" MainTemplateFooter = "
" ' ##### ' ##### Item template. ' ##### {LINK} will be replaced with item link ' ##### {TITLE} will be replaced with item title ' ##### {DESCRIPTION} will be replaced with item description ItemTemplate = "
{TITLE}
{DESCRIPTION}
" MainTemplateFooter = "
" ' ##### ' ##### Item template. ' ##### {LINK} will be replaced with item link ' ##### {TITLE} will be replaced with item title ' ##### {DESCRIPTION} will be replaced with item description ItemTemplate = "{TITLE}
{DESCRIPTION}" ' ##### Error message that will be displayed if not items etc '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 ' writing Header if RSSItemsCount > 0 then Response.Write MainTemplateHeader End If 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 End Select next j = J+1 if J 0 then Response.Write MainTemplateFooter else Response.Write ErrorMessage End If ' Response.End ' uncomment this line if you need to finalize output %>