Problems with file upload control

*****************************ASPX**************************
<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false"
    CodeFile="uploadpics.aspx.vb" Inherits="uploadpics" Title="Untitled Page" %>
 
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder2" runat="Server">
    <div id="divInstructions" style="font-size: small">
        <h3>
            How To Upload Pictures</h3>
        <p>
            Uploading files is pretty simple, once you get the hang of it. Just follow these
            simple steps to get your picture online and in a photo album!</p>
        <ol>
            <li>Click the browse button. You will see a box pop up that shows your computer. Browse
                out to the filel, select it, and click OK.</li><li>Now you can select a Photo Album
                    from the drop down list. Just select the album that makes the most sense to you.
                    You will see some pre-created albums in the list. If one of those suits your needs,
                    then you can use it.</li><li>In the description box, type in your description of the
                        picture. It should be short and concise.</li>
            <li>Now select the keywords that are associated with the file. One list has the names
                of the players in the picture and the other one has a list of games you can choose
                from. For multiple players, hold down the control key ('ctrl') and click the players
                you want. </li>
            <li>You can also type in your own keywords in the box below the lists. Type in the keyword
                and click the green check mark next to the box. We use the key words to search on
                when someone wants to create a custom slide show!</li>
            <li>Once you have that all done, click the green check mark and we take over from there.
                If you decide to cancel your upload and want to clear out all of the information
                you have selected, click the red cancel button.</li></ol>
    </div>
    <asp:FileUpload ID="FileUpload1" runat="server" Width="100%" />
    <table>
        <tr>
            <td>
                Album:
            </td>
            <td colspan="2">
                <asp:DropDownList ID="ddlAlbums" runat="server">
                </asp:DropDownList>
            </td>
        </tr>
        <tr>
            <td valign="top">
                Description:
            </td>
            <td colspan="2">
                <asp:TextBox ID="tbxDescription" runat="server" Width="400px"></asp:TextBox>
            </td>
        </tr>
        <tr>
            <td>
            </td>
            <td style="text-align: center">
                Players
            </td>
            <td style="text-align: center">
                Games
            </td>
        </tr>
        <tr>
            <td valign="top">
                Keywords:
            </td>
            <td>
                <asp:ListBox ID="lbxPlayers" runat="server" Height="200px" Width="200px" SelectionMode="Multiple">
                </asp:ListBox>
            </td>
            <td>
                <asp:ListBox ID="lbxGames" runat="server" Height="200px" Width="200px" SelectionMode="Multiple">
                </asp:ListBox>
            </td>
        </tr>
        <tr>
            <td>
                Custom Keywords:
            </td>
            <td colspan="2">
                <asp:TextBox ID="tbxCustomKW" runat="server" Width="400px"></asp:TextBox>
                <asp:ImageButton ID="btnAddCustomKW" runat="server" ImageUrl="~/images/icons/ok_16.gif" />
            </td>
        </tr>
        <tr>
            <td>
            </td>
            <td colspan="2">
                <asp:UpdatePanel ID="UpdatePanel1" runat="server">
                    <ContentTemplate>
                        <asp:Label ID="lblCustomKW" runat="server" ForeColor="Silver"></asp:Label>
                    </ContentTemplate>
                    <Triggers>
                        <asp:AsyncPostBackTrigger ControlID="btnAddCustomKW" />
                    </Triggers>
                </asp:UpdatePanel>
            </td>
        </tr>
        <tr>
            <td valign="top">
            </td>
            <td>
            </td>
            <td style="text-align: right">
                <asp:ImageButton ID="btnUpload" runat="server" ImageUrl="~/images/icons/ok_32.gif" />
                <asp:ImageButton ID="btnCancel" runat="server" ImageUrl="~/images/icons/cancel_32.gif" />
            </td>
        </tr>
    </table>
</asp:Content>
 
********************Content Page Code Behind**********************
Imports System.IO
Partial Class uploadpics
    Inherits System.Web.UI.Page
    Dim dbF As New dbfunctions
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Dim dsAlbums, dsPlayers, dsGames As Data.DataSet
        dsAlbums = dbF.ReturnDataSetFromStoredProcedure("usp_GetAlbums")
        dsPlayers = dbF.ReturnDataSetFromStoredProcedure("usp_GetPlayerNames")
        dsGames = dbF.ReturnDataSetFromStoredProcedure("usp_GetAllMatches")
 
        With ddlAlbums
            .DataSource = dsAlbums
            .DataTextField = "albumname"
            .DataValueField = "id"
            .DataBind()
        End With
        With lbxPlayers
            .DataTextField = "Name"
            .DataSource = dsPlayers
            .DataBind()
        End With
        With lbxGames
            .DataTextField = "opponent"
            .DataSource = dsGames
            .DataBind()
        End With
 
    End Sub
 
    Protected Sub btnUpload_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnUpload.Click
 
        'Collect the data into variables
        Dim sFileName, sFilePath, sFullPath, sDescription, sKeywords As String
 
        sFileName = CreateFilename(fileUpload1.PostedFile.ToString)
        sFilePath = Server.MapPath(".") & "/pics/"
        sFullPath = sFilePath & sFileName
        sDescription = tbxDescription.Text
        sKeywords = ""
        For Each i As ListItem In lbxPlayers.Items
            sKeywords = sKeywords & i.Text & ";"
        Next
        sKeywords = sKeywords & lblCustomKW.Text
        Dim bApproved As Boolean = False
        Dim sUser As String = Profile.UserName
        Dim dUploadTime As Date = Now()
 
        If Not fileUpload1.PostedFile Is Nothing And fileUpload1.PostedFile.ContentLength > 0 Then
 
            Dim fn As String = System.IO.Path.GetFileName(fileUpload1.PostedFile.FileName)
            Try
                fileUpload1.PostedFile.SaveAs(sFullPath)
                Response.Write("The file has been uploaded.")
            Catch Exc As Exception
                Response.Write("Error: " & Exc.Message)
            End Try
        Else
            Response.Write("Please select a file to upload.")
        End If
 
    End Sub
 
    Protected Function CreateFilename(ByVal s As String) As String
 
        Dim sFileType As String = s.Substring(s.LastIndexOf("."))
        Return Now.Year.ToString & Now.Month.ToString & Now.Day.ToString & Now.Hour.ToString & Now.Minute.ToString & Now.Second.ToString & sFileType
 
    End Function
 
    Protected Sub btnAddCustomKW_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnAddCustomKW.Click
        Dim sNewKW, sOldKW As String
        sNewKW = tbxCustomKW.Text
        sOldKW = lblCustomKW.Text
        If lblCustomKW.Text.Length < 1 Then
            lblCustomKW.Text = sNewKW
        Else
            lblCustomKW.Text = sOldKW & ";" & sNewKW
        End If
        tbxCustomKW.Text = Nothing
    End Sub
End Class

Select allOpen in new window