Problema com tabelas

Boa noite pessoal,

Bom to com um problema na formatação das tabelas deste código não há erro os produtos estão aparecendo certinho é que está mostrando apenas uma coluna sendo que deveria estar mostrando 4. Se puderem me ajudar agradeço.

<%
Dim lista,cat_id,cat_nome,nome,lista_produtos,msgnada
lista=Request.querystring("lista")
cat_id=Request.querystring("cat_id")
cat_nome=Request.querystring("cat_nome")
nome=Request.querystring("nome")
%>
<table border=0 width=100% cellspacing="5" cellpadding="0"><tr width=100%><td width=100% valign=top><h3><%=cat_nome%></h3></td></tr>
<%
Select Case lista
Case "categoria"

	set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id="& cat_id &" AND disp='S' ORDER BY nome")
	msgnada = "No momento não dispomos de nenhum produto neste departamento."

Case "busca"

	set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE nome LIKE '%"& nome &"%' OR descricaop LIKE '%"& nome &"%' OR descricaog LIKE '%"& nome &"%' OR preco LIKE '%"& nome &"%' OR imagem LIKE '%"& nome &"%' AND disp='S' ORDER BY nome")
	msgnada = "Infelizmente não localizamos nenhum produto com esse nome."

Case Else
%>

	<script>window.location="./index.asp"</script>
	<%
End Select

If lista_produtos.EOF Then
Response.Write "<tr><td><h5>" & msgnada & "</h5></td></tr>"
Else
%>
<%
Dim prod_cat_id,prod_id,prod_imagem,prod_descricaop,prod_preco,malha1,col,colu
malha1 = "sim"
col=4
if not lista_produtos.eof then
colu=1

	response.write "<table><tr><td>"
	while not lista_produtos.EOF
 prod_cat_id = lista_produtos("cat_id")
 prod_id = lista_produtos("id")
 prod_imagem = lista_produtos("imagem")
 prod_descricaop = lista_produtos("descricaop")
 prod_preco = lista_produtos("preco")
 %>

 <table valign=top width=100% border="2" cellspacing="3" cellpadding="3">
 <tr class=<%=malha1%>>
 <td align="center"><center><a href="detalhe_produto.asp?id=<%=lista_produtos("id")%>" target="principal"><img src='images/<%response.write lista_produtos ("imagem")%>' height="100" border="0"/></a></tr>
 <tr>
 <td align="center"><center><font face="verdana" size="1" color="black"><b><%response.write lista_produtos ("nome")%><b></td></tr>
 <td align="center"><center><font face="verdana" size="2" color="red"><b>R$ <%response.write formatnumber (lista_produtos("preco"),2)%></b></td></tr>
 <td align="center"><center><font face="verdana" size="1" color="black"><b><%response.write lista_produtos ("condicoes")%><b></td></tr>
 </tr>
 </table>

 <%
 if colu=col then
 response.write "</td><tr><td>"

 colu=1

 response.write "</td><td>"

 colu=colu+1

 end if

 lista_produtos.movenext
 If malha1 = "sim" Then malha1 = "nao" Else malha1 = "sim" End If
	wend
 response.write "</td></tr></table>"

End If
lista_produtos.Close
set lista_produtos = Nothing
End if
%>

</table></td></tr>
</table>