<script language="VB" runat="server">
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Clear()
Dim cookieCols As New HttpCookieCollection
cookieCols = Request.Cookies
Dim str As String
For Each str In cookieCols
ListBox1.Items.Add("Cookie: " + str)
ListBox1.Items.Add("Value:" & _
Request.Cookies(str).Value)
Next
End Sub
</script>
<HTML>
<body>
<form id="Form1" method="post" runat="server">
<asp:ListBox id="ListBox1" runat="server" Width="341px" Height="169px"></asp:ListBox>
</form>
</body>
</HTML>