能帮我用asp代码实现从access表中随机的提取一条记录，然后插入另一张表吗？

Dim MyValue
Randomize '这个必写

sql = "select * from table order by id"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1
if rs.eof and rs.bof then
response.write "还没有记录……"
else
MyValue = Int(rs.recordcount * Rnd)'计算随机数
RS.Move MyValue'跳到随机记录
'取值操作，此处省略
rs.close
set rs=Nothing
'将取出的值插入别的表
conn.execute("insert into table2 (键值名) values ('你取出来的值')")