高手帮忙，如何将下列函数改为显示为每行3张图片

sub DownContent(intTitleLen)
dim i,strTemp
i=0
do while not rsDown.eof
strTemp=""
strTemp= strTemp & "<table width=166 border=0 cellspacing=3 cellpadding=0>"
strTemp= strTemp & "<TBODY>"
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td width=25% >"
strTemp= strTemp & "<div align=center><a href=DownloadShow.asp?ID=" & rsDown("id") & ">"
if isnull(rsDown("PhotoUrl")) then
strTemp= strTemp & "<img src='Img/nopic.gif' width='100' height='120' border='0'>"
else
strTemp= strTemp & "<img border=0 src=" & rsDown("PhotoUrl") & " width=100 height=120>"
end if
strTemp= strTemp & "<

将下列句子改为感叹句 将下列句子改为祈使句 将下列句子改为感叹句. 将下列病句改为正确的句子 将下列句子改为被动语态 将下列单词改为ing形式 将下列句子改为被动语态, PLEASES! 将下列句子改为第三人称转述 将下列单词改为一般疑问句． 将下列句子改为反义疑问句