Volete fare un upload e un tumb in automatico dell'imagine quando la uplodate?

io faccio cosi:

Creao una sezione Admin:
Dove faccio il mio Upload dell'immagine e creao in automatico la tumb

codice:
Imports System.IO

    Sub GeneraTumbnail(ByVal path As String, ByVal img As String, ByVal dimensione As Short, ByVal NameTumb As String)
        Dim objImage, objThumbnail As System.Drawing.Image
        Dim strFilename As String
        Dim nomeFile As String
        Dim shtWidth, shtHeight As Short

        strFilename = path & img
        nomeFile = Server.MapPath("\" & NameTumb)
        shtWidth = dimensione
        Try
            objImage = objImage.FromFile(strFilename)
        Catch
            Response.Write("Errore Creazione tumb")
        End Try

        If shtWidth = Nothing Then
            shtWidth = objImage.Width
        ElseIf Request.QueryString("width") < 1 Then
            shtWidth = 100
        Else
            shtWidth = Request.QueryString("width")
        End If
        shtHeight = objImage.Height / (objImage.Width / shtWidth)
        objThumbnail = objImage.GetThumbnailImage(shtWidth, shtHeight, Nothing, System.IntPtr.Zero)
        'Tipo di file generato 
        Response.ContentType = "image/jpeg"
        objThumbnail.Save(nomeFile, Imaging.ImageFormat.Jpeg)
        ImgPreview.ImageUrl = nomeFile

        Label2.Text = "Tumb creata con successo  ^_^  in " & nomeFile & ""

        objImage.Dispose()
        objThumbnail.Dispose()
    End Sub
    Private Sub Button1_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ServerClick
        Dim estensione As String
        Dim MaxByte As Short
        Dim percorso As String
        Dim TumbName As String

        'set i valori
        MaxByte = 1
        estensione = ".jpg"
        percorso = Server.MapPath("\")
        TumbName = "Tumb" & Path.GetFileName(Text1.Value) & estensione

        If Text1.Value = "" Then
            Label1.Text = "Attenzione:Devi inserire il nome del file"
            Return
        End If

        If Not IsNothing(File1.PostedFile) Then
            Dim filepath As String = Path.Combine(percorso, Path.GetFileName(Text1.Value) & estensione)
            Try
                File1.PostedFile.SaveAs(filepath)
                Label1.Text = "File upload con successo ^_^  in " & filepath & ""
                GeneraTumbnail(percorso, Path.GetFileName(Text1.Value) & estensione, MaxByte, TumbName)
            Catch Exc As Exception
                Label1.Text = "Errore nel salvataggio del file  " & filepath & "
" & Exc.ToString()
            End Try
        End If

    End Sub
'manca la connesione al db per fare insert della url immagine e Tumb ..comunque è una cosa semplice

'Nella pagina aspx

Nn faccio altre che Aprire il DB caricare in un datalist con al suo interno ei imagebutton , al quale passo il valore della mia Tumb
e quando ci clicci nn fai altro che fargli aprire un PopUp con indirizzo del URl dell'imagine ...

Se ho capito cosa volevate..

Nn vi conviene avere un immagine fargli la tumb durante la visualizzazione , ma farlo mentre uplodate immagine sul server e nel db

'Questo codice crea un tumb vera e proprie nn ridimensione immagine e baste nei pixel , se lo farete andare vi accorgerete che le dimensioni della tumb è diversa da quella dell'immagine orginale.