Salve ragazzi,
ho creato una tabella nel mio db che memorizza le categorie e le sottocategorie dei prodotti, in pratica per identificare le sottocategorie ho creato un campo (sottocatv) in cui inserisco il valore dell'id della categoria a cui è riferito. Ho scritto poi lo script sotto riportato per leggere le categorie ed elencare subito, sotto di esse, le sottocategorie. Purtroppo però viene eseguito ma non vengono visualizzati i valori della tabella! Dove erro?!
![]()
![]()
codice:<% SQL = "SELECT * FROM categoria WHERE sottocatv=0" Set categele=Conn.Execute(SQL) while not categele.eof and categele.bof<>true then response.write "<table width=""500"" height=""18"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" bgcolor=""#DBEDF2"">" response.write "<tr>" response.write "<td width=""5""></td>" response.write "<td class=""link4"">" & categ & "</td>" response.write "</tr>" response.write "</table>" if categele.eof="" then %> <script> alert ("Non sono presenti Categorie!") location.href = "pannello.asp?user=<%=request("user")%>&pwd=<%=request("pwd")%>&sid=<%=request("sid")%>" </script> <% categele.close conn.close Set categele=Nothing Set conn=Nothing end if sottocatele=categele("id") if sottocatele>0 then SQLL = "SELECT * FROM categoria WHERE sottocatv=" & sottocatele & Set sottocategele=Conn.Execute(SQLL) response.write "<table width=""50"" height=""5"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" response.write "<tr>" response.write "<td></td>" response.write "</tr>" response.write "</table>" response.write "<table width=""500"" height=""18"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" bgcolor=""EFEFEF"">" response.write "<tr>" response.write "<td width=""20""></td>" response.write "<td class=""link4"">" & categ & "</td>" response.write "</tr>" response.write "</table>" response.write "<table width=""50"" height=""5"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" response.write "<tr>" response.write "<td></td>" response.write "</tr>" response.write "</table>" else response.write "<table width=""50"" height=""5"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" response.write "<tr>" response.write "<td></td>" response.write "</tr>" response.write "</table>" end if categele.movenext() Wend categele.close sottocategele.close conn.close Set categele=Nothing Set sottocategele=Nothing Set conn=Nothing %>


Rispondi quotando
