数据库图片的前台显示,请求指导!

问题如下:代码内显示的四个竖排的调用的数据库的图片,现在我想让他们横着排列为四个图片,应该修改哪些地方<table width="95%" align="center" cellpadding="0" cellspacing="5" bgcolor="#FFFFFF" style="border: 1px solid #cccccc">
          <tr>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td><%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and picname<>null order by NewsID DESC"
end if
if Request.cookies("key")="" then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel=0  and picname<>null order by NewsID DESC"
end if
if Request.cookies("key")="selfreg" then
if Request.cookies("reglevel")=3 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=3 and picname<>null order by NewsID DESC"
end if
if Request.cookies("reglevel")=2 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=2 and picname<>null order by NewsID DESC"
end if
if Request.cookies("reglevel")=1 then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel<=1 and picname<>null order by NewsID DESC"
end if
end if
else
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and picname<>null order by NewsID DESC"
end if
rs3.Open rs3.Source,conn,1,1
if not rs3.EOF then
while not rs3.EOF
fileExt=lcase(getFileExtName(rs3("picname")))
Content=rs3("Content")
content=replace(content,"[[","<")
content=replace(content,"]]",">")
%>
              <table width="95%" border="0" align="center" cellpadding="0" cellspacing="6" bgcolor="#FFFFFF">
              <tr>
                <td align="center" style="WORD-WRAP: break-word"><a class=middle href="ReadNews.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=rs3("title")%>">
                  <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                  <img  src="uploadfile/<%=rs3("picname")%>" width="133" height="100" class="border">
                  <%end if%>
                  <%if fileext="swf" then%>
                  <object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width="160" height="100">
                    <param name=movie value="uploadfile/<%=rs3("picname")%>">
                    <param name=quality value=high>
                    <param name='Play' value='-1'>
                    <param name='Loop' value='0'>
                    <param name='Menu' value='-1'>
                    <param name="wmode" value="transparent">
                    <embed src="uploadfile/<%=rs3("picname")%>" width="160" pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed>
                  </object>
                  <%end if%>
                  <br>
  <script>
//测字符串实际长度
String.prototype.Tlength = function(){var arr=this.match(/[^\x00-\xff]/ig);return this.length+(arr==null?0:arr.length);}//字符串左取
String.prototype.left = function(num,mode){if(!/\d+/.test(num))return(this);var str = this.substr(0,num);if(!mode) return str;var n = str.Tlength() - str.length;num = num - parseInt(n/2);return this.substr(0,num);}
            
//开始左取   
document.write("<%=rs3("title")%>".left(20,true));
//结束左取
</script></a></td>
              </tr>
            </table>
              <%
rs3.MoveNext
wend
else
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" style=""TABLE-LAYOUT: fixed""><tr><td width=100% align=center height=18 bgcolor="& r_main &">暂无</td></tr></table>"
end if
rs3.close
set rs3=nothing%></td>
          </tr>
        </table>