disporre sotto categorie su 3 colonne

**tatiana_s** · 08-04-2010, 11:21

ciao a tutti,
dal sito, recupero le sotto e sottosotto categorie, stampandole a video nella colonna centrale.

Io vorrei che i dati stampati mi vengano posizionati su 3 colonne, mi volete dare una mano???
grazie 1000

**ale_1976** · 08-04-2010, 11:55

Ciao tatiana,

di dico la teoria...poi la applichi tu al tuo codice..o se poi hai problemi vediamo:

per mettere i dati su diverse colonne, devi agire nel codice html, impostando le aperture e chiusure di riga (il tag tr) nei modi giusti.

Nel tuo caso, visto che vuoi suddividere in tre colonne, non devi far altro che mettere una variabile contatore, che quando raggiunge il valore impostato (nel tuo caso 3), chiuderà la riga ed andrà a capo.

quindi in un ciclo tipico:

Codice PHP:


<table>

<%

metti la tua SQL



cont=0

while not rs.eof then

con=cont+1

%>

<%if cont=1 then 'quando il contatore è a 1 metti l'apertura della riga%>

<tr>

<%end if%>

<td>Tuo contenuto...</td>

<%if cont=3 then ' se il contatore ha raggiunto il numero di colonne impostato, chiude la riga%>

</tr>

<%end if%>

<%

'infine controllo il contatore, e se è arrivato a 3 lo azzero, in modo che riparta tutto

if cont=3 then cont=0



rs.movenext

wend

%>

<%

'dopo aver fatto il ciclo, se il contatore è sotto al numero massimo, completo la riga mettendo le celle che mancano e poi chiudo

if cont<3 then

for a=cont to 3

%>

<td></td>

<%

next

'e chiudo questa riga

%>

</tr>

<%

end if



%>

</table>

fai una prova ad applicare il tuo codice qui...poi eventualmente dicci...

**tatiana_s** · 08-04-2010, 13:30

si, grazie, ora provo a vedere cosa esce fuori.
cia ggiorniamo dopo

**tatiana_s** · 08-04-2010, 13:58

Ok, ho inserito ciò che mi hai scritto...
mi appare questo errore:
Microsoft VBScript compilation error '800a0400'

Expected statement

/include/inc_sottocat.asp, line 63

while not rs.eof then
-----------------^

alla riga 63 c'è:

codice:

cont=0
while not rs.eof then 
con=cont+1

**Roby_72** · 08-04-2010, 14:37

Il THEN non ci va lì...

Roby

**tatiana_s** · 08-04-2010, 14:38

Allora ci ho provato, penso di aver sbagliato di sicuro...
puoi darci un'occhiata.
Grazie

codice:

     <%

	SQLCat = " SELECT ID, SCategoria FROM SCategorie ORDER by Scategoria asc "
	Set RScat = Conn.Execute(SQLCat)	
	If Not RSCat.EOF Then
		SCatArr = RScat.GetRows

		If QSSCategoria <> "" Then
			SQLCat = " SELECT ID, Categoria FROM Categorie WHERE SCategoria = " & QSSCategoria
			Set RSCat = Conn.Execute(SQLCat)
			If Not RSCat.EOF Then 
				CatArr = RSCat.GetRows
				BoolCategorie = True
			Else
				BoolCategorie = False
			End If
			RSCat.Close
		End If
		For Icat = 0 to UBound(SCatArr, 2)

sqlcont = " SELECT COUNT(*) AS TotaleRecord FROM Prodotti WHERE cancellato = false and sCategoria = "&sCatArr(0,ICat)
Set rscont = Conn.Execute(sqlcont)
Rectot = (rscont("TotaleRecord"))
rscont.Close
Set rscont= Nothing

cont=0
while not rs.EOF 
con=cont+1
%> 
            <%if cont=1 & CStr(SCatArr(0,ICat)) = QSSCategoria  then%>
            <%else%>
            <%end if%>
			<tr>
<td> 
            <%
			If CStr(SCatArr(0,ICat)) = QSSCategoria Then
				If boolCategorie Then
					For K = 0 To UBound(CatArr,2)
%>
            <% 
sqlcontsc = " SELECT COUNT(*) AS TotaleRecord FROM Prodotti WHERE cancellato = false and Categoria = "&CatArr(0,k)
Set rscontsc= Conn.Execute(sqlcontsc)
Rectotsc = (rscontsc("TotaleRecord"))
rscontsc.Close
Set rscontsc = Nothing
%>

            <%if CStr(CatArr(0,k)) = QSCategoria then%>
            <%if SCategoria <> "" then%>
 ▪<a href="?scat=<%=SCatArr(0,ICat)%>&amp;cat=<%=CatArr(0,k)%>"><%=CatArr(1,k)%> 
            ( 
            <%Response.Write rectotsc%>
            )
            <%end if%>
            <%if SCategoria = "" then%>
            ►<%=CatArr(1,k)%>( 
            <%Response.Write rectotsc%>
            ) </a> 
            <%end if%>
            <%
			SQLCat = " SELECT * FROM S_Categorie WHERE Categoria = " & CatArr(0,k)
			Set RSCat = Conn.Execute(SQLCat)
			While Not RSCat.EOF			
			%>
            <%
sqlcontsc2 = " SELECT COUNT(*) AS TotaleRecord FROM Prodotti WHERE cancellato = false and S_Categoria = "&RSCat("ID")
Set rscontsc2= Conn.Execute(sqlcontsc2)
Rectotsc2 = (rscontsc2("TotaleRecord"))
rscontsc2.Close
Set rscontsc2 = Nothing
%>
            <%if StrComp(SCategoria, RSCat("ID")) <> 0 then%>
            ▪"><%=RSCat("S_Categoria")%> 
            (<%=Rectotsc2%>) 
            <%end if%>
            <%if StrComp(SCategoria, RSCat("ID")) = 0 then%>
            ►<%=RSCat("S_Categoria")%> (<%=Rectotsc2%>) 
            <%end if%>
            

            <%
RSCat.MoveNext
Wend
RSCat.close

%>
            <%else%>
            <%if SCategoria = "" then%>
            ▪<a href="?scat=<%=SCatArr(0,ICat)%>&amp;cat=<%=CatArr(0,k)%>"><%=CatArr(1,k)%> 
            (
            <%Response.Write rectotsc%>
            )</a> 
            <%end if%>
            <%if SCategoria <> "" then%>
            

            ▪<a href="?scat=<%=SCatArr(0,ICat)%>&amp;cat=<%=CatArr(0,k)%>"><%=CatArr(1,k)%> 
            ( 
            <%Response.Write rectotsc%>
            )</a> 
            <%end if%>
            <%end if%>
            

            <%
					Next
			End If
	Else
%>
            <%=NoCategoria%> 
            <%
	End If
%>
  </td>      
<%if cont=3 then ' se il contatore ha raggiunto il numero di colonne impostato, chiude la riga%>
</tr>
<%end if%>
<%
'infine controllo il contatore, e se è arrivato a 3 lo azzero, in modo che riparta tutto
if cont=3 then cont=0

rs.movenext
wend
%>
<%
'dopo aver fatto il ciclo, se il contatore è sotto al numero massimo, completo la riga mettendo le celle che mancano e poi chiudo
if cont<3 then
for a=cont to 3
%>
<td></td>
<%
next
'e chiudo questa riga
%>
</tr>
<%
end if

%>
</table>
    <td width="10" height="100%"> 
      <table width="1" border="0" cellspacing="0" cellpadding="0" height="100%" bgcolor="#F06600" align="right">
        <tr> 
          <td> 
            <div align="right"></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td colspan="3"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="1">
        <tr> 
          <td bgcolor="#FF6600">[img]Immagini/trasparente.gif[/img]</td>
        </tr>
      </table>
    </td>
  </tr>
</table>

**Roby_72** · 08-04-2010, 14:43

Ti ringrazio della fiducia ma se non so l'errore non ho l'inteporrete ASP negli occhi...

Roby

**tatiana_s** · 08-04-2010, 15:07

Ah scusa, nn avevo letto le tue risposte (xchè nn ricevo le notifiche delle risposte???) x quella di ale, l'ho ricevuta! bho...

allora l'errore è

Microsoft VBScript compilation error '800a03ea'

Syntax error

/include/inc_db_stat.asp, line 7

Sub openCN
^

ma si riferisce ad un'altra pagina,
spesso mi esce questo errore, anche in altre situazioni, ma si genera per un errore che nn vedo...( lo so che nn hai capito cosa intendo, solo che nn so spiegarmi bene a riguardo)

Allora, si crea qualche "problema" nella pagina in questione, di solito è riferito ad un end if e poi esce questo errore....

**ale_1976** · 08-04-2010, 15:55

modifica anche la riga

con=cont+1...che sarebbe cont=cont+1...altro errore di svista come il "then"...

**tatiana_s** · 08-04-2010, 16:06

Mi esce questo errore:

Microsoft VBScript compilation error '800a041f'

Unexpected 'Next'

/include/inc_sottocat.asp, line 138

Next
^

Discussione: disporre sotto categorie su 3 colonne

Strumenti discussione

Ricerca discussione

Visualizza

disporre sotto categorie su 3 colonne

Permessi di invio