Banner - Haster ?!?!?!?!

Jeg har et banner system, der ser ud som nedenstående. Jeg vil gerne kunne sætte tid på bannerne, altså at de skifter efter eks.30 sek.

<%


REM            MEC-rettelser
    dim banner(5)
    banner(1) = "1.gif"
    banner(2) = "2.gif"
    banner(3) = "3.gif"
    banner(4) = "4.gif"
    banner(5) = "5.gif"
   
    do
        Randomize
        banner1 = Int(Rnd * 5) + 1
        banner2 = Int(Rnd * 5) + 1
        banner3 = Int(Rnd * 5) + 1
        banner4 = Int(Rnd * 5) + 1
        banner5 = Int(Rnd * 5) + 1
    loop until banner1 <> banner2 and banner2 <> banner3 and banner1 <> banner3
   
   
    REM        MEC-rettelser
      dim sku(5)
      sku(1) = "60277"
      sku(2) = "43211"
      sku(3) = "02551"
      sku(4) = "15970"
      sku(5) = "24876"
     
REM MEC-rettelser
dim ALT(5)
ALT(1) = "kr.12,86"
ALT(2) = "kr.8,42"
ALT(3) = "kr.7,60"
ALT(4) = "kr.18,76"
ALT(5) = "kr.36,75"

%>