Problema simples como

Salve comunidade,

Estou com um probleminha simples, eu quero mostrar 9 registros em 3 linhas e 3 colunas. Gostaria de saber como fazer para distribuir estes registros.

eu estou usando este codigo mas ele me da todos os registros do banco 3 por linha

gostaria de setar 9 registros, 3 linhas, 3 colunas

Tipo

[ r1 ][ r2 ][ r3 ]

[ r4 ][ r5 ][ r6 ]

[ r7 ][ r8 ][ r9 ]

depois paginar o resto do recordset.

aqui vai o codigo que utilizo

se alquem puder ajudar

ASP [/tr][tr]<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="../../Connections/banco.asp" -->

<%

Dim rs

Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")

rs.ActiveConnection = MM_banco_STRING

rs.Source = "SELECT * FROM fotos"

rs.CursorType = 0

rs.CursorLocation = 3

rs.LockType = 1

rs.Open()

rs_numRows = 0

%>

<table>

<%

While Not rs.EOF

Response.Write "<tr>"

For R = 1 To 3 'aqui define qtos registros mostrar por linha

If rs.EOF = True Then Exit For

Response.Write "<td>"

Response.Write "<table align='center' border='0' width='100%' cellpadding='1' cellspacing='0'>"

Response.Write "<tr>"

%>

 <img src="fotos/<%=(rs.Fields.Item("id_festa").Value)%>/<%=(rs.Fields.Item("nome").Value)%>">

 <%

Response.Write "</tr>"

Response.Write "</table>"

Response.Write "</td>"

rs.MoveNext

Next

Response.Write "</tr>"

Wend

%>

</table>

<%

rs.Close()

Set rs = Nothing

%>

[/tr]

Desde já agradeço qualquer ajuda.

Atenciosamente

Rogério sims