Passare vettore da funzione

[pietro.s]

Ciao a tutti,
è la prima volta che devo programmare in asp
venendo da php ho qualche difficoltà e blocco sulle cose di base :S

vorrei sapere come tornare un vettore da una funzione:
ecco il mio code

function formatData(a)

Dim arrayTemp(7)

if Request.Form("date"&a) = "" Or Request.Form("commitente"&a) = "" Or 

Request.Form("dalle"&a) = "" Then
arrayTemp(6) = False

Else

arrayTemp(0) = Request.Form("date"&a) arrayTemp(1) = Request.Form("commitente"&a) 
arrayTemp(2) = Request.Form("commessa"&a) arrayTemp(3) = Request.Form("dalle"&a) 
arrayTemp(4) = Request.Form("alle"&a) arrayTemp(5) = arrayTemp(4) - arrayTemp(3) 
arrayTemp(6) = True

End If

formatData = arrayTemp

End function

Dim a
Dim arrayData()
numRow = request.QueryString("vartest")

For a = 1 to numRow
arrayData() = formatData(a)

Response.Write("Data : " & arrayData(0) & " Commitente : " & arrayData(1) & " Commessa : " & arrayData(2) & " Dalle " & arrayData(3) & " Alle " & arrayData(4) & " Ore : " & arrayData(5)) 

Next

Sto cercando ma non trovo niente e questo codice mi da questo errore :

Microsoft VBScript runtime (0x800A0009)
Subscript out of range

Grazie

[Mizushi]

L'errore è nell' assegnazione dei valori nell'array: stampati gli array uno x uno e individua quello sbagliato.

[pietro.s]

Grazie,
Sto cercando da un ora...
e ho capito rivedendo il codice scrivendolo sul forum bisogna a definire il vettore senza() e funziona

Prima

Dim a 
Dim arrayData()
numRow = request.QueryString("vartest")  

For a = 1 to numRow

arrayData() = formatData(a) 
Response.Write("Data : " & arrayData(0) & " Commitente : " & arrayData(1) & " Commessa : " & arrayData(2) & " Dalle " & arrayData(3) & " Alle " & arrayData(4) & " Ore : " & arrayData(5)) Next

e Dopo

Dim a 
Dim arrayData
numRow = request.QueryString("vartest")  

For a = 1 to numRow

arrayData = formatData(a) 
Response.Write("Data : " & arrayData(0) & " Commitente : " & arrayData(1) & " Commessa : " & arrayData(2) & " Dalle " & arrayData(3) & " Alle " & arrayData(4) & " Ore : " & arrayData(5)) Next

GRAZIE

[Mizushi]

Cioè adesso funziona?

[pietro.s]

Si funziona Grazie