Aiuto su problema qualita immagine dopo RESIZE

[santino83]

Allora,

io ho un resize in asp.net che se l'immagine che carico su server è troppo grande rispetto a dimensioni prefissate, questo prende e ridimensiona l'immagine.

il problema che quando io faccio le prove, usando immagine di dimensioni enormi che poi vengono molto rimpicciolite o immagini di dimensioni piccole che poi vengono ingrandite parecchio, funziona TUTTO perfettamente. ovvero il resize avviene correttamente e l'immagine risultante è di buona qualità

invece lo usa il cliente, e che succede: il resize avviene correttamente, ma poi l'immagine viene fuori PUNTINATA, ovvero tipo pizzellata, insomma uno schifo che se volete potete vedere a www.yoursicily.net/villas.asp.

ora come faccio a fare in modo che ciò non avvenga? insomma impostare il resize con una buona qualità? avevo provato ad usare un tutorial in rete ma non sonoriuscito a farlo andare. di seguito vi lascio il codice che uso

vi prego almeno un'idea grazie

<%@ Page language="VB" Debug="true"%> 

<%@ Import Namespace="System.Drawing"%>
<%@ Import Namespace="System.IO"%>
<%@ Import Namespace="System.Drawing.Imaging"%>
<SCRIPT RUNAT="SERVER" language="vb" >
Sub Page_Load()

	Dim width as Integer = Request.QueryString("w")
	Dim height as Integer = Request.QueryString("h")
    Dim nome as String=Request.QueryString("n")
	dim propertiI as String=Request.QueryString("p")
	dim idestate as String=Request.QueryString("i")

	' ridimensiona l''immagine se specificat'
	
	Dim immagine as String = "www.yourtuscany.com/images/properties/" & propertiI & "/" & idestate & "/" & "temp.jpg"

	call ImgRedim(immagine, width, height, nome, propertiI, idestate)

	End Sub

' Funzione di redim'
Public Sub ImgRedim(immagine as String, width as Integer, height as Integer, nome as String, propertiI as String, idestate as String)
	Dim bmp as System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile(immagine), System.Drawing.Bitmap)

		' creo la Thumbnail con i parametri impostati
		Dim miniaturabmp as New System.Drawing.Bitmap(bmp, width, height)
		dim immagine1 as String
immagine1="www.yourtuscany.com/images/properties/" & propertiI & "/" & idestate & "/" & nome & ".jpg"
		' salvo sullo stream di output
		if immagine1.EndsWith(".jpg") Then
		
miniaturabmp.Save(immagine1, ImageFormat.JPEG)

			
	        else
miniaturabmp.Save(immagine1, System.Drawing.Imaging.ImageFormat.Jpeg)

		end if

		' pulizia
		miniaturabmp.Dispose()

	' pulizia finale
	bmp.Dispose()

File.Delete(immagine)
End Sub

</SCRIPT>

[santino83]

nessuno?

[cassano]

se guardi un pò più giu ho messo uan soluzione che io uso.