Non so se ti possa bastare. :master:
Il programma accetta il parametro querystring sthumb. Attualmente, se è valorizzato, stampa l'immagine, altrimenti no.

dumTxt = Convert.ToString(Request.QueryString("sthumb"))

If dumTxt = "" Then
SalvaThumb = False
Else
SalvaThumb = True
End If


il nome del file salvato è fisso:

NomeThumb = PathFile & "Thumb_" & NomeFile

Perciò propongo di usare quel parametro per variare il nome del file. Ad esempio, se ho una immagine di nome prova.jpg e voglio ottenere quattro immagine di risoluzione 100, 200, 300,400 px, con javascript faccio, per esempio:

codice:
function Button1_onclick() 
{
    var img1 = new Image();
    img1.src = "resize2_1.aspx?img=prova.jpg&opx=100&sthumb=100";

    var img2 = new Image();
    img2.src = "resize2_1.aspx?img=prova.jpg&opx=200&sthumb=200";

    var img3 = new Image();
    img3.src = "resize2_1.aspx?img=prova.jpg&opx=300&sthumb=300";

    var img4 = new Image();
    img4.src = "resize2_1.aspx?img=prova.jpg&opx=400&sthumb=400";
    
}
ed otterrò nella directory corrente le quattro immagini
Thumb_100_prova.jpg
Thumb_200_prova.jpg
Thumb_300_prova.jpg
Thumb_400_prova.jpg

il codice da modificare è:
'dumTxt = Convert.ToString(Request.QueryString("sthumb"))
Dim hthumb As String = Convert.ToString(Request.QueryString("sthumb"))


e

'NomeThumb = PathFile & "Thumb_" & NomeFile
NomeThumb = PathFile & "Thumb_" & hthumb & "_" & NomeFile


ATTENZIONE le immagini prodotte non devono essere presenti e la directory deve avere i permessi di scrittura per l'utente asp.net. Perciò metterei, prima di bmp.Save(NomeThumb, ImageFormat.Jpeg), l'istruzione:
If File.Exists(NomeThumb) Then File.Delete(NomeThumb)