Hola!
En el siguiente ejemplo muestro como sacar 16 imágenes en 4 columnas. Si hay menos, se completa con cuadros en blanco. Al trabajar con constantes, se podría configurar para que saliera en tantas filas/columnas para que no haga estos huecos. Es decir, que si el recordset tiene 15 registros, lo saque en 3 filas y 5 columnas, si tiene 16, 4x4, etc. Tambien se podrían paginar los resultados...
NOTA: Puedes ver el ejemplo en funcionamiento en: http://www.freedoniaproducciones.com. En el apartado "Representación de actores y actrices".
Código:
...
sql = "select t.c_tipo_trabajo, t.d_tipo_trabajo, t.d_texto"_
&" , m.d_splash, m.d_media, m.d_texto"_
&" from tipo_trabajo t, media_tipo_trabajo m "_
&" where m.c_tipo_trabajo = t.c_tipo_trabajo "_
&" and m.c_tipo_trabajo = "&tipo
...
datosTrabajosTipo = ""
max_col_trabajos = 4
max_trabajos = 16
...
if not rsTrabajosTipo.EOF then
datosTrabajosTipo = datosTrabajosTipo &""_
&" <table border="&chr(34)&"0"&chr(34)&" cellpadding="&chr(34)&"0"&chr(34)&" cellspacing="&chr(34)&"0"&chr(34)&" class="&chr(34)&"W100P"&chr(34)&">"&vbcrlf&""_
&" <tr>"&vbcrlf&""_
&" <td class="&chr(34)&"alineaIzda"&chr(34)&"><span class="&chr(34)&"trabajos fuente12 negrita"&chr(34)&">>> "&rsTrabajosTipo(1)&"</span></td>"&vbcrlf&""_
&" </tr>"&vbcrlf&""_
&" <tr>"&vbcrlf&""_
&" <td class="&chr(34)&"separadorH10"&chr(34)&"></td>"&vbcrlf&""_
&" </tr>"&vbcrlf&""_
&" <tr>"&vbcrlf&""_
&" <td class="&chr(34)&"alineaIzda alineaTop separadorH40"&chr(34)&"><span class="&chr(34)&"oscuro"&chr(34)&"> "&rsTrabajosTipo(2)&"</span></td>"&vbcrlf&""_
&" </tr>"&vbcrlf&""_
&" <tr>"&vbcrlf&""_
&" <td class="&chr(34)&"separadorH10"&chr(34)&"></td>"&vbcrlf&""_
&" </tr>"&vbcrlf&""_
&" <tr>"&vbcrlf&""_
&" <td id="&chr(34)&"mosaico"&chr(34)&" class="&chr(34)&"celdaTxtDchaTrabajos"&chr(34)&">"&vbcrlf&""_
&" <table border="&chr(34)&"0"&chr(34)&" cellpadding="&chr(34)&"0"&chr(34)&" cellspacing="&chr(34)&"0"&chr(34)&" class="&chr(34)&"W100P"&chr(34)&">"&vbcrlf&""_
&vbcrlf&""_
&" <tr>"&vbcrlf
cont = 0
do while not rsTrabajosTipo.EOF and cont < max_trabajos
imgSplash = "<img src="&chr(34)&"../web/media/img/trabajos/"&rsTrabajosTipo(3)&chr(34)&" alt="&chr(34)&rsTrabajosTipo(3)&chr(34)&" border="&chr(34)&"0"&chr(34)&" />"
media = "<a href="&chr(34)&"../web/media/img/trabajos/"&rsTrabajosTipo(3)&chr(34)&" title="&chr(34)&rsTrabajosTipo(5)&chr(34)&">"&imgSplash&"</a>"
datosTrabajosTipo = datosTrabajosTipo &""_
&" <td class="&chr(34)&"trabajo"&chr(34)&">"&media&"</td>"&vbcrlf
cont = cont+1
if cont mod max_col_trabajos <> 0 then
datosTrabajosTipo = datosTrabajosTipo &""_
&" <td class="&chr(34)&"separadorW5"&chr(34)&"></td>"&vbcrlf
elseif cont < max_trabajos then
datosTrabajosTipo = datosTrabajosTipo &""_
&" </tr>"&vbcrlf&""_
&" <tr>"&vbcrlf&""_
&" <td colspan="&chr(34)&(max_col_trabajos*2)-1&chr(34)&" class="&chr(34)&"separadorH5"&chr(34)&"></td>"&vbcrlf&""_
&" </tr>"&vbcrlf&""_
&" <tr>"&vbcrlf
end if
rsTrabajosTipo.moveNext
loop
do while cont < max_trabajos
datosTrabajosTipo = datosTrabajosTipo &""_
&" <td class="&chr(34)&"trabajo"&chr(34)&"></td>"&vbcrlf
cont = cont+1
if cont mod max_col_trabajos <> 0 then
datosTrabajosTipo = datosTrabajosTipo &""_
&" <td class="&chr(34)&"separadorW5"&chr(34)&"></td>"&vbcrlf
elseif cont < max_trabajos then
datosTrabajosTipo = datosTrabajosTipo &""_
&" </tr>"&vbcrlf&""_
&" <tr>"&vbcrlf&""_
&" <td colspan="&chr(34)&(max_col_trabajos*2)-1&chr(34)&" class="&chr(34)&"separadorH5"&chr(34)&"></td>"&vbcrlf&""_
&" </tr>"&vbcrlf&""_
&" <tr>"&vbcrlf
end if
rsTrabajosTipo.moveNext
loop
datosTrabajosTipo = datosTrabajosTipo &""_
&" </tr>"&vbcrlf&""_
&" </table>"&vbcrlf&""_
&" </td>"&vbcrlf&""_
&" </tr>"&vbcrlf&""_
&" </table>"&vbcrlf
end if
...
response.write datosTrabajosTipo
Saludos!!