Random record fra DB ??

har du prvøet dette eks: http://www.4guysfromrolla.com/webtech/072799-1.shtml

ligesom ret besværligt!!

for i = 1 to 1

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

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

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("tekst") & "<br>"
end if

Set rs = Nothing
set counter = nothing
next

Conn.Close
Set Conn = Nothing

%>

Ja, men man kan ikke bruge max ID (autonummer) som antal for hvis man sletter en record kunner der hul i rækken så det korteste er noget i stil med:
set rs=server.CreateObject("adodb.recordset")

strSQL = "SELECT * FROM advert where place = '" & strPlace & "'"
RS.Open strSQL, objConn, 3
'Find antal records
recCount = rs.RecordCount
'Find random nummer
randomize
rec = int(rnd * recCount)
'Flyt til den valgte record
rs.Move rec
'Udskriv
response.write rs("kolonnenavn")

rs.Close

eagle læs din mail vil du ?

eagleeye > Virker ikke :( skal jeg ændre i min database forbindelse?

<%
if strFile <> "" then
file = strFile
else
file = "data.mdb"
end if

        DBName = server.mappath("/data/" & file & "")           
   
        Set objConn = Server.CreateObject("ADODB.Connection")    
    objConn.ConnectionString = "DBQ=" & DBName & ";password=cillemaja;Driver={Microsoft Access Driver (*.mdb)};"   
    objConn.Open
%>

Nej connection skulle være fin

Prøv evt at ændre: RS.Open strSQL, objConn, 3
Til: RS.Open strSQL, objConn, 3, 1

eagleeye > Nææh, virker ikke???

Hvad skal jeg gøre ???

Virker ikke som får en fejl??? eller slet ingen ting?

Denne fejl:

Microsoft VBScript runtime error '800a01a8'

Object required: 'RS'

/Default.asp, line 13

Linje 13 => rs.Open strSQL, objConn, 3, 1

du skal huske at havde denne med:

set rs=server.CreateObject("adodb.recordset")

eagleeye >> TAKKER!!! Nu funger det... :)

Det lyder godt :)

Og naturligvis dine point :)