Problema paginazione

[mstefania]

Ciao a tutti, so che ne avete già parlato ma non riesco ad adattare quello che ho trovato nel mio script.
Devo visualizzare il risultato di questa query in 5 colonne.

<%

Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = conn.Execute("SELECT DISTINCT * FROM sottocat, cat WHERE cat.cod_cat=sottocat.cod_cat")

Dim old_catego
old_catego = ""%>


<%
Do While Not rs.EOF

if rs.Fields("cod_cat") <> old_Catego then
Response.Write "
" & rs.Fields("categoria") & "

"
old_catego = rs.Fields("cod_cat")
End If

Response.Write rs.Fields("sottocat") & "
"

rs.MoveNext

Loop
%>




Ora lo vedo così:

Acquisti

Idea Regalo
Shopping online
Moda
Abbigliamento
Accessori

Auto

Accessori Auto
Auto
Assicurazioni
Finanziamenti
Noleggio Auto

Aziende

Team Building
Consulenza
Gestione
Comunicazione
Di tutto un po'

Annunci

Annunci

Divertimento

Incontri
Chat
Amicizia
Amore
Cartomanzia
Web Agency

GRAZIEEEEEEEEEEEEEEEEEEEEE

[OcchioCrepato]

al posto di Response.Write rs.Fields("sottocat") & "
"
scrivi Response.Write rs.Fields("sottocat") & " | "

e dovresti trovati con questo risultato


Acquisti

Idea Regalo | Shopping online | Moda | Abbigliamento | Accessori |

Auto

Accessori Auto | Auto | Assicurazioni | Finanziamenti | Noleggio Auto |

...

[mstefania]

Vorrei vedere il risultato in 5 colonne



Acquisti Auto Aziende

Idea Regalo Auto Web Agency
Shopping online Assicurazioni Team Building
Moda Finanziamenti
Abbigliamento Accessori




GRAZIEEEEEEEEEE

[mstefania]

così si capisce bene

[mstefania]

posta l'immagine????
ci riprovo

[OcchioCrepato]

eh non si capiva cosa volevi

Prova questo

<%

Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = conn.Execute("SELECT DISTINCT * FROM sottocat, cat WHERE cat.cod_cat=sottocat.cod_cat")

Dim old_catego
old_catego = ""%>

<%
str=""
Do While Not rs.EOF

if rs.Fields("cod_cat") <> old_Catego then
  str=str & "</div>"
  str=str & <div class=""categoria"">" 
  str=str & "

<label class="titolo_categoria">"rs.Fields("categoria") & "</label></p>"
  old_catego = rs.Fields("cod_cat")
End If

  str=str &  rs.Fields("sottocat") & "
"

rs.MoveNext

Loop

str=Mid (str,6) & "</div>"

response.write(str)

%>

nello style

.categoria{
border:1px dotted #000;
float:left;
width:20%;
}
.titolo_categoria{
font-weight:700;
color:#000;
}

[mstefania]

Non funziona

Non c'è modo di stampare le tabelle le celle e le righe anche senza il foglio di stile, tanto il file è a parte....
Ho copiato il tuo codice e mi dava impossibile visualizzare la pagina ho corretto un paio di cose ma il risulto è sempre quello di prima

Grazie lo stesso

[OcchioCrepato]

Probabile che abbia fatto degli errori ma almeno doveva visualizzarti qualcosa.
che errore ti ha dato di preciso?

[mstefania]

Impossibile visualizzare la pagina

ho tolto 2 apici e una & che ti erano sfuggiti

dopo di che nessun errore ma non me li mette in cinque colonne...

ne sto provando tanti ma proprio non vuole funzionare... è anche vero che io sono una capra in asp...

Stefania

[mstefania]

formattando il tutto come faccio ora a farlo diventare come l'immagine che ho mandato prima...


Vi prego aiutatemi sto impazzendo