Random recordset

Jeg har søgt på Eksperten og fundet følgende spm til at udskrive 4 tilfældige poster fra DB'en: http://www.eksperten.dk/spm/44303


Nedenfor har jeg så sat det sammen med mit eget script:

Dim Conn, DSN, RS, SQL, intCount, intIndex, Index


Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("db.mdb") & ""
Conn.Open DSN

sql = "SELECT COUNT(*) AS total FROM table;" ' count totalt posts
Set Rs = Conn.Execute(sql)
intCount = CInt(Rs("total"))

sql = "SELECT * FROM table;"
Set Rs = Conn.Execute(sql)

For Index = 1 To 4 ' find 4 random posts
    intIndex = Int(Rnd * intCount)

    Rs.Move intIndex

Response.Write "<tr><td valign='top' align='left' bgcolor='#336699'>" _  ' linie 43
& ":: <a href='minside.asp?afdeling="&RS("afdelingBy")&"' "_
& "onMouseOver=""window.status='"&RS("afdelingNavn")&"'; return true;"" " _
& "OnMouseOut=""window.status=''; return true;"">"&RS("afdelingNavn")&"</a></td></tr>"


Next


RS.close
set RS = nothing
Conn.close
set Conn = nothing

Men når jeg kører scriptet får jeg "Undtagelse opstod!" i linie 43 ! Linie 43 er min første Response.Write sætning... Hvad har jeg gjort galt ?