Top-Nachrichten von www.krone.at
<% 'krone.at RSS Feed Item childNodes '0 = title '1 = description (post) '2 = link '3 = pubDate Dim objXMLHTTP 'MS XML Object Dim objRSSFeedItem 'XML Feed Items Dim sarryRSSFeedItem 'RSS Feed array Dim strHTML 'HTML Table results Dim strWebWizForumsURL 'Web Wiz Forums RSS Feed Dim intTimeToLive 'Time to live in minutes 'S25 = krone.at Allgemein 'S30 = krone.at Sport strWebNewsURL = "http://www.krone.at/krone/S25/kmprog/rss.html" 'Time to live (how long the RSS Feed is cached in minutes) '0 will reload immediately, but place more strain on the server if the page is called to often intTimeToLive = 30 'Application("rssNewsText") ="" imax = 12 %> <% 'If this is x minutes or the feed is not in the web servers memory then grab the feed If DateDiff("n", Application("rssNewsUpdate"), Now()) >= intTimeToLive OR Application("rssNewsText") = "" Then 'Create MS XML object Set objXMLHTTP = Server.CreateObject("MSXML2.FreeThreadedDOMDocument") 'Set the type of request HTTP Request objXMLHTTP.setProperty "ServerHTTPRequest", True 'Disable Asyncronouse response objXMLHTTP.async = False 'Load the Web Wiz Forums RSS Feed objXMLHTTP.Load(strWebNewsURL) 'If there is an error display a message If objXMLHTTP.parseError.errorCode <> 0 Then Response.Write " " 'Create a new XML object containing the RSS Feed items Set objRSSFeedItem = objXMLHTTP.getElementsByTagName("item") 'Loop through each of the XML RSS Feed items and place it in an HTML table 'Response.Write objRSSFeedItem.xml i=0 For Each sarryRSSFeedItem In objRSSFeedItem i=i+1 datum= mid(sarryRSSFeedItem.childNodes(3).text, 5, 21) datum = replace(datum, " Jan ", ".01.") datum = replace(datum, " Feb ", ".02.") datum = replace(datum, " Mar ", ".03.") datum = replace(datum, " Apr ", ".04.") datum = replace(datum, " May ", ".05.") datum = replace(datum, " Jun ", ".06.") datum = replace(datum, " Jul ", ".07.") datum = replace(datum, " Aug ", ".08.") datum = replace(datum, " Sep ", ".09.") datum = replace(datum, " Oct ", ".10.") datum = replace(datum, " Nov ", ".11.") datum = replace(datum, " Dec ", ".12.") if isDate(datum) then strTXT = FormatDateTime(datum,vbLongDate) & " - " & FormatDateTime(datum,vbLongTime) else strTxt = datum end if strHTML = strHTML & " " & _ vbCrLf & " " & _ vbCrLf & " " if i = imax then exit for end if Next 'Release the objects Set objXMLHTTP = Nothing Set objRSSFeedItem = Nothing 'Stick the whole lot in a application array to boost performance Application.Lock Application("rssNewsText") = strHTML Application("rssNewsUpdate") = Now() Application.UnLock End If 'Display the Web Wiz Forums Posts in an HTML table Response.Write(Application("rssNewsText")) %>

(<%=imax%>)  Top-Nachrichten von www.krone.at

Error: " & objXMLHTTP.parseError.reason & "
" & _ vbCrLf & " " & strTXT & "
" 'If you wish to display the entire post, uncomment the line below strHTML = strHTML & vbCrLf & "" & Server.HTMLEncode(sarryRSSFeedItem.childNodes(1).text) & "

" strHTML = strHTML & vbCrLf & "
<% ' < % =Application("rssNewsUpdate") % > %>

Letzte News


Familienfreundliche Ferienwohnungen/Appartements - Privatzimmer mit Frühstück
• Margit & Hermann Schwaiger
• 5661 Rauris - Salzburger Land
• Tel. +43 (6544) 6434
WALDHOF ist nicht für die Inhalte fremder Seiten verantwortlich,
die über einen Link erreicht werden.