access random

har prøvet med

    Randomize()
    randNum = (CInt(1000 * Rnd) + 1) * -1

rsql = "SELECT TOP 1 cols," & _
        "r = Rnd(" & randNum & ")" & _
        "FROM Glist where Category = "&ID&"  " & _
        "ORDER BY r"
        response.write rsql
set rs2 = Connect.Execute(rsql)   
   
    response.write rs2(0)


men får fejlen


Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 2.

line 110



linie 110 =  set rs2 = Connect.Execute(rsql)

Randomize()
intRandomNumber = Int (1000*Rnd)+1

' Return 3 random records
strSQL = _
  "SELECT TOP 3 TableID, Field1, Rnd(" & -1 * (intRandomNumber) & "*TableID)" & _
  "FROM Table1 " & _
  "ORDER BY 3"

Set objRS = objConn.Execute(strSQL)