<% set dbConn=Server.CreateObject("ADODB.Connection") dbConn.Open"webdata","sa","" set dbRS=dbConn.Execute("select * from 新闻")%> <% do while not dbrs.eof %>

<% dbrs.MoveNext%> <%dbRS.close%> <%dbConn.close%>

错误是

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

Microsoft JScript 编译错误 错误 '800a03ec'

缺少 ';'

/index.asp，行13

set dbConn=Server.CreateObject("ADODB.Connection")
----^

怎么改啊？

[此贴子已经被作者于2005-3-7 13:16:53编辑过]

dbConn=Server.CreateObject("ADODB.Connection")
改为:dbConn=Server.CreateObject("ADODB.Recordset")
少了Loop

应该少了LOOP，

或者你上面的if和下面end if 可能缺少一个！