select in fpdf con data

[vic53]

nessuno che mi dia un valido aiutino?

a cosa servono queste istruzioni..

y=pdf.GetY(y)
conta = 1
end if
end if
if not rs.eof then
'imposto la nuova coordinata

dato che sono nel ciclo While not rs.eof ?
soprattutto la seconda end if di cui non vedo la if
poi le if inline senza end if non sarebbe meglio usare l'istruzione "select case..."
mi riferisco a blocchi in cui la variabile mesfin vale un numero anche se letterale e poi la fai diventare testo... mesfin da dove lo carichi? puoi usare un vettore di 12 elementi e puntarlo?
esempio

dim mese
mesi="GENNAIO;FEBBRAIO;MARZO;APRILE;MAGGIO;GI§UGNO ;LUGLIO;AGOSTO;SETTEMBRE;OTTOBRE;NOVEMBRE;DICEMBRE "
mese=split(mesi,";"-1,1)

dopo le istruzioni sopra mese(1) contiene "GENNAIO",
mese(2) contiene £FEBBRAIO" e cosi via...

quindi
il blocco sotto diventerebbe semplicemente

mesfin=mese(cInt(mesfin)) ...

in una sola istruzione...

if mesfin = "1" then mesfin = "GENNAIO" end if
if mesfin = "2" then mesfin = "FEBBRAIO" end if
if mesfin = "3" then mesfin = "MARZO" end if
if mesfin = "4" then mesfin = "APRILE" end if
if mesfin = "5" then mesfin = "MAGGIO" end if
if mesfin = "6" then mesfin = "GIUGNO" end if
if mesfin = "7" then mesfin = "LUGLIO" end if
if mesfin = "8" then mesfin = "AGOSTO" end if
if mesfin = "9" then mesfin = "SETTEMBRE" end if
if mesfin = "10" then mesfin = "OTTOBRE" end if
if mesfin = "11" then mesfin = "NOVEMBRE" end if
if mesfin = "12" then mesfin = "DICEMBRE" end if

...

ridisegnamo il codice?

la sera sono al computer fino alla mezzanotte

ciao
ciao