VBScript
 
Dim pages,index
 
Sub Swap( a,b) 
 tmp = pages( a)
 pages( a) = pages( b)
 pages( b) = tmp
End Sub
 
 
Sub Shuffle
 pages = Array( "A","B","C","D","E","F","G","H")
 index = 0
 Randomize 
 For i = 0 To UBound( pages)
   j = Int( (UBound( pages)+1)*Rnd)
   Swap i,j
 Next 
End Sub
 
Sub NextPage
 If index = UBound( pages) + 1 Then 
  frage = "Start" 
  index = 0
 Else
  frage = pages( index)
  index = index + 1
 End If
End Sub