asp 实现随机排序

exec2="select * from neirongliebiao where id="&rs1("id")&""
set rs2=server.createobject("adodb.recordset")
rs2.open exec2,conn,1,3
do while not rs2.eof %>

如何实现随机排序？？每次打开结果都不一样？

http://yangyong2008620.blog.163.com/blog/static/85907162200911835054698/

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14'

[Microsoft][ODBC Microsoft Access Driver] 语法错误 (操作符丢失) 在查询表达式 'id=1ORDER BY Rnd(-123*id)' 中。

/ceshi112233/quanbu.asp，行 52 

还是不行啊

<%
Function randNum(lowerbound, upperbound)
  Randomize Time()
  randNum = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
End Function

exec2 = "select * from neirongliebiao where id=" & rs1("id")
set rs2 = Createobject("adodb.recordset")
rs2.CursorLocation = 3
rs2.open exec2,conn,1,3
n = rs2.RecordCount
Dim a()
ReDim a(n)
For i = 0 To n-1
  a(i) = i
Next
For i = 0 To n-1
  r1 = randNum(0, n-1)
  t = a(r1)
  r2 = randNum(0, n-1)
  a(r1) = a(r2)
  a(r2) = t
Next
For i=0 To n-1
  rs2.MoveFirst
  rs2.Move a(i)
  Response.Write rs2("id")
Next
rs2.close
Set rs2 = Nothing
conn.close
Set conn = Nothing
%>

还是成功不了啊！我就是想让这个页面的结果每次出现的顺序都不一样！怎么办

报什么错？