请教各位，我现在有个难点无法突破，请大家帮忙指点一下：
  下面是原来的代码，功能是这样子的：按条件从Access数据库的club表中把符合IsLeaf=false and IsApproved=True和RightNumber is null or LeftNumber is null的"Number"读取，显示在表单的旁边，只有去点击选中，才会写入对话框内。
   缺点：无论怎么刷新，读取的都是原来那个，无法读取其他符合条件的值。
             <td>
               <input type="text" name="ParentNumber" size="20" id="ParentNumber" value="<%=parentid%>">                  
              <%
                 dim Location
                 ParentID=""
                 set Rs=nothing
                   set Rs=server.CreateObject("adodb.recordset")
                 sql = "select * from Club where IsLeaf=false and IsApproved=True"   
                 sql = "select * from Club where  RightNumber is null or LeftNumber is null "   
                 Rs.Open sql,conn
                  if rs.recordcount>0    then
                  response.write "请单击随机获取<a href='javascript:' onclick=form1.ParentNumber.value='"&rs("Number")&"';><font color=blue>"&rs("Number")&"</font></a>"              
                 end if
                 
                  %>
         </td>
  我的目标，如何让程序每刷新一次，都可以去club表中把符合IsLeaf=false and IsApproved=True和RightNumber is null or LeftNumber is null的"Number"的值随机读取，直接写入对话框内，无需再去点击选中？每次刷新所读取的值都不一样。

  恳请大家帮忙解答，好么？

不行哦，报错。 不过谢谢你咯

  还有谁会的吗？多指点啦。。我没学过这些变程，不是很会，一直都是自己在黑暗中探索。

我的期望是去club表中把符合“IsLeaf=false and IsApproved=True”和“RightNumber is null or LeftNumber is null”的"Number"随机读取一个出来，这样不难吧？

参考了很多网上公布的方式，没一个可以的，恳请大家帮忙啦

别沉了，大家看看吧，没一个会的吗？

站长，露面啦~ 把我从黑暗中牵引上来吧~  

该搜的都搜了，就是无法解决

大家帮忙写几行代码啦

感谢dzt0001，   感谢towering， 终于成功了。谢谢哦

拿给大家分享：
     set HyRs=server.CreateObject("adodb.recordset")
     Randomize
     sql = "select top 1 * from Club where RightNumber is null or LeftNumber is null order by rnd(-(hyid & "& int((10000 * rnd()) + 1)& "))"
     HyRs.Open sql,conn