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
%>

[Lak3d]

cosa deve fare la Sub? che sono i parametri che gli passi?

Art1 è il recordset? cosa sono Art1_first e Art1_last?

[angelonero]

si è il recordset

quelle 2 varibili restituiscono il primo e l'ultimo record per far partire e concludere il cliclo

mentre la sub .. mi serve applicarla di volta in volta sul singolo risultato che ho a video e ne potrei avere 1 come 3 per estrapolare in base al prezzo piu basso o alla maggior disponibilità dove associare un immagine a seconda del risultato

ora l'unica cosa e avere un array(i) cosi da confrontare la stessa varibile per prendere appunto solo il prezzo piu basso.

[Lak3d]

il primo e l'ultimo record? e dove le inizializzi? dentro la sub no di certo, non c'è nulla...boh.

<%
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
%>

Per quanto riguarda questo codice... a parte che manco lo indenti, ancora non si capisce cosa stai facendo... scorri il recordset e per ogni record inserisci nell'array i 3 campi, setti una variabile stringa a sì ( ) e stampi a video l'id...
p.s: sicuro che l'array non sia da ridimensionare ogni volta?

[angelonero]

avevo fatto cosi
per incrementare l'array

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

Cmq la mia intenzione era dare ad ogni variabile il numero che gli assegnava l'array ogni volta che si incrementava appunto per prendere
esempio
PrezzoArt(1) e PrezzoArt(2) e confrontarne il contenuto della variabile per vedere qual era il prezzo piu basso

ora questo passo è successivo non l'ho ancora implementato (come tutto il discorso dell immmagine ecc ecc )
e lo faro una volta che sono riuscito a chiamare ste variabili con nome diverso

tutto il resto l'ho inizializzato prima tranqui che funge il recordset

[angelonero]

<%
sub SubArt(PrezzoArt)
dim n 
for i= (Art1_first) to (Art1_last)
if i >1 then
i=1

PrezzoArt(i)= Art1("PrezzialRivend")
i=+1
end if
response.write  PrezzoArt(i)
next
end sub
%>

vabbe se ho scritto qui era per chiedere aiuto...

[angelonero]

ho risolto facendo la comparazione con altri 2 recordset

tante volte e proprio meglio nn complicarsi la vita..