Salve, ho un database con delle tipologie di prodotti, ho il menu che mi estrae dal database
la lista categorie:

Caschi
Guanti
Giacche

ecc... questo il codice

<%
sezione = Request.QueryString("sezione")
categoria = Request.QueryString("cat")
marche = Request.QueryString("marche")
attivo = Request.QueryString("attivo")
home = Request.QueryString("home")

ordine = "categoria"

set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

' in locale
DSNtemp=dsntemp & "DBQ=" & server.mappath("gestione/database.mdb")

conn.Open DSNtemp
sqlstmt = "SELECT * FROM categoria order by " & ordine
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, conn, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 100
If rs.eof then
Exit For
Else

id = rs("id")
categoria = rs("categoria")
%>

<table border=0 class=testo bordercolor="#000000" style="border-collapse: collapse" cellpadding="0" cellspacing="0" height="20">
<tr>
<td>

<li><a href="prodotti.asp?sezione=<%=sezione%>&cat=<%=categoria%>"><%=categoria%></a>

</td>
</tr>
</table>

<%
rs.MoveNext
End If
Next
%>

il problema è che mi mostra la categoria anche se non c'è dentro niente, vorrei che mostrasse la categoria solo se c'è qualcosa nel database relativo a quella categoria.

Ho pensato ad un conteggio dei records, ho trovato lo script ma non saprei integrarlo:

<%

'rilevo il path del database
Dim dbPath
dbPath = Server.MapPath("gestione/Database.mdb")

'connessione al database
Dim cn, rs, sql
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&dbpath

'eseguo la SQL per contare i record
sql = "SELECT COUNT(marche) AS RECORD_COUNT FROM annunci"

Set rs = cn.Execute(sql)

'visualizzo il numero di record della tabella
Response.Write("La tabella contiene "&rs("RECORD_COUNT")&" prodotti")

'chiudo recordset e connessione e libero le risorse
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>

Spero che qualcuno mi risolva l'emigma...

Gab ;)

---

Modificato da klinik il 20 ottobre 2010 14.36 -

Non puoi semplicemente fare un controllo prima di "stampare" la categoria? In questo modo eviti di scrivere html inutilmente.


Lo vedo solo ora... ma perchè quel for x= 1 to 100?
Non sarebbe meglio un while not rs.eof? In questo modo non stampi niente se non c'è niente e stampi solo quello che serve, se c'è qualcosa, ma soprattutto, esci subito se non hai così tante categorie.

Se vogliamo fare le cose per bene, farei il ciclo solo sul tag <li> o eventualmente sul <tr>, ma qui non so comè strutturata la tua pagina.
ciao

cosa volevi dire teo?
ciao

Ho risolto così:


<%
Response.Buffer = true
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
Response.AddHeader "cache-control", "private"
Session.LCID = 1040 '::::::::::::::::::::::::::::::::::::: Datata e ora Italiana


'::::::::::::::::::::::::: Connessione database.mdb


Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")

Set conn = Server.CreateObject("ADODB.Connection")
conn.open Conn_String


sql = "select * from categoria order by Categoria asc"
set rst = Conn.Execute (sql)

Do While Not rst.EOF


Categoria= rst("categoria")
sqlcount = "SELECT count(categoria) FROM annunci where Categoria='" & rst("categoria") & "' "
Set RScounts = Conn.Execute(sqlcount)
rcounts = RScounts(0)

%>


<% If rcounts<>0 then %>

<li><%=rst("categoria")%></a>


<%
Response.Write ("(" & rcounts & ")")
Response.Write "<br>"
%>


<% end if %>


<%
rst.MoveNext
loop
%>

Grazie a tutti ;-)