Listagem Complexa{Avançada]

[Visitante]

Boa noite;

Srs,

Estou com uma duvida, de como fazer uma listagem nos seguintes moldes:

Para efeito de exemplo, tenho 8 registro.

Nesse caso, preciso que seja listada 3 a cada loop e quando chegar no ultimo, nesse caso no 8°, predciso que recupere o primeiro.

Lembrando, que preciso que seja independente, tendo 8 ou mais registro.

Exemplo:

Total = 8

[1][2] [3]

[4] [5] [6]

[7] [8] [1]

Para efeito de entendimento, usarei outros exemplos:

Total = 5

[1][2] [3]

[4] [5] [1]

ou ainda

Total = 10

[1][2] [3]

[4] [5] [6]

[7] [8] [9]

[10] [1] [2]

Sempre listagem ordenada, por três registro por vez.

Se alguém puder ajudar, fico grato.

Att

[Visitante]

Segue pessoal, codigo quase finalizado, entretando, preciso que complete a coluna, sempre com três resultados. Caso não tenha mais registro, preencha a coluna iniciando novamente pelo inicio...

<%
iCellsPerRow = 3
iItems = 8

' Create the table
strOutput = "<table>"

' Loop through all items
For i = 1 to iItems
    ' Check to see if this is the start of a new row
    If i mod iCellsPerRow = 1 Then strOutput = strOutput & "<tr>"

    ' Add a cell for this item
    strOutput = strOutput & "<td>" & i & "</td>"

    ' Check to see if this is the end of a row
    If i mod iCellsPerRow = 0 Then strOutput = strOutput & "</tr>"
Next

' If we're not at the end of a row,
' fill the rest of the row with empty cells.
If iItems mod iCellsPerRow > 0 Then
    ' Loop through to complete table
    For j = 1 to iCellsPerRow - (iItems mod iCellsPerRow)
        ' Add an empty cell
        strOutput = strOutput & "<td>&nbsp;</td>"

        ' Add a close row tag if this is the last cell.
        If j = iCellsPerRow - (iItems mod iCellsPerRow) Then _
            strOutput = strOutput & "</tr>"
    Next
End if

' Close the table
strOutput = strOutput & "</table>"

' Write the HTML output
Response.write(strOutput)
%>

alguém?

Abraços..

[Visitante]

Salve pessoal.... Suieii pensando, mas cheguei a uma previa do que eu quero, agora, o pior estar por vir, listar de um banco de dados nessas condições... Mas caso alguém precise seguir uma logica de listagem, segue ai um exemplo facil de entender.

<%
TOTAL = 98
LISTAGEM = 3


For i = 1 to TOTAL
R = R + 1 
J = J + 1 
response.write ("[" & i & "]")


IF J = 3 THEN
J = 0
response.write ("<br>")
END IF 

Next



IF R = TOTAL and TOTAL <> 1 AND TOTAL <> 2 THEN


RESULTADO =  TOTAL mod LISTAGEM
IF RESULTADO <> 0 THEN
if RESULTADO = 2 then

For e = 1 to 1
response.write ("[" & e & "]")
Next


else
For e = 1 to 2
response.write ("[" & e & "]")
Next

end if
END IF


END IF

%>

Abraços... Pode fechar o tópico...

Até....

[bareta]

na verdade é simples....

colunas=3
i=0
while not rs.eof
    response.write rs("id")
    if i<colunas then
        response.write " - "
        i=i+1
    else
        response.write "<br>"
        i=0
    end if
rs.movenext
wend

if i<colunas then
    rs.movefirst
    for ii=i to (colunas-1)
        response.write rs("id")
        if i<colunas then
            response.write " - "
        end if
    next
end if