Questo è il codice completo della pagina "incriminata"
codice:
Imports System.Data
Imports System.Data.OleDb
Imports System.Web.UI.WebControls
Public Class Ok
Inherits System.Web.UI.Page
#Region " Codice generato da Progettazione Web Form "
'Chiamata richiesta da Progettazione Web Form.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents HyperLink6 As System.Web.UI.WebControls.HyperLink
Protected WithEvents HyperLink5 As System.Web.UI.WebControls.HyperLink
Protected WithEvents HyperLink4 As System.Web.UI.WebControls.HyperLink
Protected WithEvents HyperLink3 As System.Web.UI.WebControls.HyperLink
Protected WithEvents HyperLink2 As System.Web.UI.WebControls.HyperLink
Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink
Protected WithEvents btnVia As System.Web.UI.WebControls.Button
Protected WithEvents HyperLink7 As System.Web.UI.WebControls.HyperLink
Protected WithEvents HyperLink12 As System.Web.UI.WebControls.HyperLink
Protected WithEvents HyperLink8 As System.Web.UI.WebControls.HyperLink
Protected WithEvents HyperLink9 As System.Web.UI.WebControls.HyperLink
Protected WithEvents HyperLink10 As System.Web.UI.WebControls.HyperLink
Protected WithEvents HyperLink11 As System.Web.UI.WebControls.HyperLink
Protected WithEvents HyperLink13 As System.Web.UI.WebControls.HyperLink
Protected WithEvents HyperLink14 As System.Web.UI.WebControls.HyperLink
Protected WithEvents btnBye As System.Web.UI.WebControls.Button
'NOTA: la seguente dichiarazione è richiesta da Progettazione Web Form.
'Non spostarla o rimuoverla.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: questa chiamata al metodo è richiesta da Progettazione Web Form.
'Non modificarla nell'editor del codice.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Session("Vialibera") = 1 Then
If Not IsPostBack Then
Label2.Text = "Bravo" & " " & Session("Nome") & " " & ", i dati sono stati inseriti correttamente! "
If Session("MyType") = "Usr" Then
HyperLink1.Visible = False
HyperLink2.Visible = False
HyperLink3.Visible = False
HyperLink4.Visible = False
HyperLink5.Visible = False
HyperLink6.Visible = False
HyperLink7.Visible = True
HyperLink8.Visible = True
HyperLink9.Visible = True
HyperLink10.Visible = True
HyperLink11.Visible = True
HyperLink12.Visible = False
HyperLink13.Visible = True
HyperLink14.Visible = True
Else
If Session("MyType") = "Usr" Then
HyperLink1.Visible = True
HyperLink2.Visible = True
HyperLink3.Visible = True
HyperLink4.Visible = True
HyperLink5.Visible = True
HyperLink6.Visible = True
HyperLink7.Visible = True
HyperLink8.Visible = True
HyperLink9.Visible = True
HyperLink10.Visible = True
HyperLink11.Visible = True
HyperLink12.Visible = True
HyperLink13.Visible = True
HyperLink14.Visible = True
End If
End If
Else
Response.Redirect("Login.aspx")
End If
End If
End Sub
Private Sub btnVia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVia.Click
Session.Abandon()
Response.Redirect("Benvenuto.aspx")
End Sub
Private Sub btnBye_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBye.Click
Session.Abandon()
Page.RegisterStartupScript("s", "<script>self.close();</script>")
End Sub
End Class