Random funktion

Øh, hvad er det egentlig du vil?

Man kan lave en SQL som denne

SQL = "select top 1 * form mintabel order by rnd(id)"


men den virker vist ikke ordenlig og giver samme record hver gang. Jeg har ikke gode erfaringer med den, så man e rnød til at hende det ud som nedenfor.

Så prøv med dette:


Set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM mintabel"
rs.Open SQL, Conn, 3, 1
rndMax = rs.RecordCount
Randomize
rndNumber = Int((RND * rndMax))  'Find et random nummer
rs.Move rndNumber 'Flyt til den valgte record

Response.Write rs("navn") 'udskriver her

hehe, jeg har 10 navne i databasen. Gitte Stine .... Line. Hver gang en besøger min side, skal der stå et tilfældigt navn på siden, navnene står i en access database.... fx første gang står der line osv.. håber det kan gøres via en sql kommando.

Så prøv eagleeye's forslag, det burde gøre det du vil.

jeg får denne fejl:

Microsoft JET Database Engine error '80040e24'

Rowset does not support fetching backward

i denne linie:

objRS.Move rndNumber 'Flyt til den valgte record

Har du åbnet dit recordset med:  objrs.Open  ?

<%
Dim objRS

Call OpenDataBase("ddb.mdb")

Set objRS = objConn.Execute("SELECT * FROM Bruger")
rndMax = objRS.RecordCount
Randomize
rndNumber = Int(RND * rndMax)  'Find et random nummer
objRS.Move rndNumber 'Flyt til den valgte record

Response.Write objRS("Brugernavn") 'udskriver her


%>

Du skal bruge objRS.Open for det virker så prøv med din kode lavet om til dette:


<%
Dim objRS

Call OpenDataBase("ddb.mdb")
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.open "SELECT * FROM Bruger", objConn, 3, 1
rndMax = objRS.RecordCount
Randomize
rndNumber = Int(RND * rndMax)  'Find et random nummer
objRS.Move rndNumber 'Flyt til den valgte record

Response.Write objRS("Brugernavn") 'udskriver her


%>

og jeg har en fil som åbner en connection, som jeg bruger på alle mine sider..

det virker... jeg siger tak