求解：这个函数我哪写错了

for   i=1   to   [color=#ff0000]6[/color] '如果数据不为空会循环6次啊
            if   rs.eof   then   exit   for 
                  if   strlen（rs（"newsname")) <=1   then 
                newsname=rs（"newsname") 
                  else   
                      newsname=strleft（rs（"newsname"),40) 
                  end   if 
                  if   now（)-rs（"addtime") <=2   then   
                      newflag="&nbsp; <img   src='../images/new_01.gif'> " 
                  else 
                      newflag="" 
                  end   if 
            response.write" <tr   > <td   class='listtitle'> &nbsp;&nbsp; <img   src='../images/wenling_44.jpg'   width='11'   height='11'> &nbsp; <a   href='newsview.asp?id="&rs（"id")&"&sortid="&rs（"sortid")&"'> "&newsname&" </a> "&newflag&" </td> </tr> " 
            rs.movenext 
        next 

function   topcxfw（sortid) 
    dim   rs,sql,i,newsname,newflag,count
    count=0
    set   rs   =   server.createobject（"adodb.recordset") 
    sql="select id,newsname,sortid,addtime from nwebcn_news where  viewflag=1 and sortpath in （select sortpath from nwebcn_newssort where id="&sortid&") order  by  id  desc"
    
    rs.open   sql,conn,1,1 
    response.write" <table   width='340'   border='0'   cellspacing='0'   cellpadding='0'> " 
    response.write   " <tr> <td   height='1'> </td> </tr> " 
    if   rs.bof   and   rs.eof   then 
        response.write   " <tr> <td   align='center'> 暂无相关信息 </td> </tr> " 
    else 
        response.write "<tr>"
        do while not rs.eof
                  if   strlen（rs（"newsname")) <=1   then 
                newsname=rs（"newsname") 
                  else   
                      newsname=strleft（rs（"newsname"),40) 
                  end   if 
                  if   now（)-rs（"addtime") <=2   then   
                      newflag="&nbsp; <img   src='../images/new_01.gif'> " 
                  else 
                      newflag="" 
                  end   if 
                  
                  
                  if count>3 then
                  response.write "</tr><tr>"
                  count=0
                  end if
                   
            response.write"<td class='listtitle'> &nbsp;&nbsp; <img   src='../images/wenling_44.jpg'   width='11'   height='11'> &nbsp; <a href='newsview.asp?id="&rs（"id")&"&sortid="&rs（"sortid")&"'> "&newsname&" </a> "&newflag&" </td></tr>" 
            rs.movenext 
            count=count+1
        loop
    end   if 
    response.write   " <tr> <td   height='1'> </td> </tr> " 
    response.write" </table> " 
    rs.close 
    set   rs=nothing 
end   function

<%
...
response.write "<table><tr>"
for i=1 to rs.recordcount
    response.write（"<td>")
    response.write（"这里写单元格的内容")
    if i mod 3=0 then
        response.write（"</tr><tr>")
    end if
    if rs.eof then exit for
    response.write（"</td>")
    rs.movenext
next
response.write（"<td></tr></table>")
...
%>

response.write（"<tr>")
        for   i=1   to   6 
            if   rs.eof   then   exit   for 
                  if   strlen（rs（"newsname")) <=1   then 
                newsname=rs（"newsname") 
                  else   
                      newsname=strleft（rs（"newsname"),40) 
                  end   if 
                  if   now（)-rs（"addtime") <=2   then   
                      newflag="&nbsp; <img   src='../images/new_01.gif'> " 
                  else 
                      newflag="" 
                  end   if 
if （i mod 3)=0 then response.write（"</tr><tr>")
            response.write"  <td   class='listtitle'> &nbsp;&nbsp; <img   src='../images/wenling_44.jpg'   width='11'   height='11'> &nbsp; <a   href='newsview.asp?id="&rs（"id")&"&sortid="&rs（"sortid")&"'> "&newsname&" </a> "&newflag&" </td>  " 
            rs.movenext 
        next 
response.write（"</tr>")