Come potrei evitare in un Sub che richiama se stessa di incorrere in un' "eccezione" errore (0x80020009) ?

All'interno della mia sub eseguo una semplice query da cui estraggo un record passando come argomento della sub l'id del record. Poi vorrei richiamare la sub all'interno di se stessa passando come argomento il valore di un altro campo del record precedente , ma appunto va in errore ...... :-(((

Dove sbaglio ?
grazie
Fede

Sub DammiAlbero(categoria)

Set rsCAT = Server.CreateObject("ADODB.Recordset")
sqlCAT = "SELECT * from categoria where categoriaID=" &categoria
rsCAT.Open sqlCAT, myconn


Response.write rsCAT("categoria") & " |"
DammiAlbero rsCAT("scategoria")
End Sub

%>

niete :-((( va ancora in eccezione

Tipo di errore:
(0x80020009)
Eccezione.

fantastico perfetto!!!!
non so come ringraziarti !!!

Fede
*********************************************************************************

?Tu vedi cose e dici;? Perchè??. Io sogno cose che non sono mai esistite e dico: ?Perché no??
-- George Bernard Shaw --

Puoi usare delle variabili globali o delle variabili Session o Application. Con le ultime due però devi stare attento perché se i record sono tanti, rischi di ingolfare il server.

Dunque:
Con la prima soluzione potresti creare una matrice in cui registrare i valori. Se i dati ti servono solo temporaneamente hai già risolto, se invece li vuoi rendere disponibili per più tempo (senza dover ricollegarti al db) puoi salvare la matrice in un file .asp che poi includerai in ogni pagina in cui devi recuperare i dati, oppure in un file .xml.

Per crearti la matrice occore che questa sia definita esternamente alla sub ma che comunque rimanga all'interno dello stesso ciclo di esecuzione.

Qui sotto trovi un esempio fatto in locale per spiegarti l'idea

<code>
&lt;script language="VBScript"&gt;

Redim Matrice(1)
Dim I
Dim J

J=5
I=0

Sub DammiAlbero


If J&lt;10 Then

J=j+1
I=I+1
msgbox "I= " & I
If I&gt;UBound(Matrice) Then ReDim Preserve Matrice(I)
Matrice(I)="pippo" & J

msgbox "UBound(Matrice)= " & UBound(Matrice)
msgbox "Matrice(I)= " & Matrice(I)

DammiAlbero

Else
For I=UBound(Matrice) to 1 step -1
msgbox "Finale:Matrice(" & I &")= " & Matrice(I)
Next
End If

End Sub


DammiAlbero




&lt;/script&gt;
</code>

Cia Cia
hyppos

www.teatrolabaracca.com

<code>
|--------------------------------------|
|<font color=white><b>in giro torte sol ciclos et rotor igni</b></font id=white>|
|--------------------------------------|
</code>