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 
			%>