strTemp中的循环问题
循环错误,请高手指点sub ArticleContent(intTitleLen)
dim i,strTemp
i=1
strTemp=""
strTemp= strTemp & "<table width=100% border=0 cellspacing=0 cellpadding=0>"
strTemp= strTemp & "<tr>"
do while not rsArticle.eof
strTemp= strTemp & "<td>"
strTemp= strTemp & "<a href=ProductShow.asp?ArticleID=" & rsArticle("articleid") & ">"
fileExt=lcase(getFileExtName(rsArticle("DefaultPicUrl")))
strTemp= strTemp & "</td></tr>"
strTemp= strTemp & "<tr><td><a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">" & rsArticle("Title") & "</a>"
strTemp= strTemp & "</td>"
if i mod 5= 0 then
strTemp= strTemp & "</tr>"
end if
rsArticle.movenext
i=i+1
strTemp= strTemp & "</table>"
response.write strTemp
if i>=15 then exit do
loop
end sub