Cache XML fil

dim ts, doUpdate

' tag udgangspunkt i at cachen ikke skal opdateres
doUpdate = false

' hent timestamp for sidste opdatering af cachen
ts = application("wbcxml_timestamp")

' undersøg om cachen skal opdateres
if iempty(ts) then
  ' ts er slet ikke sat endnu, så derfor skal data hentes 1. gang
  doUpdate = true
elseif not isdate(ts) then
  ' ts er ikke en dato
  doUpdate = true
elseif datediff("s", cdate(ts), now) > 120 then
  ' der er gået mere end 120 sekunder siden sidste opdatering
  doUpdate = true
end if

' foretag evt. opdatering, alternativt aflæsning, af cachen
if doUpdate then
  ' hent XML'en fra den eksterne kilde og opdater cachen...
  strURL = "http://" & strLand & ".worldsbiggestchat.com/onlinestatxml.aspx"

  set xmlDoc = createObject("MSXML2.FreeThreadedDOMDocument.6.0")
  xmlDoc.async = false
  xmlDoc.setProperty "ServerHTTPRequest", true
  on error resume next
  call xmlDoc.load(strURL) 
  set application("wbcxml") = xmlDoc
  application("wbcxml_timestamp") = now
else
  ' hent xml-struturen fra cachen
  set xmlDoc = application("wbcxml")
end if

' benyt det aktuelle xmlDoc
strOnline = xmlDoc.documentElement.childNodes(1).text
arrOnline = Split(strOnline," ")

Response.Write "xmlDoc eksisterer: " & (not xmlDoc is nothing) & "<br>"
Response.Write "Antal childNodes: " &  xmlDoc.documentElement.childNodes.Count & "<br>"

set xUsers = xmlDoc.selectSingleNode("/noesischat/users")
if not xUsers is nothing then
  Response.Write Server.HTMLEncode(xUsers.selectSingleNode("totalonline").nodeValue)
  Response.Write " online<br>"
else
  Response.Write "Antal brugere er ikke tilgængeligt i øjeblikket<br>"
end if