non mi funge la sub

[angelonero]

Come mai non mi retituisce nessun risultato?

Il recordser sta apposto

se richiamo la sub fuori dal cilco mi dice che il tipo non corrisponde
all interno non mi spunta nulla .... help me
....

<%
sub SubArt(PrezzoArt,DispoArt, IDArt)
dim n 
for i= (Art1_first) to (Art1_last)
if i >1 then
IDArt(i)= (Art1.Fields.Item("ID").value)
PrezzoArt(i)= Art1.Fields.Item("PrezzialRivend").value 
DispoArt(i)= Art1.Fields.Item("Disponibilita").value 
SiRiP="si"
end if
response.write  IDArt(i)
next
end sub
%>