Protected Sub btnUpload_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnUpload.Click
    If fileUpload1.FileName = "" Then
        Response.Write("<script>window.alert('No file selected.');</script>")
    Else
        Try
            Dim filename As String = Path.GetFileName(fileUpload1.PostedFile.FileName)
            Dim extension As String = Path.GetExtension(filename)
            Dim apptype As String = GlobalVariables.GetContent(extension)
            Dim str As Stream = fileUpload1.PostedFile.InputStream
            Dim datasize As Long = FileLen(fileUpload1.PostedFile.FileName)
            Dim br As New BinaryReader(str)
            Dim size As [Byte]() = br.ReadBytes(CInt(str.Length))
            Using con As New SqlConnection(ConfigurationManager.ConnectionStrings("dPMTXTRACKConnectionString").ConnectionString)
                Using cmd As New SqlCommand("sp_UploadNewAttachment", con)
                    cmd.CommandType = CommandType.StoredProcedure
                    cmd.Parameters.AddWithValue("@issueid", Request.QueryString("ID"))
                    cmd.Parameters.AddWithValue("@uid", Session("UserId"))
                    cmd.Parameters.AddWithValue("@name", filename)
                    cmd.Parameters.AddWithValue("@type", apptype)
                    cmd.Parameters.AddWithValue("@data", size)
                    cmd.Parameters.AddWithValue("@size", datasize)
                    cmd.Parameters.AddWithValue("@desc", " ")
                    cmd.Parameters("@issueid").Direction = ParameterDirection.Input
                    cmd.Parameters("@uid").Direction = ParameterDirection.Input
                    cmd.Parameters("@name").Direction = ParameterDirection.Input
                    cmd.Parameters("@type").Direction = ParameterDirection.Input
                    cmd.Parameters("@data").Direction = ParameterDirection.Input
                    cmd.Parameters("@size").Direction = ParameterDirection.Input
                    cmd.Parameters("@desc").Direction = ParameterDirection.Input
                    cmd.Connection = con
                    con.Open()
                    cmd.ExecuteNonQuery()
                    con.Close()
                End Using
            End Using
            lblAttach.Text = "Attachment has been added and will show up in the list after you refresh the page."
        Catch ex As Exception
            Response.Write("<script>window.alert('" + ex.Message + "');</script>")
        End Try
    End If
End Sub