Image refresh file IO problem or cache or something else?

    Protected Sub UploadClick(ByVal sender As Object, ByVal e As System.EventArgs)
        If DdlStudent.SelectedItem.Value <> 0 Then
            'Variabele voor bestandslocatie
            Dim strPath As String = "E:\Websites\ryedb.uploads\images\in\" & Profile.District & "\"
            Dim strUploadedFile, strUploadedFileExtensie, strFile, strFullPath, strFullPathNewSmall, strFullPathNewLarge As String
            Dim canvas As New Canvas()
            Dim graph As New Graphic()
            Dim rect As New XRect()
 
            'Bestandsnaam en extensie van het opgeladen bestand
            strUploadedFile = FileUpload1.PostedFile.FileName
            strUploadedFileExtensie = Right(strUploadedFile, 3)
 
            'District uit Profile halen => nodig om bestand een naam te geven
            Dim strDistrict As String = Profile.District
 
            'Nieuwe bestandsnaam
            strFile = strDistrict & "_in_" & DdlStudent.SelectedItem.Value 'Idin student uit dropdownlijst toevoegen
            strFullPath = strPath & strFile & "." & strUploadedFileExtensie
            strFullPathNewSmall = strPath & strFile & "s.jpg"
            strFullPathNewLarge = strPath & strFile & "l.jpg"
            Try
                If UCase(strUploadedFileExtensie) = "JPG" Or UCase(strUploadedFileExtensie) = "BMP" Or UCase(strUploadedFileExtensie) = "EPS" Or UCase(strUploadedFileExtensie) = "GIF" Or UCase(strUploadedFileExtensie) = "TIF" Then
                    FileUpload1.PostedFile.SaveAs(strFullPath)
 
                    '1) Foto verkleinen naar breedte = 68 en in 96dpi
                    graph.SetFile(strFullPath)
                    rect.String = graph(1).Rectangle
                    canvas.Clear()
                    canvas.Width = 68
 
                    canvas.Height = (68 * rect.Height) / rect.Width
                    canvas.DrawFile(strFullPath, "size=" & canvas.Width & "," & canvas.Height)
                    canvas.SaveAs(strFullPathNewSmall, "Quality=high HRes=96 VRes=96")
 
                    '2) Foto verkleinen naar breedte = 213 en opslaan in 300dpi
                    graph.SetFile(strFullPath)
                    rect.String = graph(1).Rectangle
                    canvas.Clear()
                    canvas.Width = 213
 
                    canvas.Height = (213 * rect.Height) / rect.Width
                    canvas.DrawFile(strFullPath, "size=" & canvas.Width & "," & canvas.Height)
                    canvas.SaveAs(strFullPathNewLarge, "Quality=high HRes=300 VRes=300")
                    File.Delete(strFullPath)    'Delete upgeloade file
 
                    lblResults.Text = "Your file is uploaded.<br/>Due to webbrowser caching it's possible that you don't see your new uploaded picture. After hitting refresh (F5 for Internet Explorer) you should see your new uploaded picture.<br/>"
                    lblError.Text = ""
                Else
                    lblError.Text = "Your file couldn't be uploaded for the following reason: Your file is not a .jpg, .bmp, .eps, .gif or .tif file."
                    lblResults.Text = ""
                End If
            Catch Ex As Exception
                lblError.Text = "Your file couldn't be upload for the following reasen: " & Ex.Message
                lblResults.Text = ""
            Finally
                'Refresh gridview
                GridView1.DataBind()
            End Try
        Else
            lblError.Text = "Please select first a student."
            lblResults.Text = ""
        End If
    End Sub
 
    Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs)
        'Check if file exists
        Dim strFile As String = "E:\Websites\ryedb.uploads\images\" 'Standaard path
        Dim photo As System.Web.UI.WebControls.Image
        If e.Row.RowType = DataControlRowType.DataRow Then
            'Path aanvullen
            strFile = strFile & DataBinder.Eval(e.Row.DataItem, "Foto").ToString
            'Controleren of foto bestaat
            If File.Exists(strFile) Then
                'File exists => niets aanpassen
            Else
                'File doesn't exists => toon "unavailable" foto
                photo = CType(e.Row.FindControl("Foto"), System.Web.UI.WebControls.Image)
                photo.ImageUrl = "http://www.ryedb.net/files/images/unavailable.jpg"
            End If
        End If
    End Sub

Select allOpen in new window

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Response.Cache.SetCacheability(HttpCacheability.NoCache)
    End Sub

Select allOpen in new window