Aiuto funzione ricorsiva

[maxolino]

Ciao a tutti,
ho il seguente problema....

Anzi.. se potete provare pure voi in locale mi date qualche info in più


Con questo script:

<% Server.ScriptTimeout = 15
a = 0
Sub cane()
Response.Write(a&"pippo
")
response.Flush()
Call gatto()
End Sub
Sub gatto()
Response.Write(a&"pippo
")
a = a+1
response.Flush()
Call cane()
End Sub
Call cane() %>

Arrivo fino a: 221pippo

ovvero il comando viene ripetuto 222 volte prima di bloccarsi.
l'errore che ottengo è:

Errore di run-time di Microsoft VBScript error '800a0007'
Memoria esaurita: 'Flush'

Lo stesso script, su un server di aruba, arriva a 369:
(http://www.biciclettepieghevoli.com/a.asp)

Su un server di seeweb (http://vacanzeinriviera.it/a.asp) dalle 128 alle 133

Stesso errore...

Se io avessi la necessità di uno script del genere.... che faccia però 400 passaggi..... e poi "esca" tramite un semplice if...

If a > 400 Then...

Come posso fare?
C'è un modo per aumentare la capacità di.... di non so cosa... dello stack?



Grazie a chiunque mi sappia aiutare!

[pietro09]

:master: L'unico modo che ho trovato è questo

<% 
Server.ScriptTimeout = 15
a = 0
Sub cane()
	for i = 1 to 1000
	    Response.Write(a &"pippo
")
	    a = a + 1
	    response.Flush()
	    Call gatto()
	next
End Sub

Sub gatto()
	Response.Write(a & "pippo
")
	a = a + 1
	response.Flush()
	'Call cane()
End Sub

Call cane() 

%>

[maxolino]

Cavolo ma sei un genio!!!!!!

In questo modo la funzione non è più ricorsiva e funziona alla grande!!!

Come cavolo ho fatto a non pensarci prima!!!


Grazie mille!!!!!!