Olá pessoal,
Tenho em minha MasterPage o código abaixo:
Private Sub VerificaPermissao()
Dim pPagina As String
Dim Ds As Data.DataSet
pPagina = Replace(System.IO.Path.GetFileName(HttpContext.Current.Request.CurrentExecutionFilePath), ".aspx", "") & ".aspx"
Ds = Submenu.ConsultarPermissao("A.perfil_codigo = " & Session("sPermissao") & _
" AND C.modulo_arquivo
= '" & pPagina & "' ")
If Not Ds Is Nothing Then
If Ds.Tables(0).Rows.Count = 0 Then
Response.Redirect("AcessoNegado.aspx")
End If
Else
If Ds Is Nothing Then
Response.Redirect("AcessoNegado.aspx")
End If
End If
End Sub
Como faço para chamar essa função no OnLoad das páginas filhas?
Grato,
Ilano.
