Database tip mangler

<snip>
åben din db og:
Function RandomRec(a)
arrRecords = rs.Getrows
rs.Close
if not rs.eof
Randomize()
intMaxarr = ubound(arrRecords, 2)
for n = 0 to a
ranRec = Int((intMaxarr+1) * Rnd)
RandomRec = RandomRec & \", \"& arrRecords(2, ranRec)
next
end if
end function

Kald funktionen med RandomRec(a), hvor a er antallet af randomrecords!!
Funktionen returnerer en kommasepareret string, som du nemt kan manipulere med Split-funktionen :O)

<snap> taget fra et andet spm.

Nu nævner du ikke hvilken database du bruger, men prøv følgende:

SELECT * FROM table_name ORDER BY RAND() LIMIT 1

Den der med at hente 10 bogstaver...

Replace(Left(RS(\"Nyhed\"),10)

>no doubt
Jeg kan ikke helt få det til at virke. Jeg brugere en database med navn data.mdb og tabellen salg. Den skriver bare et 4-cifrede tal ?

Kan en af jer ikke prøve at samle en hel kode ?

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"data.mdb\")

for i = 1 to 10 //antal du vil have ud

Set counter = Conn.Execute(\"SELECT Count(*) AS Count FROM salg\")

Set rs = Conn.Execute(\"SELECT * FROM salg\")

If counter(\"Count\") > 0 Then
Randomize()
Move = Int((counter(\"Count\") - 1 + 1) * Rnd + 1) - 1

rs.Move Move
End If
if rs.eof Then
response.write \"Der blev ik fundet noget\" & \"<br>\"
else
Response.Write rs(\"Din kolonne\") & \"<br>\"
end if

Set rs = Nothing
set counter = nothing
next

Conn.Close
Set Conn = Nothing

%>

er på icq : 92064248

JEG HAR GIVET POINT TIL ALLE NU !

>NO DOUBT
Tak for hjælpen

..og jer andre !