Questo codice è di una pagina a se stante, viene chiamata 2 volte la routine per ridimensionare l'immagine. La prima ridimensiona il file "1.jpg" presente nella cartella "antennistica_centralizzata" con dimensioni massime 600x400, la seconda ridimensiona il file "1.jpg" presente nella cartella "antennistica_centralizzata/preview" con dimensioni massime 90x90. Niente di speciale...

Funziona perfettamente pergiunta senza i vari CDBL e CLNG, ma con INT()!!!!
--------------------
<% option explicit

sub ImageResize(maxlarghezza,maxaltezza,nome,indirizzo )
dim Image, larghezza, altezza, rapporto, rapporto1, rapporto2, nuovalarghezza, nuovaaltezza
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage server.MapPath("/images/foto/" & indirizzo & "/" & nome & ".jpg")
larghezza = Image.MaxX
altezza = Image.MaxY
rapporto1 = larghezza / maxlarghezza
rapporto2 = altezza / maxaltezza
if rapporto1 > rapporto2 then
rapporto = rapporto1
else
rapporto = rapporto2
end if
nuovalarghezza = int(larghezza / rapporto)
nuovaaltezza = int(altezza / rapporto)
Image.ResizeR nuovalarghezza,nuovaaltezza
Image.FileName = server.MapPath("/images/foto/" & indirizzo & "/" & nome & ".jpg")
if Image.SaveImage then
Response.Write("[img][/img]")
else
Response.Write("<h2>qualcosa è andato storto</h2>")
end if
Set Image = nothing
end sub

ImageResize 600,400,1,"antennistica_centralizzata"
ImageResize 90,90,1,"antennistica_centralizzata/preview"
------------------------------------------

Copiata para para la routine, con le stesse righe di chiamata, all'interno di una pagina asp più grande va in overflow. E se per overflow non intendesse una variabile con input troppo grande, ma magari semplicemente mando in overflow la memoria di 4 mb max per fare i calcoli a pagina??? Credo sia possibile...

In questo caso dovrei alzare il buffer, ma come si fa??