Problema paginazione

[mstefania]

<%

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 = ""%>
<table width="152" border="0" cellpadding="5" cellspacing="0" class="celle">
<%
Do While Not rs.EOF

if rs.Fields("cod_cat") <> old_Catego then
Response.Write "<tr><td height=24 align=center class=titoli>" & rs.Fields("categoria") & "</td></tr>"
old_catego = rs.Fields("cod_cat")
End If

Response.Write "<tr><td valign=top class=top>" & rs.Fields("sottocat") & "
"

rs.MoveNext
Response.Write"</td></tr>"
Loop
%>

[OcchioCrepato]

Mi sono creato le due tabelle e ho fatto girare il codice qui sotto e funziona mi crea quello che vedi nell'immagine

copialo così come l'ho scritto

if not rs.eof then

 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,7) & "</div>"

else
 str="nessun elemento trovato"
end if
rs.close


response.write str

[mstefania]

ma mi da errore:

in questa riga (la prima) if not rs.eof then

Errore di run-time di Microsoft VBScript error '800a01a8'

Necessario oggetto: ''

/prova/index.asp, line 16

eppure ho copiato e incollato... uffa

[mstefania]

un pezzo di codice
ecco perchè mi dava errore

ora ho aggiustato il tutto
ma me lo fa vedere come prima!!! Sarà il mio iis????

[OcchioCrepato]

Hai messo anche il codice nel file css

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

[mstefania]

ecco cosa vedo

[OcchioCrepato]

bisogna giocare un po con i css per aggiustare la visualizzazione

.categoria{
border:1px dotted #000;
float:left;
width:20%;
margin: 0 2px;
min-height: 100px;
height: auto !important;
height: 100px;
}

se non funziona prova a chiedere nel forum apposito

[mstefania]

non so come ringraziarti, mi hai veramente evitato di impazzire!!!
Se posso esserti d'aiuto in qualcosa non esitare a chiedere.

Stefania