visning af "random page"

Du kunne måske bruget noget i retning af dette:

    Private Function randomPage()
        Dim arr(10)
        arrPage(0) = "0.htm"
        arrPage(1) = "1.htm"
        arrPage(2) = "2.htm"
        arrPage(3) = "3.htm"
        arrPage(4) = "4.htm"
        arrPage(5) = "5.htm"
        arrPage(6) = "6.htm"
        arrPage(7) = "7.htm"
        arrPage(8) = "8.htm"
        arrPage(9) = "9.htm"
        Randomize
        randomPage = arrPage(Int(Ubound(arrPage) * rnd))
    End Function

    Response.Redirect(randomPage())