Public Class SessionGetVariables
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents lblDT As System.Web.UI.WebControls.Label
    Protected WithEvents SetSessionVariables As System.Web.UI.HtmlControls.HtmlInputButton
    Protected WithEvents Label7 As System.Web.UI.WebControls.Label
    Protected WithEvents Label8 As System.Web.UI.WebControls.Label
    Protected WithEvents Label9 As System.Web.UI.WebControls.Label
    Protected WithEvents Label10 As System.Web.UI.WebControls.Label
    Protected WithEvents Label11 As System.Web.UI.WebControls.Label
    Protected WithEvents Label12 As System.Web.UI.WebControls.Label
    Protected WithEvents Label13 As System.Web.UI.WebControls.Label
    Protected WithEvents Label14 As System.Web.UI.WebControls.Label
    Protected WithEvents Label15 As System.Web.UI.WebControls.Label
    Protected WithEvents Label16 As System.Web.UI.WebControls.Label
    Protected WithEvents Label17 As System.Web.UI.WebControls.Label
    Protected WithEvents Label18 As System.Web.UI.WebControls.Label
    Protected WithEvents Label19 As System.Web.UI.WebControls.Label
    Protected WithEvents Label20 As System.Web.UI.WebControls.Label
    Protected WithEvents Label21 As System.Web.UI.WebControls.Label
    Protected WithEvents Label22 As System.Web.UI.WebControls.Label
    Protected WithEvents Label23 As System.Web.UI.WebControls.Label
    Protected WithEvents Label24 As System.Web.UI.WebControls.Label
    Protected WithEvents Label25 As System.Web.UI.WebControls.Label
    Protected WithEvents Label26 As System.Web.UI.WebControls.Label
    Protected WithEvents Label27 As System.Web.UI.WebControls.Label
    Protected WithEvents Label28 As System.Web.UI.WebControls.Label
    Protected WithEvents Label29 As System.Web.UI.WebControls.Label
    Protected WithEvents Label30 As System.Web.UI.WebControls.Label
    Protected WithEvents Label31 As System.Web.UI.WebControls.Label
    Protected WithEvents Label32 As System.Web.UI.WebControls.Label
    Protected WithEvents Label33 As System.Web.UI.WebControls.Label
    Protected WithEvents Label34 As System.Web.UI.WebControls.Label
    Protected WithEvents Label35 As System.Web.UI.WebControls.Label
    Protected WithEvents Label36 As System.Web.UI.WebControls.Label
    Protected WithEvents Label37 As System.Web.UI.WebControls.Label
    Protected WithEvents Label38 As System.Web.UI.WebControls.Label
    Protected WithEvents Label39 As System.Web.UI.WebControls.Label
    Protected WithEvents Label40 As System.Web.UI.WebControls.Label
    Protected WithEvents Label41 As System.Web.UI.WebControls.Label
    Protected WithEvents Label42 As System.Web.UI.WebControls.Label
    Protected WithEvents Label43 As System.Web.UI.WebControls.Label
    Protected WithEvents Label44 As System.Web.UI.WebControls.Label
    Protected WithEvents Label45 As System.Web.UI.WebControls.Label
    Protected WithEvents Label46 As System.Web.UI.WebControls.Label
    Protected WithEvents Message As System.Web.UI.WebControls.Label
    Protected WithEvents IMG1 As System.Web.UI.HtmlControls.HtmlImage
    Protected WithEvents IMG2 As System.Web.UI.HtmlControls.HtmlImage
    Protected WithEvents DeleteSessionVariables As System.Web.UI.HtmlControls.HtmlInputButton

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here

        Message.Text = _
        "Session ID: " & _
        Session.SessionID & "<br />" & _
        "SID: " & _
        Session("SID")

        Label7.Text = "<B>User name</B>"
        Label9.Text = "<B>User e-mail</B>"
        Label11.Text = "<B>Session ID</B>"
        Label13.Text = "<B>Last Visit</B>"
        Label15.Text = "<B>Users Host Address</B>"
        Label17.Text = "<B>User Agent</B>"
        Label19.Text = "<B>Browser </B>"
        Label21.Text = "<B>URL Referrer</B>"
        Label23.Text = "<B>URL</B>"
        Label25.Text = "<B>Cookies</B>"
        Label27.Text = "<B>HTTP Cookie</B>"
        Label29.Text = "<B>Path Translated</B>"
        Label31.Text = "<B>Server IP Address</B>"
        Label33.Text = "<B>Server Name</B>"
        Label35.Text = "<B>Host</B>"
        Label37.Text = "<B>Port</B>" 
        Label39.Text = "<B>Authentication Type</B>"
        Label41.Text = "<B>User Name</B>"
        Label43.Text = "<B>Password</B>"
        Label45.Text = "<B>QueryString</B>"

        Label8.Text = Session("username")
        Label10.Text = Session("useremail")
        Label12.Text = Session("SID")
        Label14.Text = Session("lastvisit")
        Label16.Text = Session("UserHostAddress")
        Label18.Text = Session("UserAgent")
        Label20.Text = Session("Browser")
        Label22.Text = Session("UrlReferrer")
        Label24.Text = Session("Url")
        Label26.Text = Session("Cookies")
        Label28.Text = Session("HTTP_COOKIE")
        Label30.Text = Session("PATH_TRANSLATED")
        Label32.Text = Session("REMOTE_ADDR")
        Label34.Text = Session("SERVER_NAME")
        Label36.Text = Session("REMOTE_HOST")
        Label38.Text = Session("REMOTE_PORT")
        Label40.Text = Session("AUTH_TYPE")
        Label42.Text = Session("AUTH_USER")
        Label44.Text = Session("AUTH_PASSWORD")
        Label46.Text = Session("QUERY_STRING")

    End Sub
    
    Private Sub SetSessionVariables_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetSessionVariables.ServerClick
        Response.Redirect("SessionSetVariables.aspx")
    End Sub

    Private Sub DeleteSessionVariables_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteSessionVariables.ServerClick
        Session("username") = ""
        Session("useremail") = ""
        Session("SID") = ""
        Session("lastvisit") = ""
        Session("UserHostAddress") = ""
        Session("UserAgent") = ""
        Session("Browser") = ""
        Session("UrlReferrer") = ""
        Session("Url") = ""
        Session("Cookies") = ""
        Session("PATH_TRANSLATED") = ""
        Session("AUTH_TYPE") = ""
        Session("AUTH_USER") = ""
        Session("AUTH_PASSWORD") = ""
        Session("QUERY_STRING") = ""
        Session("REMOTE_ADDR") = ""
        Session("SERVER_NAME") = ""
        Session("REMOTE_HOST") = ""
        Session("REMOTE_PORT") = ""
        Session("HTTP_COOKIE") = ""
        Response.Redirect("SessionGetVariables.aspx")
    End Sub
End Class