我都调试一个小时了，高手进来看看！急

<%set conn=server.createobject("adodb.connection")

conn.connectionstring="driver={SQL Server};server=servername;UID=suername;PWD=userpassword;Datebase=mianshi"

conn.open

dim vint,vwenben

vrandom=RND

if vrandom=0 then

set rsUser1=creatobject("adodb.recordset")

rsUser1.open"Select count(*) As mycount1 from mianshi",conn

rs1=clng(rsUser1("mycount1"))

set rsUser1=nothing

set rsUser2=creatobject("adodb.recordset")

rsUser2.open"Select count(*) As mycount2 from mianshi",conn

rs1=clng(rsUser2("mycount2"))

set rsUser2=nothing

rs=rs2/rs1

rs=round(rs,1)

if rs<0.7 then

vint=yes

end if

else

vint=no

end if

sql="INSERT INTO mianshi (neirong,suiji) VALUES ('"&vwenben&"','"&vint&"')

conn.execute(sql) 　　　'提示这一句出错

set conn=nothing

response.write("已经提交成功！")

%>

<script language="javascript">

opener.location.reload;

setTimeout("windos.close",800);

</script>

请问是那里的问题呀，我的ＲＮＤ函数这样调用行吗？急，我在线等

[952 byte] By [msdn] at [2007-8-14 9:08:51]