Miscellany

<%@ Control Language="VB" %>
<script runat="server">

    sub Page_Load(sender as object, E as EventArgs)
         Dim AccLvl as Integer
         AccLvl = Session("AccessLvl")
         If AccLvl = 2 then
            ImgAdd.Visible = True
         Elseif AccLvl = 3 then
            ImgAdd.Visible = true
            ImgEdit.visible = true
            ImgDelete.visible = true
         End if
    End Sub
    
    Sub ImgAdd_Click(sender As Object, e As ImageClickEventArgs)
    Response.Redirect("/submitnews.aspx")
    End Sub
    
    Sub ImgEdit_Click(sender As Object, e As ImageClickEventArgs)
    Response.Redirect("/updatenews.aspx")
    End Sub
    
    Sub ImgDelete_Click(sender As Object, e As ImageClickEventArgs)
    Response.Redirect("/deletenews.aspx")
    End Sub

</script>
<!-- Insert content here -->
<asp:Panel id="Panel1" runat="server" Width="200px" Height="14px">
    <asp:ImageButton id="ImgAdd" onclick="ImgAdd_click" runat="server" ImageUrl="/images/add.jpg" Visible="False"></asp:ImageButton>
    <asp:ImageButton id="ImgEdit" onclick="ImgEdit_click" runat="server" ImageUrl="/images/edit.gif" Visible="False"></asp:ImageButton>
    <asp:ImageButton id="ImgDelete" onclick="ImgDelete_click" runat="server" ImageUrl="/images/trash.gif" Visible="False"></asp:ImageButton>
</asp:Panel>