Herkezin bildigi gibi çerezler genellikle istemci bilgisayarda kullanici hakkinda bilgi içeren text dosyalaridir. Cookie (çerezler)'ler web sayfamizin belli bir kullaniciya özel bilgilerini tutmamizi saglar. Böylece o kullanici bizim web sayfamiza bir sonraki girisinde onu taniyabilir ve ona özel islemler yapabiliriz. "Response" nesnesinin bir koleksiyonu olan çerezler istemcinin bilgisayarinda küçük text (*.txt)dosyalari halinde saklanir.

• Cookie olustururken ilk önce çerezimize isim veririz, bu örnekte "mycookies" adini verdik.
   
• Daha sonra kaydetmek istedigimiz verileri çerezin içine yazariz, örnegin asagida da görüldügü gibi kullanicinin mail adresi, adi ve soyadini kaydediyoruz. 
   
• Çerezlerin belli bir süre için geçerli olmalarini istiyorsak bunu "mycookies.Expires" özelligine Date(); tipinde bir degisken atayarak belirtiyoruz (veya asagidaki gibi olusturuldugu andan 15 gün sonrasina kadar geçerli olmasini sagliyoruz). Son olarak da "Response.Cookies.Add(mycookies)" diyerek çerezimizi istemcinin bilgisayarina kaydetmis oluyoruz.

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

    End Sub
    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim mycookies As HttpCookie = New HttpCookie("www.okanduzgun.com")
        mycookies("Font") = "Arial"
        ' Koleksiyon nesnesi hazirlayip bu nesneye anahtar-deger seklinde düzenlenmis bilgileri ekleyip
        ' sonra bu koleksiyon nesnesini HttpCookie nesnesinin value özelligine aktaracagiz.
        Dim bilgiler As New System.Collections.Specialized.NameValueCollection
        ' Anahtar - Deger 
        bilgiler.Add("@uyemail", "info@okanduzgun.com")
        bilgiler.Add("@adi", "Okan")
        bilgiler.Add("@soyadi", "Düzgün")
        ' Degerlerimizi ekliyoruz.
        mycookies.Values.Add(bilgiler)
        ' Cookie bilgilerimiz istemci bilgisayarda ne kadar süre ile kalacagini belirliyoruz.
        mycookies.Expires = DateTime.Now.AddDays(15)
        Response.Cookies.Add(mycookies)
        Label1.Text = "Cookie olusturuldu !"
    End Sub
    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        ' Cookie dosyasindan okuma yapmak istedigimizde, cookie dosyamizin var olup olmadigini kontrol ediyoruz.
        If Request.Cookies("www.okanduzgun.com") IsNot Nothing Then

            Dim mycookies As HttpCookie = Request.Cookies("www.okanduzgun.com")
            Label1.Text = "Cookies bulundu !"
            Label2.Text = mycookies.Item("@uyemail")
        Else
            Label1.Text = "Cookie bulunamadi !"
        End If
    End Sub
End Class