Saving the Second Thumbnail

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Get total number of uploaded files 
        Dim intFileCount As Integer = CInt(Request.Form("FileCount"))

        Dim I As Integer, SourceFile As HttpPostedFile, ThumbnailFile As HttpPostedFile
        'We iterate through the uploaded files and save them and appropriate data
        For I = 1 To intFileCount
            'Get source image and save it to disk
            SourceFile = Request.Files("SourceFile_" & I)
            Dim strFileName As String = Path.GetFileName(SourceFile.FileName)
            'Check whether file with such name already exists and if so,
            'construct safe filename name (to avoid collision)
            Dim strNewFileName As String = strFileName
            Dim J As Integer = 1
            While File.Exists(Server.MapPath(strGalleryPath & Request.Form("albid") & "\" & strNewFileName))
                strNewFileName = J & "_" & strFileName
                J = J + 1
            End While
            strFileName = strNewFileName
            SourceFile.SaveAs(Server.MapPath(strGalleryPath & Request.Form("albid") & "\" & strFileName))

            'Get first thumbnail 
            If Not Request.Files("Thumbnail1_" & I) Is Nothing Then
                ThumbnailFile = Request.Files("Thumbnail1_" & I)
                ThumbnailFile.SaveAs(Server.MapPath(strGalleryPath & Request.Form("albid") & "\" & "Thumbnails/" & strFileName & ".jpg"))
            End If

          'Get Second thumbnail 
            If Not Request.Files("Thumbnail2_" & I) Is Nothing Then
                ThumbnailFile = Request.Files("Thumbnail2_" & I)
                ThumbnailFile.SaveAs(Server.MapPath(strGalleryPath & Request.Form("albid") & "\" & "Preview/" & strFileName & ".jpg"))
            End If


            'Save description to the database
            'ParameterName.Value = strFileName
            'ParameterWidth.Value = CInt(Request.Form("Width_" & I))
            'ParameterHeight.Value = CInt(Request.Form("Height_" & I))
            'ParameterDescription.Value = Request.Form("Description_" & I)
            'MyCommand.ExecuteNonQuery()

            objAlbum.InsertImagesToAlbum(CInt(Request.Form("albid")), _
                                         CInt(Request.Form("clientid")), _
                                         strFileName, _
                                         CInt(Request.Form("Width_" & I)), _
                                         CInt(Request.Form("Height_" & I)), _
                                         Request.Form("Description_" & I))



        Next


    End Sub