Haster->>Random record fra db

<%@ Language=VBScript %>
<%
set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db.mdb\")
%>
<%
set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"SELECT * FROM tabel\", Conn, 1, 3

randomize
linie = int(rs.RecordCount * rnd)

rs.MoveFirst
rs.Move(linie)

    rs(\"point\") = rs(\"point\") + 1
rs.Update

%>
<%=rs(\"fra db en\")%>
<%
rs.Close
set rs = nothing

Conn.Close
set Conn = nothing
%>

Nej:

rs.Move(linie+1)

linie antager værdier fra 0 til recordcount-1, så det er jo ikke helt retfærdigt.

Correct me if I\'m wrong, jeg er ikke helt sikker.

Hvis du siger:
linie = Fix(rs.RecordCount * rnd)
er jeg rimelig sikker på jeg har ret. Check det i hvert fald.

Ellers er det jo ikke sjovt at være nr. RecordCount, især hvis man kun er en to-tre stykker om buddet

Hvis du benytter MS-SQL så:
SELECT TOP 1 * FROM Tabel ORDER BY rand(ID * 1000.0 *
datepart(ms, getdate()))

mit virker fint nok som det er, for jeg bruger det selv!

Ok, bare for at være sikker :o)

Yoyo tpill, det virker jo fint det der....men kan sq ikke helt få det til og smide brugeren ud på den tilfældige side han skal ud på efter at der er blevet lagt 1 til

Prøv at erstatte
%>
<%=rs(\"fra db en\")%>
<%
Med
Response.Redirect rs(\"fra db en\")
Hvis altså \"rs(\"fra db en\")\" er en adresse.

det er det samme burin :o)

burin -> Jojo selvfølgelig er det det :-)

icq: 73543734

Tak, men fik du det til at virke???

Jeg mente bare at:
<%= betød Reposne.Write og ikke Response.Redirect.

Response.Write selvfølgelig

tpill -> Jep jep :-)
Kunne godt det meste kunne bare ikke huske det med at vælge en random record....

Hmmm får denne fejl:

ADODB.Recordset error \'800a0bb9\'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

default.asp, line 9

tpill -> Har du lyst til og kigge på det ?

ja, men hvad er linie 9???

Har denne fil
<%@ Language=VBScript %>
<%
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../bjarke/members/link.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
%>
<%
set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"SELECT * FROM links\", Conn, 1, 3

randomize
linie = int(rs.RecordCount * rnd)

rs.MoveFirst
rs.Move(linie)

    rs(\"point\") = rs(\"point\") + 1
rs.Update

%>
<%
Response.Redirect rs(\"url\")
%>
<%
rs.Close
set rs = nothing

Conn.Close
set Conn = nothing
%>

Og får denne fejl kig på link.bekhoj.dk