Ho due tabelle, una definisce un elenco di sezioni, l'altra un elenco di categorie associate alle sezioni.

Vorrei visualizzare l'elenco delle sezioni, e, per ogni sezione, l'elenco delle categorie associate.

Visualizzo le sezioni così:

codice:
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
sql = "SELECT * FROM Sezioni"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
x_Nome_Sezione = rs("Nome_Sezione")
x_Chiave_Sezione = rs("Chiave_Sezione")
x_Descrizione_Sezione = rs("Descrizione_Sezione")
%>
<table style="width: 100%" cellpadding="2" class="v9">
<tr class="bg">
<td style="width: 20%; height: 25px"><% response.write x_Nome_Sezione %></td>
<td style="width: 80%; height: 25px"><% response.write x_Descrizione_Sezione %></td>
</tr>

</table>
<%
rs.movenext
loop
%>
e le categorie con lo stesso sistema.

Per ottenere che per ogni sezione vengano annidate le categorie associate (in un campo nella tab categorie inserisco il nome della sezione associata) ho provato a fare così:
codice:
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
sql = "SELECT * FROM Sezioni"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
x_Nome_Sezione = rs("Nome_Sezione")
x_Chiave_Sezione = rs("Chiave_Sezione")
x_Descrizione_Sezione = rs("Descrizione_Sezione")
%>
<table style="width: 100%" cellpadding="2" class="v9">
<tr class="bg">
<td style="width: 20%; height: 25px"><% response.write x_Nome_Sezione %></td>
<td style="width: 80%; height: 25px"><% response.write x_Descrizione_Sezione %></td>
<tr>



<%
sql = "SELECT * FROM Categorie WHERE Chiave_Categoria='x_Chiave_Sezione'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

do while not(rs.eof)
x_Nome_Categoria = rs("Nome_Categoria")
x_Chiave_Categoria = rs("Chiave_Categoria")
x_Sezione_Padre = rs("Sezione_Padre")
x_Descrizione_Categoria = rs("Descrizione_Categoria")
%>
<table style="width: 100%" cellpadding="2" class="v9">
<tr class="bg">
<td style="width: 20%; height: 25px"><% response.write x_Nome_Categoria %></td>
<td style="width: 80%; height: 25px"><% response.write x_Descrizione_Categoria %></td>
</tr>
</table>
<%
rs.movenext
loop
%>





</tr>
</table>
<%
rs.movenext 
loop
%>

<%
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
e ottengo il seguente errore:

ADODB.Recordset error '800a0bcd'

Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.

/admin/categorie/1.asp, riga 64
che ho colorato in rosso.
Si capisce quanto sono dilettante... vi chiedo, come risolvo?
Grazie