Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        AlbumDataBind(Request.QueryString("UserId").ToString)

    End Sub
    Protected Sub AlbumDataBind(userid As String)

        Dim con As New SqlConnection
        con.ConnectionString = Web.Configuration.WebConfigurationManager.ConnectionStrings("Express").ConnectionString


        Dim comand As New SqlCommand
        comand.CommandType = Data.CommandType.StoredProcedure
        comand.Connection = con
        comand.CommandText = "[GetAlbumInfoById]"

        comand.Parameters.AddWithValue("UserId", userid)
        Dim ds As New DataSet
        Dim da As New SqlDataAdapter
        da.SelectCommand = comand
        con.Open()
        da.Fill(ds)
        AlbumsDataList.DataSource = ds
        AlbumsDataList.DataBind()
        con.Close()
    End Sub