News


KIN news

KIN Research regularly hosts research seminars with international speakers from both academia and practice. Follow us on twitter.

KIN Research News

<% RSSURL = "http://feeds.feedburner.com/kinresearch/mztN" Response.Write "
" Dim objHTTP Dim RSSURL,RSSFeed Dim xmlRSSFeed Dim objItems,objItem, objChild Dim RSStitle,RSSdescription,RSSlink Dim OutputHTML_1,OutputHTML_2,OutputHTML_3 Set objHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP") objHTTP.open "GET",RSSURL,false objHTTP.send RSSFeed = objHTTP.responseText Set xmlRSSFeed = Server.CreateObject("MSXML2.DomDocument.4.0") xmlRSSFeed.async = false xmlRSSFeed.LoadXml(RSSFeed) Set objHTTP = Nothing Set objItems = xmlRSSFeed.getElementsByTagName("item") Set xmlRSSFeed = Nothing For x = 0 to objItems.length - 1 ' this code places the content from the various RSS nodes into local variables Set objItem = objItems.item(x) For Each objChild in objItem.childNodes Select Case LCase(objChild.nodeName) Case "title" RSStitle = objChild.text Case "link" RSSlink = objChild.text Case "description" RSSdescription = objChild.text Case "pubdate" pubDate = objChild.text End Select Next SetLocale("nl-nl") pubDate = Replace(pubDate, "Sun,", "") pubDate = Replace(pubDate, "Mon,", "") pubDate = Replace(pubDate, "Tue,", "") pubDate = Replace(pubDate, "Wed,", "") pubDate = Replace(pubDate, "Thu,", "") pubDate = Replace(pubDate, "Fri,", "") pubDate = Replace(pubDate, "Sat,", "") pubDate = Replace(pubDate, " Jan", "-01") pubDate = Replace(pubDate, " Feb", "-02") pubDate = Replace(pubDate, " Mar", "-03") pubDate = Replace(pubDate, " Apr", "-04") pubDate = Replace(pubDate, " May", "-05") pubDate = Replace(pubDate, " Jun", "-06") pubDate = Replace(pubDate, " Jul", "-07") pubDate = Replace(pubDate, " Aug", "-08") pubDate = Replace(pubDate, " Sep", "-09") pubDate = Replace(pubDate, " Oct", "-10") pubDate = Replace(pubDate, " Nov", "-11") pubDate = Replace(pubDate, " Dec", "-12") pubDate = Replace(pubDate, " 2009", "-2009") pubDate = Replace(pubDate, " 2010", "-2010") pubDate = Replace(pubDate, " 2011", "-2011") pubDate = Replace(pubDate, " 2012", "-2012") pubDate = Replace(pubDate, " 2013", "-2013") pubDate = Replace(pubDate, " 2014", "-2014") pubDate = Replace(pubDate, " 2015", "-2015") pubDate = Left(pubDate,11) Response.Write "

"& RSStitle &"

" & pubDate & "

" & RSSdescription & "

" OutputHTML_2 = "
  • " & RSStitle & "
  • " OutputHTML_3 = OutputHTML_3 & "" & RSStitle & "
    " Next Response.Write "
    " If objItems.length = 0 Then Response.Write "

    There are no news messages.

    " End If %>