Private Sub Select_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Select.Click

Dim newCookie As HttpCookie = New HttpCookie("dotnetBooks")

newCookie.Values.Add("Name", TxtBox.Text)

newCookie.Values.Add("Publisher", RadioButtonList1.SelectedItem.Text)

newCookie.Expires = #12/31/2008#

Response.Cookies.Add(newCookie)

Label3.Text = "Cookie Created"

Select.Visible = False

TxtBox.Visible = False

Label1.Visible = False

Label2.Visible = False

RadioButtonList1.Visible = False

End Sub