急求换行显示问题解决方法

MaxPerPage=10
代码：
sub   ShowArticle(TitleLen)
if   TitleLen <0   or   TitleLen> 200   then
TitleLen=50
end   if
        if   currentpage <1   then
      currentpage=1
        end   if
if   (currentpage-1)*MaxPerPage> totalput   then
if   (totalPut   mod   MaxPerPage)=0   then
      currentpage=   totalPut   \   MaxPerPage
else
      currentpage=   totalPut   \   MaxPerPage   +   1
end   if
      end   if
if   currentPage=1   then
                sqlArticle= "select   top   "   &   MaxPerPage
else
sqlArticle= "select   "
end   if

sqlArticle=sqlArticle   &   "   ArticleID,Product_Id,BigClassName,SmallClassName,IncludePic,Title,Price,Spec,Unit,Memo,DefaultPicUrl,UpdateTime,Hits   from   Products   where   Passed=True   "

if   BigClassName <> " "   then
sqlArticle=sqlArticle   &   "   and   BigClassName= ' "   &   BigClassName   &   " '   "
if   SmallClassName <> " "   then
sqlArticle=sqlArticle   &   "   and   SmallClassName= ' "   &   SmallClassName   &   " '   "
end   if
else
if   SpecialName <> " "   then
sqlArticle=sqlArticle   &   "   and   SpecialName= ' "   &   SpecialName   &   " '   "
end   if
end   if
sqlArticle=sqlArticle   &   "   order   by   articleid   desc "
Set   rsArticle=   Server.CreateObject( "ADODB.Recordset ")
rsArticle.open   sqlArticle,conn,1,1
if   rsArticle.bof   and     rsArticle.eof   then
response.Write( " <br> <li> 没有任何产品 </li> ")
else
if   currentPage=1   then
call   ArticleContent(TitleLen)
else
if   (currentPage-1)*MaxPerPage <totalPut   then
                        rsArticle.move     (currentPage-1)*MaxPerPage
                  dim   bookmark
                      bookmark=rsArticle.bookmark
                        call   ArticleContent(TitleLen)
                else
                currentPage=1
                      call   ArticleContent(TitleLen)
        end   if
end   if
end   if
rsArticle.close
set   rsArticle=nothing
end   sub

sub   ArticleContent(intTitleLen)
      dim   i,strTemp
        i=0
do