小问题，悬赏100分请教高手，为什么strsql="select top 10 填空题,填空题答案 from tablename order by rnd(id)"不能随机选取记录？问题

[sure9961]

为什么strsql="select top 10 填空题,填空题答案 from tablename order by rnd(id)"在access的sql视图下可以随机选取记录，在我的asp输出页面上每次选取的记录都一样呢？？？急！问题一解决立即给分！请大家多多指点！谢了。

请注意，我用的是access数据库！
下面是我的那段程序：
....

dim rs,sql
set rs=server.CreateObject("adodb.recordset")
randomize
strsql="select top 10 填空题,填空题答案 from tablename order by rnd(id) "
rs.open sql,conn,3,3

do while not rs.eof
response.write rs("填空题")
response.write rs("填空题填空题答案")
rs.movenext
loop
rs.close
set rs=nothing
....

[sheng9hhd]

select top 10 填空题,填空题答案 from tablename order by newid()

[sure9961]

更正：
response.write rs("填空题填空题答案")——>response.write rs("填空题答案")

[cjf1009]

rs.open sql,conn,1,3
试试

[cjf1009]

dim rs,strsql
set rs=server.CreateObject("adodb.recordset")
'randomize这个没有用
strsql="select top 10 填空题,填空题答案 from tablename order by rnd(id) "
rs.open strsql,conn,1,3 '你的程序打开错了，是sql了。

do while not rs.eof
response.write rs("填空题")
response.write rs("填空题填空题答案")
rs.movenext
loop
rs.close
set rs=nothing

[sure9961]

rs.open sql,conn,1,3
不行啊，我试过了。

[chendongqiang]

sql语句用：
select top 10 填空题,填空题答案 from tablename order by newid()
随机抽取10个
执行：
rs.open sql,conn,1,1

[好记忆不如烂笔头abc]

dim rs,strsql
set rs=server.CreateObject("adodb.recordset")
strsql="select top 10 填空题,填空题答案 from tablename order by rnd(id) "
rs.open strsql,conn,3,3

do while not rs.eof
response.write rs("填空题")
response.write rs("填空题填空题答案")
rs.movenext
loop
rs.close
set rs=nothing

[sure9961]

呵呵，我找到答案了。
<!--#include file="conn.asp"-->
<%
dim tablename
tablename=session("tablename")
dim blankcount
blankcount=10
dim a
a=1
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
for i=1 to blankcount'blankcount是填空题的个数
randomize
sql="SELECT id,blank,blankb FROM ["&tablename&" ] where blank is not null "
'response.write sql
'response.end
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
count=rs.recordcount
temp=fix(count*rnd)
rs.move temp
response.write rs("id")
response.write "."
response.write rs("blank")
response.write "<br>"

j=j+1
rs.movenext
next
rs.close
set rs=nothing
%>

[sure9961]

感谢各位的热情帮助，现在给大家散分！

[sure9961]

<!--#include file="conn.asp"-->
<%
dim tablename
tablename=session("tablename")
dim blankcount
blankcount=10
dim a
a=1
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
for i=1 to blankcount'blankcount是填空题的个数
randomize
sql="SELECT blank,blankb FROM ["&tablename&" ] where blank is not null "
'response.write sql
'response.end
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
count=rs.recordcount
temp=fix(count*rnd)
rs.move temp
response.write a
response.write "."
response.write rs("blank")
response.write "<br>"

a=a+1
rs.movenext
next
rs.close
set rs=nothing
%>