Only JPeG format is allowed (FileUpload) in VB

Just want to share my script for allowing only .jpg format in uploading photos using FileUpload control.


Protected Sub DetailsView1_ItemInserted(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewInsertedEventArgs) Handles DetailsView1.ItemInserted
        If e.AffectedRows > 0 Then
            Dim results As DataView = CType(maxEmployeeIDDataSource.Select(DataSourceSelectArguments.Empty), DataView)
            Dim pictureIDJustAdded As Integer = CType(results(0)(0), Integer)
            Dim imageupload As FileUpload = CType(DetailsView1.FindControl("imageupload"), FileUpload)
            If imageupload.HasFile Then
                Dim baseDirectory As String = Server.MapPath("~/uploaded_images/")
                imageupload.SaveAs(baseDirectory & pictureIDJustAdded & ".jpg")
            End If
        End If
        If e.AffectedRows = 1 Then
            Response.Redirect("profile.aspx")
        End If
    End Sub


 Protected Sub DetailsView1_ItemInserting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewInsertEventArgs) Handles DetailsView1.ItemInserting
        Dim cancelInsert As Boolean = False
        Dim imageupload As FileUpload = CType(DetailsView1.FindControl("imageupload"), FileUpload)
        If Not imageupload.HasFile Then
            cancelInsert = True
        Else
            If Not imageupload.FileName.ToUpper().EndsWith(".JPG") Then
                cancelInsert = True             End If
        End If
        If cancelInsert Then
            e.Cancel = True         End If     

    End Sub