我写了这么一段程序结果IE上什么也没显示.帮忙看看是什么原因?

<%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 "<font color="& rs("color") &">"& rs("Title") &"</font>" 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 %>