VBScript
 
Dim pages, index, Seite
 
Sub Swap( a,b) 
 tmp = pages( a)
 pages( a) = pages( b)
 pages( b) = tmp
End Sub
 
 
Sub Shuffle (Wert)
    Dim myArray(18)
    For x = 1 To Wert
      myArray(x) = x
    Next
 pages = myArray
 index = 0
 Randomize 
 For i = 0 To UBound( pages)
   j = Int( (UBound( pages)+1)*Rnd)
   Swap i,j
 Next 
End Sub
 
Sub NextPage (Seite)
 If index = UBound( pages) + 1 Then 
 pagename = "Start"   
  index = 0
 Else
  pagename = pages( index)
  index = index + 1
 End If
End Sub