Session Cookie ASP.Net

<%@ Page Language=VB Debug=true %>

Sub SubmitBtnWrite_Click(Sender As Object, E As EventArgs)
        Response.Cookies("TestCookie1").Expires = "5/1/2010"
        Response.Cookies("TestCookie1").Value = _
            "The cookie stuff."
        Response.Cookies("TestCookie2").Expires = "5/1/2010"
        Response.Cookies("TestCookie2").Value = _
            "More cookie stuff."
End Sub
Sub SubmitBtnRead_Click(Sender As Object, E As EventArgs)
    Dim I as integer
    For I = 0 to Request.Cookies.Count - 1
        lblMessage1.Text = lblMessage1.Text  _
            & Request.Cookies.Item(I).Name & ": " _
            & Request.Cookies.Item(I).Value & "
"
    Next
End Sub



Cookies Sample Page




    id="lblMessage1"
    runat="Server"
    Font-Bold="True"
/>



    id="butOK1"
    runat="server"
    text="Write Cookies to Browser"
    Type="Submit"
    OnClick="SubmitBtnWrite_Click" 
/>
    id="butOK2"
    runat="server"
    text="Read Cookies from Browser"
    Type="Submit"
    OnClick="SubmitBtnRead_Click"
/>