I am working on this project and I want to display a random recordset, but it does not seem towork with Access at all.

I have it workin in SQL 2000 database but access is more complicated.

Can anyone help?

<%
Dim rsSpecials
Dim rsSpecials_numRows

Set rsSpecials = Server.CreateObject("ADODB.Recordset")
rsSpecials.ActiveConnection = MM_conn_STRING
rsSpecials.Source = "SELECT P_Name, P_OnSpecial, P_OnSpecialPrice, P_SmallPicture, P_ID, NEWID() AS P_ID1 FROM Products WHERE P_OnSpecial=yes ORDER BY P_ID1"
rsSpecials.CursorType = 0
rsSpecials.CursorLocation = 2
rsSpecials.LockType = 1
rsSpecials.Open()

rsSpecials_numRows = 0
%>

The NEWID() part is the problem.

I tried RAND() but.......




L Ion

__________________
L Ion

I sorted out this way:

<%
Const adCmdText = &H0001

Dim rsNewProducts
Dim rsNewProducts_numRows

Set rsNewProducts = Server.CreateObject("ADODB.Recordset")
rsNewProducts.ActiveConnection = MM_conn_STRING
rsNewProducts.Source = "SELECT * FROM NewProducts ORDER BY P_DATEADDED"
rsNewProducts.CursorType = 0
rsNewProducts.CursorLocation = 3
rsNewProducts.LockType = 1
rsNewProducts.Open()

rsNewProducts_numRows = 0

Dim intRnd
        Randomize Timer
        intRnd = (Int(RND * rsNewProducts.RecordCount))

        ' Now moving the cursor to random record number
    rsNewProducts.Move intRnd
%>

Thanks for help.

L Ion