response.write GetAktuality() 'FUNKCE TIPY Function GetAktuality() Dim strResult Dim strCacheKey strCacheKey = "aktuality" If Not(ReadedFromCache(strCacheKey , strResult)) Then sqlakt="SELECT id,zapsano,nadpis,text FROM Aktuality WHERE Platnost >date() and jazyk="&gLang&" ORDER BY zapsano" set rs_akt = Conn.Execute(sqlakt) if rs_akt.EOF then response.write ""&translation("zadne_aktuality")&"" else do while not rs_akt.eof strResult = strResult & " " & rs_akt("nadpis") &"
" strResult = strResult & rs_akt("text") &"" rs_akt.movenext loop end if call WriteToCache(strCacheKey, strResult, 20) set rs_akt=nothing End If GetAktuality = strResult End function