Public Class SessionSetVariables
    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 IMG1 As System.Web.UI.HtmlControls.HtmlImage
    Protected WithEvents IMG2 As System.Web.UI.HtmlControls.HtmlImage
    Protected WithEvents Message As System.Web.UI.WebControls.Label
    Protected WithEvents txtName As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtEmail As System.Web.UI.WebControls.TextBox
    Protected WithEvents lblSignIn As System.Web.UI.WebControls.Label
    Protected WithEvents lblEmail As System.Web.UI.WebControls.Label
    Protected WithEvents lblName As System.Web.UI.WebControls.Label
    Protected WithEvents SignIn As System.Web.UI.HtmlControls.HtmlInputButton
    Protected WithEvents ShowSessionVariables 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

        If Not Page.IsPostBack Then
            Response.Cookies("TestCookie").Value = "ok"
            Response.Cookies("TestCookie").Expires = _
            DateTime.Now.AddMinutes(5)
        End If
 
    End Sub

    Private Sub SignIn_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SignIn.ServerClick
        Dim strName As String = txtName.Text
        Dim strEmail As String = txtEmail.Text
        Dim SID As String = Session.SessionID
        Dim MyDate As String = DateTime.Now.ToLongDateString
        Session("username") = strName
        Session("useremail") = strEmail
        Session("SID") = SID
        Session("lastvisit") = MyDate
        Session("UserHostAddress") = Request.UserHostAddress.ToString
        Session("UserAgent") = Request.UserAgent.ToString
        Session("Browser") = Request.Browser.Platform.ToString & _
            Request.Browser.Type.ToString
        Session("UrlReferrer") = Request.UrlReferrer.ToString
        Session("Url") = Request.Url.ToString

        If Request.Cookies("TestCookie") Is Nothing Then
            Session("Cookies") = "Browser does not support cookies."
        Else
            Dim i As Integer
            Dim CookieList As String = ""
            Dim aCookie As HttpCookie
            For i = 0 To Request.Cookies.Count - 1
                aCookie = Request.Cookies(i)
                CookieList &= aCookie.Name & "="
                CookieList &= aCookie.Value & "; "
            Next
            Session("Cookies") = CookieList.ToString
            Response.Cookies("TestCookie").Expires = _
              DateTime.Now.AddDays(-1)
        End If

        Session("HTTP_COOKIE") = Request.ServerVariables("HTTP_COOKIE").ToString
        Session("PATH_TRANSLATED") = Request.ServerVariables("PATH_TRANSLATED").ToString
        Session("REMOTE_ADDR") = Request.ServerVariables("REMOTE_ADDR").ToString
        Session("SERVER_NAME") = Request.ServerVariables("SERVER_NAME").ToString
        Session("REMOTE_HOST") = Request.ServerVariables("REMOTE_HOST").ToString
        Session("REMOTE_PORT") = Request.ServerVariables("REMOTE_PORT").ToString
        Session("AUTH_TYPE") = Request.ServerVariables("AUTH_TYPE").ToString
        Session("AUTH_USER") = Request.ServerVariables("AUTH_USER").ToString
        Session("AUTH_PASSWORD") = Request.ServerVariables("AUTH_PASSWORD").ToString
        Session("QUERY_STRING") = Request.ServerVariables("QUERY_STRING").ToString

        txtName.Text = ""
        txtEmail.Text = ""
        Message.Text = _
        "Your information is saved in the Session object."
    End Sub

    Private Sub ShowSessionVariables_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowSessionVariables.ServerClick
        Response.Redirect("SessionGetVariables.aspx")
    End Sub

End Class