Udvælg tilfældigt ID nummer fra database

hvilken database bruger du ??

//akj

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("huse.mdb")
SQL = "Select * from sommerhuse"

%>

Hvis du har et felt af typen autonumber kan du gøre således:

Set rsmax = conn.execute("select max(id) as mymax")

mymax = rs("mymax")

Randomize  'ryst posen
myrow = Int((mymax * Rnd) + 1)  'find tilfældig række

set rs = conn.execute ("select * from sommerhuse where id = " & myrow)

Dette forudsætter at du har en ubrudt nummerserie som id, altså ikke har slettet nogen rækker.

//akj

:-( 

det er jeg bange for at jeg ikke har, der vil løbende blive tilføjet nye rækker men også slette en række i ny og næ :-(

kan man ikke bede den om at "ryste posen" med de numrer der er i databasen (bliver sikkert aldrig størrer end 500 rækker)

Har lige lavet en lille test:

<%

Set rs_id = conn.execute ("select id from sommerhuse")

myarray = rs_id.getrows()

myMax = ubound(myarray,2)

response.write "rækker ialt = " & myMax & "<br>"


Randomize  'ryst posen
myrow = Int((mymax * Rnd) + 1)  'find tilfældig række
response.write "tilfældig række = " & myrow & "<br>"

id = myarray(0,myrow)

set rs = conn.execute ("select felt1,felt2 from sommerhuse where id = " & id)

response.write rs("felt1")

%>

//akj

tja det ser jo ud til at  virke :-)

10000 tak for hjælpen
jeg bruger det her på forsiden www.feriefun.dk hvis du vil se det i funktion
(prøv at "reloade" ved at trykke på logoet i hjørnet

HOV svar lige :-)

Oki, flot side men prøv lige om du ikke kan finde lidt bedre farver  til bunden (gul rød grøn) opret evt et spørgsmål i design / sitevurdering, der er nogle der der er helt fantastiske til at give sider et sidste pift.

Held og lykke med sitet.

//akj