<%
function citaty
'Deklarace proměnných
  Dim ObjFS,ObjStream,cislo,pocet,i,text,cesta

'Otevření souboru
  Set ObjFS=Server.CreateObject("Scripting.FileSystemObject")
  cesta=server.MapPath("citaty.txt")
  Set ObjStream=ObjFS.OpenTextFile(cesta)

'Zjištění poctu citátu a výběr citátu, který se načte
  pocet=INT(ObjStream.Readline)
  Randomize
  cislo= Int(Rnd *pocet)


'Najetí na vybraný citát
  for i=1 to cislo
    ObjStream.SkipLine
  next

'Načtení vybraného citátu
  text=ObjStream.ReadLine

'Zavření souboru
  ObjStream.Close
  Set ObjStream=Nothing
  Set ObjFS=Nothing

'Vrácení vybraného citátu jako výsledek funkce
  citaty=text
end function
%>
<%
response.write(citaty)
%>