<% ' banner rotation module bannslots = 8 ' must be equal or less than a(n) dim a(8) a(0) = "a" a(1) = "b" a(2) = "c" a(3) = "d" a(4) = "e" a(5) = "f" a(6) = "g" a(7) = "h" x = "z" %><% gotcha = "z" Randomize For i = bannslots - 1 to 1 Step -1 j = Int(Rnd* (i + 1)) x = a(j) a(j) = a(i) a(i) = x Next pattern = a(0) & a(1) & a(2) & a(3) & a(4) & a(5) & a(6) & a(7) & a(8) %>
  <%kk = (InStr(pattern, "a"))%> <%=balt(kk)%> <%kk = (InStr(pattern, "b"))%> <%=balt(kk)%>
 
Don  Lancaster's Guru's Lair 
Webmastering   Library  
 
<%kk = (InStr(pattern, "c"))%> <%=balt(kk)%> <%kk = (InStr(pattern, "d"))%> <%=balt(kk)%>
advanced archive books demos help links newbie refdocs utilities

  Advanced Tutorials: .
 top   bot 
.

  Newbie Beginning Tutorials: .
 top   bot 
.
  Utilities & Demos: .
 top   bot 
.

  Archival Files: .
 top   bot 
.

  Books: .
 top   bot 

  For more help: .
 top   bot