Start tilfældigt!

Du vil stadig have hele recordsettet skrevet ud ??

Følger lige med...

Måske noget som dette:



<%
ID = trim( request.Querystring("ID") )

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open db
SQL = "SELECT * FROM ann where Datost <=  Date() AND Datosl >= Date() order by ID"
Set RS =  myConn.Execute(Sql)
isFound = false

if id = 0 then
MyStart = Int((rs.rowcount() * Rnd) + 1)  ' find et tilfældigt tal
    for li_count = 1 to mystart
        rs.movenext    ' spol frem i recordset       
    next
end if


do while not RS.EOF and not isFound
  if ID = CStr( RS("ID") ) then
    isFound = true
  end if
  RS.MoveNext
loop


if id = 0 then  ' reseten skal udskrives
    li_count = 1
    rs.movefirst
    for li_count = 1 to mystart
        rs.movenext    ' spol frem i recordset       
    next
end if



if RS.EOF then
  RS.MoveFirst
end if

ID = RS("ID")

%>

Så får jeg denne her:

Objektet understøtter ikke denne egenskab eller metode: 'RS.rowcount'

Ups den smuttede :o)
Den hedder rs.recordcount isteddet for rs.rowcount()
Måske skal du rette:
SQL = "SELECT * FROM ann where Datost <=  Date() AND Datosl >= Date() order by ID"
Set RS =  myConn.Execute(Sql)

til
SQL = "SELECT * FROM ann where Datost <=  Date() AND Datosl >= Date() order by ID"
myConn.CursorLocation = 3
Set RS =  myConn.Execute(Sql)

for at det virker.

//akj

Øv øv så får jeg denne her:

Antallet af argumenter er forkert eller egenskabstildelingen er ugyldig: 'RS.recordcount'

recordcount UDEN ()
MyStart = Int((rs.recordcount * Rnd) + 1)  ' find et tilfældigt tal

//akj

Den kører men den starter ikke et tilfældigt sted - den starter samme sted hver jeg jeg f.eks. opdaterer :-)

Randomize  ' "ryster posen"
MyStart = Int((rs.recordcount * Rnd) + 1)

Sådan!! tusind tak for hjælpen :-)

Selvtak