şeklinde hata mesajı alıyorsanız doğru yerdesiniz.

64bit sistemde accessden veri okumaya çalıştığımızda böyle bir hata mesajı alırız. Bunun nedeni Microsoft.Jet.Oledb.4.0 sınıfının 32bit bir sınıf olmasıdır.

Çözüm 1:

64bit sınıf olan Microsoft.ACE.OLEDB.12.0 üzerinden veritabanına bağlantısını sağlayabilirsiniz. Ancak bu sınıfı kullanabilmek için bilgisayarda Ms Office 2007-2010 kurulu olması gerektiğinden dikkat edilmelidir.

Çözüm 2:

Uygulamayı 32bit olarak yeniden derleyerek access veritabanı bağlantısını sağlayabilirsiniz. Solution Explorerdan projenize sağ tıklayıp özelliklerini açarak; C# için Build sekmesinde, VB için Compile sekmesinde projenizi 32bit(X86) olarak yapılandırıp, tekrar derlemeniz halinde sorununuz çözülecektir.

C# projeniz için örnek ekran görüntüsü:

VB.Net projeniz için örnek ekran görüntüsü:

Google anasayfasına giderek aşağıdaki ifadeyi arama kutusuna yazarak arayınız! Matematiksel işlemin sonucunu yukarıdaki gibi grafiksel olarak görüntüleyebilirsiniz... İyi eğlenceler

Matematiksel İfade :

sqrt(cos(x))*cos(200 x)+sqrt(abs(x))-0.7)*(4-x*x)^0.01, sqrt(9-x^2), -sqrt(9-x^2)

Aile Ağacı Hakkında

Aile Ağacı v4.5.1.9 soy ağacınızı, atalarınızı ve tüm akrabalarınızı ayrıntılı birşekilde kayıt altına almanızı sağlayan ücretsiz bir yazılımdır!

Aile Ağacı Kullanımı

Program ilk açılışta kendi kişisel bilgilerinizi girerek aile ağacını oluşturmuş olursunuz! Daha sonra anne, baba, kardeşler ve onlarında anne babaları vs. şeklinde girerek ulaşabildiğiniz tüm atalarınızı isimlerini girerek ağacı zamanla genişletirsiniz. Dilerseniz fotoğrafı olan yakınlarınızın fotoğraflarını ekleyerek görsel bir diagramınız olduğu gibi fotoğraf albümü şeklinde de kullanabilirsiniz. Yazılım şuanda beta aşamasında olduğu için ayrıntılı bilgi daha sonra verilecektir. Zaten yazılımı kurup kullanmaya başladığınızda aslında çok detaylı bir aile arşivi hazırlayabileceğinizi göreceksiniz. Üstelik ücretsiz...

Aile Ağacı İndir

www.multiupload.com/2Z8JR0NZL5 sitesinde bulunan ücretsiz indirme sitelerinden birini tercih ederek indirebilirsiniz. Güle güle kullanın...

Asp.Net C# Session Sepet Yapmak

Genelde e-ticerat sitelerinde uygulanan bildiğimiz market sepetlerinin dijital olanı asp.net sayfamız için vb.net kullanarak yapalım.

Gerekli yerlerde kullandığımızda oluşabiliecek hatalarının önüne geçmek için sepet ve urun adında iki sınıf tanımlayalım! Daha sonra bu sınıflar üzerinden Session("sepet")'i yöneteceğiz.

Urun.cs

public class Urun
{
    //ürüne ait kayıt olan benzersiz sayi
    public int id { get; set; }
    //ürün adı
    public string adi { get; set; }
    //ürünün fiyatı
    public double fiyat { get; set; }
    //sepet güncelle ve toplamı için adet
    public int adet { get; set; }
    //ürün fiyatı ile adeti çarpıp bir kalemdeki toplamı
    public double ToplamFiyat
    {
        get { return adet * fiyat; }
    }
}

Sepet.cs

public class Sepet
    {
    //tanımladığımız urun sınıfını liste olarak alıyoruz
    public Dictionary urunler = null;
    public New()
        {
        //sınıf ilk çağrıldığında sepetle ürünü ilişkilendiriyoruz.
        urunler = new Dictionary();
        }
        //yukarda oluşturduğumuz listeye eleman eklemek için
     public void Ekle(Urun u)
        {
         if (urunler.ContainsKey(u.id)) {
         //zaten listede(yani sepette varsa) sadece adetini 1 artırıyoruz
             urunler[u.id].adet += 1;
             } else {
                  //listede yoksa benzersiz idsi ile listemize ekliyoruz.
                  urunler.Add(u.id, u);
	            }
         }
   }

buraya kadar herşey tamam sayfalarımızda yapacağımız işlemlere geçmeden önce bir kontrol mekanızması oluşturuyorum. Ürünün sepette olup olmadığı geri döndüren bir fonksiyon. Sepette varsa True yoksa False değeri dönecek şekilde ayarlıyorum.

Sepette Varmı Fonksiyonu

private bool SepetteVarmi(int id)
        {
            //önce sunucu tarafında kullanıcının başlattmış olduğu sepet değişkeni varmı onu kontrol ediyorum
            //bu kontrol olmazsa doğal olarak hata verecektir.
            if (Session["sepet"] == null)
            {
                //sepet değişkeni oluşturulmadığı için false değeri döndürüyoruz
                return false;
            }
            else
            {
                //sepet değişkeni varsa
                //oluşturduğumuz sepet sınıfını eşitliyoruz     
                Sepet sepetim = (Sepet)Session["sepet"];
                //global session değişkenini Sepet sınıfımıza bu sınıfıda sepetim isimde bir nesne ile işlem yapmak için tanımladım.
                //sepet sınıfı içerisinde benzersiz anahtar sayı olarak urun.id olarak tanımlamıştım.
                //bir for döngüsü ile sepet sınıfı içerisi kontrol ediyorum 
                foreach (int key in sepetim.urunler.Keys)
                {
                    //id=kontrol ettiğimiz ürünün idsi
                    //key ise sepet sınıfında bulunan ürünlerin idsi oluyor
                    //yani id=key ise ürün seppette var demektir.
                    if (id == sepetim.urunler(key).ID)
                    {
                        //iki eşit olduğuna göre aynı üründür true değeri döndürüyoruz.  
                        return true;
                    }
                    else
                    {
                        //sepet sınıfı içerisinde ürün bulunamamıştır. false değeri döndürüyoruz.
                        return false;
                    }
                }
            }
        }

Sepete Ürün Eklemek Güncellemek İstediğimizde

//ürün eklemek / güncellemek için önce urun sınıfımıza işlem yapacağımız ürün için bir adet oluşturuyoruz.
Urun urun = new Urun();
urun.id = 1;
//ürünün veritabında kayıtlı olan benzersiz numarası
urun.adi = "ürün adı";
urun.fiyat = 15.5;
// ürün fiyatı
urun.adet = 1;
//sepet değişkeni varmı kontrol edelim
if (Session["sepet"] == null)
{
   //sepet değişkeni yok
   //sepet değişkeni oluşturup az önce önce oluşturduğumuz yeni ürünü aktarıyoruz. 
   Sepet sepetim = new Sepet();
   sepetim.Ekle(urun);
   Session["sepet"] = sepetim;
}
else
{
   //sepet değişkeni var içeriğini korumak ve yeni ekleyebilmek için kontrol etmeliyiz
   //yazdığımız fonksiyonu çağırıp ürün varmı bakıyoruz.
   if (SepetteVarmi(urun.id) == true)
       {
           //true değeri dönerse var demektir
           //güncelle
           int id = urun.id;
           Sepet sepetim = (Sepet)Session["sepet"];
           sepetim.urunler(id).adet += 1;
           Session["sepet"] = sepetim;
       }
       else
       {
           Sepet sepetim = (Sepet)Session["sepet"];
           sepetim.Ekle(urun);
           Session["sepet"] = sepetim;
       }
}

Sepeten Çıkarmak istediğimizde

int id = x; //çıkarmak istediğimiz ürünün idsi
//sepeti çağırıyoruz
Sepet sepetim = (Sepet)Session["sepet"];
//sepet sınıfı içindeki ürünü siliyoruz
sepetim.urunler.Remove(id);
Session["sepet"] = sepetim;

Sepet içeriğine erişmek listemek istediğimizde

//sepeti çağırıyoruz
{
	Sepet sepetim = (Sepet)Session["sepet"];
	//for döngüsü ile tüm elemanları alabiliyoruz.
	foreach (int i in sepetim.urunler.Keys) {
		Response.Write(sepetim.urunler(i).id);
		Response.Write(sepetim.urunler(i).adi);
		Response.Write(sepetim.urunler(i).fiyat);
	}
}

Umarım faydalı olmuştur.

Artık Facebook amele kaynıyor deniliyor.Ama ne yazık ki halen birçoğumuz o yoldan geldik, ama geçemedik.Maalesef ki  T.C’nin yarısı Facebook’a üye ve bağımlıları gününün bir kısmını orada geçiriyor.Hatta gününün ½’sini geçirenlere gözlerimle şahit oldum.Bilgisayar ilk açıldığında açılan bu site milyonları $’ları götürmekle kalmadı şimdi de insanların özel hayatına el attı.Bir kaç yıl öncesine kadar sadece birer rivayet niteliği taşıyan bu sözler şimdi gerçek.Facebook ailemizin içinde, soframızın muhabbet konusu, 5 yaşındaki çocuğun bile neşe kaynağı olan Facebook artık bunlarla da  kalmadı Nüfus Müdürlüğü’nün görevini de yerine getiriyor.

700.000.000 üyesiyle sanal alemin en geniş arkadaşlık sitesi ünvanına sahip.700 miyonun en azından 500 milyonunun da profillerinde gerçek fotoğraflarını kullandığı kaynaklarca sabittir.

Bu fotoğraflar geçtiğimiz aylarda ”fotoğraf etiketleme” etkinliği adı altında oluşturulan sistemde fotoğrafların tanınması sağlandı.Anlayacağınız etiketlenme olayında bile fotoğraflarınız artık arşivde.Araştırmalara göre yaklaşık 27 ile 30 milyon üyenin fotoğraflarının arşivlendiği ve halende çalışmaların hızlı bir şekilde devam ettiği yazılmakta.Sistem tarafından kayıt altına alınan fotoğraflar yüz tanımakta kullanılacak.

Ve sistem öyle bir oluşturulmuş ki her nokta ayrıntılı bir şekilde düşünülmüş.Çünkü yüz tanıma sistemine girenler isimlerini değiştirseler bile sistemi kandıramıyor.

Aslında bu sistemi Alessandro Acquisti, Ralph Gross ve Fred Stutzman adlı yazarlar da Facebook’un Yüzleri adlı kitaplarının tanıtımında bu tür iddialarda bulunmuşlar.Yazarlar yaptıkları programla 27.000 kişinin fotoğrafını tanımlıyor.Daha sonra tanımlanan bu fotoğraflar internette taratılıyor ve bu kişilerin hangi sitelerde profilleri mevcut, hangi bankada hesapları var, hangi ırka mensup, hangi isim altında hangi profili var vs. anında tesbit ediyor.Ayrıca yazarların yaptığı bu taratma da ise 27.000 kişinin %13 ünün farklı arkadaşlık sitelerinde farklı isimler altında profillerinin var olduğunu görmüşlerdir.Kısacası artık kimlikleri hangi isim altında açarsanız açın fotoğrafınızın yer aldığı her yerde sizi anında tebit etmek amaç edinilmiş.Sabıka kayıtlarında bulunmayan, ilk kez suç işlemiş birini bulmak için binlerce sabıkalının fotoğrafları taratılıyor.Hiç sabıkası olmayan birini bulmak zordu.Peki ya şimdi?Artık Facebook fotoğraf arşivini taramak yeterli olur mu sizce?Peki Facebook bu arşivi kaç paradan açar dersiniz?Bin mi?Milyon mu?Milyar mı?Peki ya bu arşivi ilk kim kullanır dersiniz?CIA mı ? Peki Amerika istihbaratları bizim yada diğer istihbarat birimlerinin, güvenlik güçlerinin kullanmasına izin verir mi dersiniz?

Sizin fotoğraflarınızı kullanarak herhangi bir sitede (bunun illa bir topluluk veya arkadaşlık sitesi olması şart değil) fotoğrafınızı kullanarak fake hesap açması-ki buda uygunsuz bir site ise o kişinin vay haline!Cumhurbaşkanımızın bile ”Ben memurları atama yaparken Google’a yazıyorum kişinin ismini, çıkan sonuçlara göre kişilerin bilgilerine ulaşıyorum ve buna göre atama yapıyorum” diyorsa sizce şirketler personel alımında nasıl bir yol izliyorlardır.Günümüz Türkiyesi Facebook’tan vergi bile almıyor.Ancak karşılığında Facebook’a üye olan herkesin kişisel bilgilerini kullanma hakkına sahiptir.Ne güzel(!) sistem oturtulmuş değil mi?Boşuna Facebook’un 5. sıradaki müşterisi değiliz.

Sonuç itibarı ile boşuna hayıflanmayın, fotoğraflarınızı kaldırmayı denemeyin! Saniyede terabaytlarca veri aktarımı yapan nanoteknolojinin profil fotoğraflarını sisteme kayıt etmesi içten bile değil.

keramettinel.com

Sosyal Medya savaşı gittikçe kızışmaya başladı. Şu ana kadar yarışı hep önde götüren, muhtemel rakiplerini satın alarak devre dışı bırakan Facebook zor günler yaşayacağa benziyor. Google daha önce yaşadışı hayal kırıklıklarına aldırış etmeden çalışmalarına devam etti. Hepimizin bildiği ve kullandığı Google teknolojileri,  altyapılarını ve arayüzlerine benzer Google Plus sosyal medya savaşında dengeleri alt üst edeceğe benziyor.

Şuan herkese açık olmamasına ve davetiye sistemiyle beta aşamasında olmasına rağmen çok kısa sürede 4 milyon üyeyi çoktan aşmış durumda. Kullanımdaki kolaylığı, googleın resim, video vb. konularda şimdiye kadar edindiği tecrübeler yepyeni bir sosyal mecra kralı olması için çok fazla avantajlı durumda.

Eğer henüz tanışmadıysanız ve şimdiden tanışmak isterseniz gmail uzantılı e-posta adresinizi yorum alanına yazarsanız size davetiye gönderebilirim...

http://plus.google.com

Wikileaks'in kurucu Julian Assange, Facebook hakkında öyle sözler söyledi ki...

Wikileaks'in gizli yazışmaları ortaya çıkartmasından sonra bir anda dünya gündemine oturan julian Assange, düşmanlarına bir yenisini daha ekledi; Facebook. Assange, Russia Today'le yaptığı röportajda Facebook hakkında şunları söyledi; "Facebook şimdiye dek icat edilmiş en korkutucu casusluk makinesi."

"Karşımızda insanlar hakkında dünyanın en kapsamlı veri tabanı bulunuyor; ilişkiler, isimler, adresler, konumlar, insanların birbirleriyle olan ilişkileri, akrabalar... Birleşik Devletler'de oturanların hepsine B.D. istihbaratı tarafından erişim sağlanabiliyor."

Facebook, Google ve Yahoo'nun Birleşik Devletler istihbaratı için arayüzler kurduğunu söyleyen Assange, bu isimlerin Birleşik Devletler tarafından kontrol edilmediğini ancak istedikleri bir isim hakkında küçük bir dilekçeyle bütün bilgilerini alabildiklerini belirtiyor.

Kaynak : Chip

Blog yazarlarının bir numaralı uğrak noktası olan Blogger yasaklandı.

Aşağıdaki basit işlemleri gerçekleştirerek erişimi engellenmiş olan tüm blogspot sitelerine sorunsuzca ve direk olarak ulaşabilirsiniz!

Şu an "www.blogger.com" yada "isim.blogspot.com" adreslerine erişmek isteyenler, "T.C. Diyarbakır 1. Sulh Ceza Mahkemesi 20.10.2008 tarih ve 2008/2761 sayılı kararı gereği bu siteye erişim engellenmiştir." mesajını görüyor. Dijitürk'ün naklen yayın haklarını elinde bulundurduğu lig maçlarını internet üzerinden ücretsiz ve izinsiz olarak izlettiren bazı kötü niyetli kişiler kendi reklamlarını ve duyurularını Googla'a ait bu ücretsiz blog servisi üzerinden yaptıkları için böyle bir karar alınmış...

Aynı mantıktan yola çıkarak umarım yakında ülkemizdeki tüm silah(ekmek bıçakları, küçük çakı, tırnak makası vb. suç işlenebilecek tüm delici ve kesici aletler) üretimide yasaklanır!

Konumuza dönecek olursak! Aslında bu siteler kapatılmıyor! Sadece bu siteye erişmek istediğinizde asıl web sunucusuna değilde farklı bir yönlendirme yapılıyor. Web sitelerine erişmemizi sağlayan DNS (Alan Adı Sunucuları) sitelerin asıl adresleri olan IP adreslerini çözümleyerek bizi bir karmaşadan kurtarırlar. Yada burda olduğu gibi siteleri erişime kapatırlar. Bu erişim engeline takılmadan yasaklı sitelere girmek için bilgisayarımıza bu yasaklı siteleri tanıtarak, servis sağlayacıların DNS'lerinde IP adreslerini çözümlemesini istemeyeceğiz, dolayısyla yasaklı sitelere direk erişim sağlayacağız!

blogger.com 64.233.183.103
www.blogger.com 64.233.183.103
blogspot.com 64.233.183.103
www.blogspot.com 64.233.183.103

Yukardaki bilgileri host dosyamıza girerek! Tüm bu engellemeleri aşabiliriz!

Eğer host dosyanızı nasıl düzenleyeceğini bilmiyorsanız daha önce Youte için yazmış olduğum Engelsiz İnternet v1.5 programını indirerek kolayca yapabilirsiniz!

Yasaksız, engelsiz internetli günler....

Duymadım, görmedim, bilmiyorum diyenler için Anadolu’daki dere ve doğa katliamı belgelendi... Enerji ve kalkınma politikalarının doğa ve akarsular üzerindeki olumsuz etkisini ve halkın bu yatırımlara karşı tepkisini gözler önüne seren "Anadolu’nun İsyanı" adlı film rekora gidiyor.

Herhangi bir kar amacı güdülmeden konuya duyarlı insanların gönülden destekleriyle tamamlanan film, HES’lere karşı Anadolu’da verilen mücadeleyi bizzat onların ağzından anlatıyor.

Hidroelektrik santrallerin (HES) doğa ve kırsalda yaşayan insanlar üzerindeki olumsuz etkilerini ve HES yatırımlarına karşı verilen mücadeleleri anlatan ‘Anadolu’nun İsyanı’ adlı kısa film gönüllü desteklerle ve kolektif bir çalışma sonucu ortaya çıkarıldı.

Anadolu’nun dört bir yanında devam eden HES çalışmalarının yıkıcı etkisine dikkat çeken film Akdeniz’den Karadeniz’e, Doğu Anadolu’dan Ege’ye kadar 20 bin kilometre yol kat edilerek çekildi.

İnternet üzerinden indirilebilen, çoğaltılmasına ve dağıtılmasına, festival ve toplu gösterimler için özel izin alınmasına, kullanılmasına herhangi bir kısıtlama konulmayan film, Anadolu derelerinin özgür akması için mücadele edenlere adandı.

Üç gün içerisinde 50 bine yakın izleyiciye ulaşan filme dileyen herkes sosyal paylaşım sitelerinden, anadolunehirleri.org, anadoluyuvermeyecegiz.net, vimeo.com/​vermeyoz/​film adreslerinden ulaşabiliyor.

Filmin en kısa sürede 7 dilde çevirisi bekleniyor ayrıca, önümüzdeki aylarda filmin uzun metrajlı halinin de yayınlanması söz konusu.

Filmle ilgili yapılan açıklamada, şunlar söylendi:

“Bizlerin doymak bilmeyen tüketim alışkanları ve ihtiyaçlarının doğa üzerindeki yıkıcı etkisi her geçen gün biraz daha artıyor. Hiç haberimiz olmasa da, umursamazsak da, gitmesek de, görmesek de bizim bu yaşam biçimimizin bedelini birtakım canlılar, insanlar ödüyor. Bu film; bir yandan Anadolu nehirleri ve doğası için verilen mücadeleleri anlatırken, bir yandan da şehirlerde hiçbir sorun yokmuş gibi yaşamaya devam eden insanlara ayna tutmak ve bu soruna ortak etmek için hazırlandı. Unutmamız gerekiyor ki, bu ateş sadece düştüğü yeri değil tüm canlı yaşamını yakacak. Bu gerçeğin fakına varanlar Nisan ayında tüm Anadolu’dan Ankara’ya doğru yürümeye başlayacak. Bu yürüyüşe katılmak ve destek vermek hepimizin yaşama karşı ortak sorumluluğudur.

Filmin indirilmesi, çoğaltılması ve dağıtılmasında hiç bir sakınca yoktur.

Asp.Net VB.Net Session Sepet Yapmak

Genelde e-ticerat sitelerinde uygulanan bildiğimiz market sepetlerinin dijital olanı asp.net sayfamız için vb.net kullanarak yapalım.

Gerekli yerlerde kullandığımızda oluşabiliecek hatalarının önüne geçmek için sepet ve urun adında iki sınıf tanımlayalım! Daha sonra bu sınıflar üzerinden Session("sepet")'i yöneteceğiz.

Urun.vb

Public Class Urun
    'ürüne ait kayıt olan benzersiz sayi 
    Public Property id As Integer
    'ürün adı
    Public Property adi As String
    'ürünün fiyatı
    Public Property fiyat As Double
    'sepet güncelle ve toplamı için adet
    Public Property adet As Integer
    'ürün fiyatı ile adeti çarpıp bir kalemdeki toplamı
    Public ReadOnly Property ToplamFiyat As Double
        Get
            Return adet * fiyat
        End Get
    End Property
End Class

Sepet.vb

    'tanımladığımız urun sınıfını liste olarak alıyoruz
    Public urunler As Dictionary(Of Integer, Urun) = Nothing
    Public Sub New()
	'sınıf ilk çağrıldığında sepetle ürünü ilişkilendiriyoruz.
        urunler = New Dictionary(Of Integer, Urun)()
    End Sub
    'yukarda oluşturduğumuz listeye eleman eklemek için 
    Public Sub Ekle(ByVal u As Urun)
        If urunler.ContainsKey(u.id) Then
           'zaten listede(yani sepette varsa) sadece adetini 1 artırıyoruz 
            urunler(u.id).adet += 1
        Else
            'listede yoksa benzersiz idsi ile listemize ekliyoruz.
            urunler.Add(u.id, u)
        End If
    End Sub

buraya kadar herşey tamam sayfalarımızda yapacağımız işlemlere geçmeden önce bir kontrol mekanızması oluşturuyorum. Ürünün sepette olup olmadığı geri döndüren bir fonksiyon. Sepette varsa True yoksa False değeri dönecek şekilde ayarlıyorum.

Sepette Varmı Fonksiyonu

Private Function SepetteVarmi(ByVal id As Integer) As Boolean
'önce sunucu tarafında kullanıcının başlattmış olduğu sepet değişkeni varmı onu kontrol ediyorum
'bu kontrol olmazsa doğal olarak hata verecektir.
 If Session("sepet") Is Nothing Then
'sepet değişkeni oluşturulmadığı için false değeri döndürüyoruz
            Return False
        Else
	    'sepet değişkeni varsa
	    'oluşturduğumuz sepet sınıfını eşitliyoruz		
            Dim sepetim As Sepet = DirectCast(Session("sepet"), Sepet)
	    'global session değişkenini Sepet sınıfımıza bu sınıfıda sepetim isimde bir nesne ile işlem yapmak için tanımladım.
	    'sepet sınıfı içerisinde benzersiz anahtar sayı olarak urun.id olarak tanımlamıştım.
	    'bir for döngüsü ile sepet sınıfı içerisi kontrol ediyorum	
            For Each key As Integer In sepetim.urunler.Keys
		'id=kontrol ettiğimiz ürünün idsi
		'key ise sepet sınıfında bulunan ürünlerin idsi oluyor
		'yani id=key ise ürün seppette var demektir. 
                If id = sepetim.urunler(key).ID Then
		   'iki eşit olduğuna göre aynı üründür true değeri döndürüyoruz.	
                    Return True
                Else
		   'sepet sınıfı içerisinde ürün bulunamamıştır. false değeri döndürüyoruz.
                    Return False
                End If
            Next
        End If
End Function

Sepete Ürün Eklemek Güncellemek İstediğimizde

'ürün eklemek / güncellemek için önce urun sınıfımıza işlem yapacağımız ürün için bir adet oluşturuyoruz.
Dim urun As New Urun
urun.id = 1 'ürünün veritabında kayıtlı olan benzersiz numarası
urun.adi = "ürün adı"
urun.fiyat = 15.5 ' ürün fiyatı 
urun.adet = 1
'sepet değişkeni varmı kontrol edelim
If Session("sepet") Is Nothing Then
    'sepet değişkeni yok
    'sepet değişkeni oluşturup az önce önce oluşturduğumuz yeni ürünü aktarıyoruz.	
    Dim sepetim As New Sepet()
    sepetim.Ekle(urun)
    Session("sepet") = sepetim
Else
    'sepet değişkeni var içeriğini korumak ve yeni ekleyebilmek için kontrol etmeliyiz 
    'yazdığımız fonksiyonu çağırıp ürün varmı bakıyoruz.
    If SepetteVarmi(urun.id) = True Then
    'true değeri dönerse var demektir
    'güncelle
	Dim id As Integer = urun.id
	Dim sepetim As Sepet = DirectCast(Session("sepet"), Sepet)
	sepetim.urunler(id).adet += 1
	Session("sepet") = sepetim
    Else
	Dim sepetim As Sepet = DirectCast(Session("sepet"), Sepet)
	sepetim.Ekle(urun)
	Session("sepet") = sepetim
    End If
End If

Sepeten Çıkarmak istediğimizde

Dim id As Integer = 'çıkarmak istediğimiz ürünün idsi
'sepeti çağırıyoruz
Dim sepetim As Sepet = DirectCast(Session("sepet"), Sepet)
'sepet sınıfı içindeki ürünü siliyoruz 
sepetim.urunler.Remove(id)
yaptığımız bu değişikliği global sepet değişkenine de yansıtıyoruz
Session("sepet") = sepetim

Sepet içeriğine erişmek listemek istediğimizde

'sepeti çağırıyoruz
Dim sepetim As Sepet = DirectCast(Session("sepet"), Sepet)
'for döngüsü ile tüm elemanları alabiliyoruz.
For Each i As Integer In sepetim.urunler.Keys
   Response.Write(sepetim.urunler(i).id)
   Response.Write(sepetim.urunler(i).adi)
   Response.Write(sepetim.urunler(i).fiyat)
Next

Umarım faydalı olmuştur.