[asp] performence boost voor lichtkrant.asp

[intrix]

Lange titel, maar hij verteld wel wat ik weten ..

het geval is dat ik bezig ben met een lichtkrant,
deze kijkt of er berichten voor vandaag zijn in de db

zo ja wordt er gekeken naar de totale lengte (in sec) van alle
berichten voor vandaag, vervolgens berekenen we hoeveel
secondes er sinds middernacht gepasseerd zijn en berekenen
welk bericht er nu zichtbaar zou moeten zijn.

ter verduidelijking:

VBScript:

Set RecSet = Server.CreateObject("ADODB.Recordset")
   strSQL = "SELECT * FROM Bericht, datum WHERE Bericht.id = datum.bericht_id AND bericht_datum = #" & date & "#"
    RecSet.Open strSQL, strConnect, adOpenStatic
    If Not RecSet.Eof Then arrMsg = RecSet.GetRows() Else leeg = 1 End If
    RecSet.Close
Set RecSet = Nothing

If( leeg <> 1 ) Then

   For x = 0 to UBound(arrMsg,2)
       duration = duration + arrMsg(ValDur,x)
   Next

      msgCount = x
     secsToday = second(NOW) + (60 * minute(NOW)) + (3600 * hour(NOW))
     timeShown = int( secsToday / duration )
          rest = secsToday - (timeShown * duration)
             t = - 1

   While( rest >= testdur )  
        t = t + 1
        testdur = testdur + arrMsg(ValDur,t)
   Wend

       titel = arrMsg(ValTit,t)
  titelcolor = arrMsg(ValTitCol,t)
    titelbgr = arrMsg(ValTitBgr,t)
   bannertop = arrMsg(ValBanTop,t)
   bantoppos = arrMsg(ValTopPos,t)
   bannerbot = arrMsg(ValBanBot,t)
   banbotpos = arrMsg(ValBotPos,t)
         msg = arrMsg(ValMsg,t)
    msgcolor = arrMsg(ValMsgCol,t)
      msgbgr = arrMsg(ValMsgBgr,t)
      msgpos = arrMsg(ValMsgPos,t)
     msgfont = arrMsg(ValMsgFon,t)
         img = arrMsg(ValImg,t)
      imgpos = arrMsg(ValImgPos,t)
         dur = arrMsg(ValDur,t)

Is het nou niet mogelijk dit gewoon te laten cachen ofzo?
Ben al flink opzoek geweest maar cache-functies voor asp 3.0 kan ik niet
vinden en een andere oplossing kom ik ook niet zo 1 - 2 - 3 tegen?!

[gorgi_19]

Is het nou niet mogelijk dit gewoon te laten cachen ofzo?
Ben al flink opzoek geweest maar cache-functies voor asp 3.0 kan ik niet
vinden en een andere oplossing kom ik ook niet zo 1 - 2 - 3 tegen?!

Opslaan in application vars; opslaan op disk (bestandje laten maken met FSO)