News


KIN news

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


Friday January 19th - Workshop on Routines.Research.Community

On Friday 19 January 2017, the KINResearch Group hosts the Routines.Research.Community where scholars interested in organizational routines will explore dilemmas in studying routines and new topics such as ‘routines management’, ‘new forms of organizing’, and ‘boundaries of organizational routines’. Siri Bøe-Lillegraven (University of Amsterdam) en Fleur Deken (VU Amsterdam) are organizing the program.


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 %>