auto skift

Hey jeg har det her script, som henter en vildkårlig streng ud fra databasen hver gang siden bliver loaded. men er det muligt, at den f.eks. står og skifter mellem de forskellige efter f.eks. 8 sek?
strSQL1 = "Select count(*) as Found from Citat"
    Set rs1 = Conn.Execute(strSQL1)
    Ialt = rs1("found")
    strSQL1 = "Select * from Citat"
    Set rs1 = Conn.Execute(strSQL1)
   
    Randomize
    RandNum = Int(Rnd * Ialt) + 1
    rs1.MoveFirst
    For i = 1 to RandNum - 1
   
    rs1.MoveNext
    next
    Tekst = rs1("Tekst")
    Billede = rs1("Billede")
   
   
%>