关于编号列表的问题无法输出

<%     
    if not rsobj.eof then      
    response.write "<tr>"
    response.write  "<td width='750' valign='top'>"
    response.write "<ol>"
    
    for i=1 to rsobj.pagesize
    if rsobj.eof then exit for
    response.write "<li>楼&nbsp;[评论]&nbsp;"&rsobj("bptitle")&"<br><br>"
    response.write rsobj("bping")&"<br><br>"
    response.write "发表人:"&rsobj("vipname")&"&nbsp;发表时间:"&rsobj("bptime")&"<br>"
    response.write "<hr size=1 noshade></li>"
    rsobj.movenext
    next    
    response.write "</ol>"
    response.write "</td></tr>"
    else
    response.write "<tr>"
    response.write  "<td width='750' valign='top'>"
    response.write "<br>&nbsp;暂无评论!."
    response.write "</td></tr>"
    end if
    %>

请问下.为什么以上部分输不出编号列表....