ma è possibile aprire dei recodset, ed utilizzarli all'interno di altre funzioni?

[lnessuno]

salve... avrei bisogno di avere delle funzioni che aprono dei recordset, e all'interno di ogni recorset dovrei aprire un'altra funzione che a sua volta apre altri recorset: un casino.

il codice che uso ora è questo:

<table>
<%
static sub mostrasedi()
	response.write "<table id='sede" & rstiposede("idtiposede") & "' style='display:none; margin-left:30px;'>"
    SQLsede = "SELECT * FROM T_Sedi WHERE idtiposede = " & rstiposede("idtiposede")
	set rssede = conn.execute(SQLsede)
	while not rssede.eof
		response.write "<tr><td>"
			%>')"><%=rssede("nome")%><%
			mostraservizi()
		response.write "</td></tr>"
	rssede.movenext
	wend
	set rssede = nothing
	response.write "</table>"
end sub

static sub mostraservizi()
	response.write "<table id='servizio" & rssede("idsede") & "' style='display:none; margin-left:30px;'>"
    SQLservizio = "SELECT * FROM T_Servizi WHERE idsede = " & rssede("idsede")
	set rsservizio = conn.execute(SQLservizio)
	while not rsservizio.eof
		response.write "<tr><td>"
			%>')"><%=rsservizio("nomeservizio")%><%
			'mostraoperatori()
		response.write "</td></tr>"
	rsservizio.movenext
	wend
	set rsservizio = nothing
	response.write "</table>"
end sub

SQLrstiposede = "SELECT * FROM T_TipoSede ORDER BY idtiposede"
set rstiposede = conn.execute(SQLrstiposede)
while not rstiposede.eof
	response.write "<tr><td>"
	    %>');"><%=rstiposede("tiposede")%><%
		mostrasedi()
	response.write "</td></tr>"
rstiposede.movenext
wend
set rstiposede = nothing
%>
</table>

però ho un errore:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rssede'

/afpforum/csac/pc/default.asp, line 41

è possibile creare una struttura del genere? :master: