这是我写的一段代码

<%set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("bbs.mdb") exec="select * from Details where Levels=1 order by DataAndTime desc" set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,1

'rs.absolutepage=1 分页功能待完善

if not rs.eof then response.Write "<ul>" do while not rs.eof and rowcount>0 response.write "<li>" response.Write (rs.("Title")) 'response.Write "<a href='showarticle.asp?Title="& rs.("Title")&"'><font color="& rs.("color") &">"& rs.("Title") &"</font></a>" response.Write "</li>" rs.movenext rowcount=rowcount-1 loop response.Write"</ul>" end if

rs.close set rs=nothing conn.close set conn=nothing %>

IE提示

缺少标识符

/blue/list.asp，行22

response.Write (rs.("Title"))

请问怎么修改?