我都调试一个小时了,高手进来看看!急
<%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>
请问是那里的问题呀,我的RND函数这样调用行吗?急,我在线等