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

conn.open="Provider=OraOLEDB.Oracle;data source=test1;user id=TEST;password=TEST;"
set rs=Server.CreateObject("ADODB.Recordset"

rs.open "select * from mr_item",conn,1,1
num=rs.recordcount
for i=1 to num
arr1(1)=rs("desc1"

--------------------------------出错行
rs.movenext
Response.Write "<p><font size=2 align=left>"
Response.Write arr1(i)&":</font><br>"
Response.Write "</p>"
rs.close
set rs=nothing
next
rs.close
set rs=nothing
%>
</html>
我运行后,提示:
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'arr1'
/11/1.asp,行11
我是个菜鸟,请问怎么办,怎么不匹配了呀?