OK jeg har fået det til at virke
jeg bruger det her på forsiden
www.feriefun.dk hvis ivil se det i funktion
(prøv at "reloade" ved at trykke på logoet i hjørnet)
sådan gjorde jeg :
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../huse.mdb")
Conn.Open DSN
%>
<%
Set rs_id = conn.execute ("select id from sommerhuse")
myarray = rs_id.getrows()
myMax = ubound(myarray,2)
Randomize
myrow = Int((mymax * Rnd) + 1) 'find tilfældig række
id = myarray(0,myrow)
set rs = conn.execute ("select * from sommerhuse where id = " & id)
%>