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