<%
Response.Expires = -1

' =========== RSS2HTML.ASP for ASP/ASP.NET ==========
' copyright 2005-2007 (c)[url=http://www.Bytescout.com]www.Bytescout.com[/url]
' version 1.21, 27 February 2007
' ===============================================
' ##############################################################
' ####### CHECK OUR COMMERCIAL PRODUCTS FOR ASP/ASP.NET: #######
' SWF Scout [[url]http://bytescout.com/swfscout.html[/url] ]- create, read, modify flash movies (SWF)
' PDFDoc Scout [[url]http://bytescout.com/pdfdocscout.html[/url] ]- generate PDF documents with security options (PDF)
' ##############################################################

' =========== configuration =====================
' ##### URL to RSS Feed to display #########
URLToRSS = "http://www.warsownews.net/v1/DesktopModules/DnnForge-NewsArticles/Rss.aspx?TabID=123&ModuleID=547&MaxCount=25"

' ##### max number of displayed items #####
MaxNumberOfItems = 5

' ##### Main template constants
MainTemplateHeader = "<div id='box'><ul>"
MainTemplateFooter = "</ul></div>"
' #####

' ######################################
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 2nd keyword too
' #################################

' ##### Item template.
' ##### {LINK} will be replaced with item link
' ##### {TITLE} will be replaced with item title
' ##### {DESCRIPTION} will be replaced with item description
' ##### {DATE} will be replaced with item date and time
' ##### {COMMENTSLINK} will be replaced with link to comments (if you use RSS feed from blog)
' ##### {CATEGORY} will be replaced with item category
ItemTemplate = "<li><a href=" & """{LINK}""" & ">{TITLE}</a></li>"

' ##### Error message that will be displayed if not items etc
ErrorMessage = "Error has occured while trying to process " &URLToRSS & "<BR>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.validateOnParse = False
xmlDom.resolveExternals = False

If not xmlDOM.LoadXml(RSSXML) Then
ErrorMessage = xmlDOM.parseError.reason & vbCRLF & ErrorMessage
End If

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
case "pubdate"
RSSDate = child.text
case "comments"
RSSCommentsLink = child.text
case "category"
Set CategoryItems = RSSItem.getElementsByTagName("category")
RSSCategory = ""
for each categoryitem in CategoryItems
if RSSCategory <> "" Then
RSSCategory = RSSCategory & ", "
End If

RSSCategory = RSSCategory & categoryitem.text
Next
End Select
next

' now check filter
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<MaxNumberOfItems then
ItemContent = Replace(ItemTemplate,"{LINK}",RSSlink)
ItemContent = Replace(ItemContent,"{TITLE}",RSSTitle)
ItemContent = Replace(ItemContent,"{DATE}",RSSDate)
ItemContent = Replace(ItemContent,"{COMMENTSLINK}",RSSCommentsLink)
ItemContent = Replace(ItemContent,"{CATEGORY}",RSSCategory)

Response.Write Replace(ItemContent,"{DESCRIPTION}",RSSDescription)
ItemContent = ""
End if
End If

Next

' writing Footer
if RSSItemsCount > 0 then
Response.Write MainTemplateFooter
else
Response.Write ErrorMessage
End If

'Response.End ' uncomment this for use in on-the-fly output
%>

<%
Private Function GetURL(URL)

' --- Instantiieren des Objekts MSXML2.ServerXMLHTTP
Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")

    ' --- Einstellen der Timeouts in Millisekunden
    ' --- Es gibt 4 Parameter, die in der nachstehenden Reihenfolge angegeben werden müssen
    ' -----------------------------------------------------
    ' --- resolveTimeout - Auflösen des Hostnamens
    ' --- connectTimeout - Verbinden mit dem Host
    ' --- sendTimeout - Senden eines Datenpaketes an den Server
    ' --- receiveTimeout - Empfangen eines Datenpaketes vom Server
    ' -----------------------------------------------------
    objHTTP.SetTimeouts 1000, 1000, 1000, 1000000

    ' --- Erstellen des Requests mit folgenden Parametern
    ' --- bstrMethod - Request-Methode
    ' --- bstrURL - Adresse der Seite, die ausgelesen werden soll
    ' --- varAsync - Laden der Seite asynchron (Wenn false, wird synchron geladen)
    objHTTP.open "GET", URL, false

    ' --- Senden des Requests
    objHTTP.send

    ' --- Der gesamte Text der geladenen Seite steht jetzt in ResponseText
    ' --- und wird als Rückgabewert der Funktion GetURL zugewiesen.
    GetURL = objHTTP.ResponseBody

' --- Terminieren des Objekts
Set objHTTP = Nothing

End Function
%>
<html>
<head>
    <title>HTTP GET</title>
</head>
<body>
Hier kommt der Text der Seite[url]http://community.warsownews.net/getnews.asp<br>[/url]
<br>
<% Response.BinaryWrite GetURL("http://community.warsownews.net/getnews.asp") %>
</body>
</html>

<!-- Google CSE Search Box Begins -->
<form id="searchbox_007226671880494112939:pcvzatfmyh4" action="">
  <input type="hidden" name="cx" value="007226671880494112939:pcvzatfmyh4" />

  <input name="q" type="text" size="40" />
  <input type="hidden" name="hq" value="warsow"  />
  <input type="submit" name="sa" value="Search" />
  <input type="hidden" name="cof" value="FORID:9" />
</form>
<script type="text/javascript" src="http://www.google.com/coop/cse/brand?form=searchbox_007226671880494112939%3Apcvzatfmyh4"></script>
<!-- Google CSE Search Box Ends -->
<br/>
<!-- Google Search Result Snippet Begins -->
<div id="results_007226671880494112939:pcvzatfmyh4"></div>
<script type="text/javascript">
  var googleSearchIframeName = "results_007226671880494112939:pcvzatfmyh4";
  var googleSearchFormName = "searchbox_007226671880494112939:pcvzatfmyh4";
  var googleSearchFrameWidth = 600;
  var googleSearchFrameborder = 0;
  var googleSearchDomain = "www.google.com";
  var googleSearchPath = "/cse";
</script>

<script type="text/javascript" src="http://www.google.com/afsonline/show_afs_search.js"></script>
<!-- Google Search Result Snippet Ends -->