Impaginazione ASP

[frans1979]

Ciao a tutti,
sto cercando un modo per impagina su 3 colonne e 3 righe dei risultati di una query ... ma sto diventando matto!


In sostanza il risultato che dovrei ottenere è questo:

[table="width: 500"]
[tr]
[td]Titolo 1[/td]
[td]Titolo 2[/td]
[td]Titolo 3[/td]
[/tr]
[tr]
[td]codice 1[/td]
[td]codice 2[/td]
[td]codice 3[/td]
[/tr]
[tr]
[td]descrizione 1[/td]
[td]descrizione 2[/td]
[td]descrizione 3[/td]
[/tr]
[/table]




Sono riuscito solo a mettere il campo titolo su 3 colonne, ma non riesco ad aggiungere alter righe con gli altri campi.

Riuscite ad aiutarmi?

Grazie a tutti!

<%
Dim conta
conta = 0

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/../database/testi.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "select top 3 titolo, codice, descrizione FROM video"
Set Mostra = Server.CreateObject("ADODB.Recordset")
Mostra.Open sql, conn ,3,3
%>
			
			<table border="1" style="width: 100%; padding-right: 5px; padding-left: 5px;">
	<tr>		
<%		
while not(Mostra.eof)
if conta = 3 then
conta = 0 
%>

</tr><tr>
<% end if %>

<td><strong style="font-size: 17pt; font-family: 'Roboto Condensed';"><%=Mostra("titolo")%></strong></td>

<%
Mostra.movenext
conta = conta + 1
wend
Mostra.close
set Mostra= nothing
conn.Close
set conn = Nothing
%>		
				</tr>
				</table>

 

[Paolo69]

Ciao, non so se ho capito, vuoi un risultato del genere?

http://www.caprioli.info/FITNESS/script/colonne.asp

Pubblico il codice da me usato a scopo didattico:

<%

Dim strConnect
	strConnect = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db1.mdb") 

'Imposta Connessione e Recordset
	Set objUsersConn = Server.CreateObject("ADODB.Connection") 
	Set objUsersRs = Server.CreateObject("ADODB.Recordset") 
		objUsersConn.open strConnect
		strUsersSql = "SELECT * FROM Tabella1"
		objUsersRs.Open strUsersSql, objUsersConn, 3, 3
	' -----------------------------------------
	' imposto il numero di record da estrapolare
		objUsersRs.pagesize = 3
	' imposto il numero di colonne
		colonne = 3
	' -----------------------------------------
		objUsersRs.absolutepage = 1
	' imposto a zero il contatore	
		Conta = 0

' BARRA TITOLO
%>
<table align="center" border="1" cellpadding="0" cellspacing="1" width="550">
    <tr>
        <td width="33%" style="background-color:#333333; color:#FFFFFF">Colonna 1</td>
        <td width="33%" style="background-color:#333333; color:#FFFFFF">Colonna 2</td>
        <td width="33%" style="background-color:#333333; color:#FFFFFF">Colonna 3</td>
    </tr>
    <tr>
	<%
    
    do while not objUsersRs.eof 
      If rowcount >= objUsersRs.pagesize then exit do
    
        rowcount = rowcount + 1
        
        campo1 = (objUsersRs("campo1"))
        campo2 = (objUsersRs("campo2"))
        campo3 = (objUsersRs("campo3"))
    
    %>
		<td><%=campo1%><br /><%=campo2%><br %><%=campo3%></td>
	<%
    
    'Incrementiamo il Contatore
        Conta = Conta + 1
    'Impostiamo il numero di colonne che si vogliono creare (nel nostro caso 2)
    if  Conta = colonne then
        conta = 0
    
    response.write "<tr></tr>"
    
    end if
    'Scorriamo i dati della tabella
    objUsersRs.MoveNext
    loop
    
    
    %>
    </tr>
</table>
<% 


		objUsersRs.Close()
	Set objUsersRs = Nothing

' fine	
%>

Paolo