funzione ricorsiva

[iox84]

Salve a tutti,
ho una funzione ricorsiva del tipo:

	function getRandIndex(vettore, elementi)
		indice = cint((rnd() * 10) mod 5)
		if vettore(indice) <> -1 then
			getRandIndex (vettore, elementi)'riga 46
		end if
		getRandIndex = indice
	end function

Che mi sembra corretta (non sono un programmatore ASP), ma mi da il seguente errore:

Errore di compilazione di Microsoft VBScript (0x800A0414)
Impossibile utilizzare parentesi per la chiamata di routine Sub
/zampa/vetrina.asp, line 46, column 32
getRandIndex (vettore, elementi)

Magari e' una banalita' (anzi lo spero)...

[santino83]

è una funzione, e quindi devi assegnare il suo risultato ad una variabile

function getRandIndex(vettore, elementi)
		indice = cint((rnd() * 10) mod 5)
		if vettore(indice) <> -1 then
			indice=getRandIndex (vettore, elementi)'riga 46
		end if
		getRandIndex = indice
	end function

[iox84]

Ho risolto, la variabile elementi mi serviva per indicare il numero massimo di elementi del vettore "vettore", invece di passare il parametro uso ubound(vettore):

	function getRandIndex(vettore)
		indice = cint((rnd() * 10) mod (ubound(vettore) + 1))
		if vettore(indice) <> -1 then
			getRandIndex (vettore)
		end if
		getRandIndex = indice
	end function

indice=getRandIndex (vettore, elementi)'riga 46

Capisco, ma e' una chiamata a funzione, non una assegnazione, devo farlo lo stesso?
Comunque con il codice che ho postato funziona, pero' se avete chiarimenti meglio

[iox84]

indice=getRandIndex (vettore, elementi)'riga 46

Ho testato e funziona, grazie Santino83.
Non capisco perche' con un parametro solo funziona anche senza assegnare il risultato della funzione ad una variabile

[Umanista]

altrimenti prova così

function getRandIndex(vettore, elementi)
		indice = cint((rnd() * 10) mod 5)
		if vettore(indice) <> -1 then
			Call getRandIndex (vettore, elementi)'riga 46
		end if
		getRandIndex = indice
end function

[iox84]

Funzia anche questo, grazie mille a tutti per la disponbilita'