数据库的表 有3列  main 和 thefrom 和 长整型 time

用asp连接的代码index.asp

<%@ language=VBscript%>
<!-- #include file=PreventSQLAttack.asp -->
<%
dim conn,mdbfile,sqlstr,rnddata

mdbfile=server.mappath("Base%255C.mdb")'Base%5C.mdb
set conn=server.createobject("adodb.connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; uid=admin;pwd=xxxxxx;dbq="&amp;amp; mdbfile

'''Set Rs = Server.CreateObject("ADODB.RecordSet")
set objrs=server.createobject("adodb.Recordset")
'''with objrs:.CursorLocation = 3:.CursorType = 3:end with


sqlstr="SELECT * FROM list1 WHERE thefrom='"+ "www" +"'"

Response.write "调试：2
"

''set objrs=conn.execute(sqlstr)
objrs.open sqlstr,conn,2,2

randomize timer
Response.write "调试：1
"
do while not objrs.eof
 rnddata =int(rnd*1000)
 Response.write objrs("thefrom") &amp;amp;"<BR>"
 Response.write objrs("main") &amp;amp;" To "&amp;amp; rnddata &amp;amp;"
----------
"
 objrs("main")=rnddata
 objrs.Update
 objrs.movenext
loop

objrs.close

sqlstr="INSERT INTO list1(thefrom,main)"
sqlstr=sqlstr &amp;amp; "VALUE('www','Hello',19900112);"
conn.execute sqlstr
conn.close
%>

结果出错了：信息如下


调试：1
调试：2
www
222 To 691
---------------
www
231 To 794
---------------
Microsoft VBScript 编译器错误 错误 '800a03f6' 

缺少 'End' 

/iisHelp/common/500-100.asp，行242 

ADODB.Recordset 错误 '800a0cb3' 

对象或提供者不能执行所需的操作。 

/conn/index.asp，行27 




请问哪里出错了？