Public Function GetImageAlbumsByProfile() As Data.DataTable
Dim FotoTabelAdapter As New dsFotoTableAdapters.stp_SelectAllImageAlbumsTableAdapter
If User.IsInRole("Venner") Then Return FotoTabelAdapter.GetAllImageAlbums Else Return FotoTabelAdapter.GetAllPublicImageAlbums End If
End Function
Public Function GetImagesByAlbumID(ByVal AlbumID As Integer) As Data.DataTable Dim FotoGalleryAdapter As New dsFotoTableAdapters.tbl_ImageGalleryImagesTableAdapter
If User.IsInRole("Venner") Then Return FotoGalleryAdapter.GetImagesByAlbum(AlbumID) Else Return FotoGalleryAdapter.GetImagesByAlbum(1) End If End Function
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then Panel1.Visible = False pnRedigerSiden.Visible = False End If If User.IsInRole("Administrator") Then Panel1.Visible = True Else WebPartManager1.DisplayMode = WebPartManager.BrowseDisplayMode End If
Problemet er vist at user objektet arver fra Page objektet, og det kan man ikke benytte i sine klasser. Så jeg bliver når til at oveføre parametere.
tak for hjælper.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.