Tengo un loop echo que me lista los datos de una bd en dos columnas.
El problema es que entre columna y columna me mete un espacio muy grande y me descuadra.
El codigo es el siguiente:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<%set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd/ropautil.mdb")
SQL="SELECT * FROM productos WHERE idcat=3;"
set rs=oConn.Execute(SQL)
'if not rs.eof then ' Para abajo del todo
SQL="SELECT Count(*) FROM productos;"
set rs1=oConn.Execute(SQL)
contador= CLng(rs1(0))
modulo = contador mod(2)
contador= (contador + modulo)/2
num=0
fondo=175%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin título</title>
<style type="text/css">
<!--
#Layer1 {
position:absolute;
left:236px;
top:25px;
width:440px;
height:516px;
z-index:1;
background-image: url(img/fondoproductos.png);
}
.Fondo {
background-color: #000000;
background-image: url(img/fondoproductos.png);
background-repeat: no-repeat;
background-position: left top;
background-attachment: fixed;
width: 440px;
}
#Layer2 {
position:absolute;
left:0;
top:46px;
width:440px;
height:516px;
z-index:1;
}
.caja {
background-image: url(img/marco.png);
background-repeat: no-repeat;
background-position: left top;
}
.Estilo1 { color: #C800A2;
font-family: Geneva, Arial, Helvetica, sans-serif;
font-weight: bold;
}
.titulo_de_producto { font-family: Geneva, Arial, Helvetica, sans-serif;
font-size: 14px;
color: #A6A6A6;
font-weight: bolder;
}
-->
</style>
<link href="estiles.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="450" height="515" border="0" cellpadding="0" cellspacing="0" class="Fondo">
<tr valign="middle">
<td valign="top" nowrap="nowrap"><div align="right">
<table width="450" height="164" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><table width="222" height="138" border="0" align="left" cellpadding="0" cellspacing="0">
<%Do While num < contador %>
<tr>
<%col=0
Do While col < 2 %>
<%if not rs.eof then
alto = 10: ancho = 10
if rs("tamaño")= "alta" then
ancho = 10
end if%>
<td height="100" width="230"><table width="222" border="0" cellpadding="0" cellspacing="1" class="caja">
<tr>
<th width="82" height="137" scope="col"><div align="center"><img src="fotos/<%=rs("foto")%>" width="44" height="44" border="0" /></div></th>
<th width="137" scope="col"><table width="135" height="138" border="0" cellpadding="0" cellspacing="1">
<tr>
<th width="10" height="37" scope="col"> </th>
<th width="101" class="Productos" scope="col"><%=rs("Producto")%></th>
<th width="20" scope="col"> </th>
</tr>
<tr>
<td height="50"> </td>
<td class="Descripcion"><div align="center"></div></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><div align="center"><a href="masinfo.asp?id=<%=rs("id")%>" target="_blank"><img src="img/btn.png" width="47" height="22" border="0" /></a></div></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td class="Precios"><div align="center" class="Precios"><%=rs("precio")%>€</div></td>
<td> </td>
</tr>
</table></th>
</tr>
</table></td>
<%rs.movenext
end if%>
<%col=col+1
loop%>
</tr>
<%fondo=fondo+10
num=num+1
loop%>
</table>
</td>
</tr>
</table>
</div></td>
</tr>
</table>
<%
oConn.Close
set objRS = nothing
set oConn = nothing
%>
</body>
</html>
A ver si alguien sabeee!!!Grasiasss a todos!!!
