 |
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
BİRA GÖNÜLLÜLERİNE KATILIN ! | |||||||||||
| ALIŞVERİŞ |  |
GEZİLER |  |
BİLET KAZANIN |  |
GÖZDE MEKANLAR |  |
||||||
 |
 |
||||||||||||
|
|||||||||||||
| bira.info, internet üzerindeki web-sitelerinin
temel ilkesi olan üye gizliliğine gerekli önemi vermektedir. Amacımız,
kullanıcılarımız için güvenli bir site yaratmaktır. bira.info'u ziyaret edip kayıt formunu dolduran üyelerin bilgileri sadece bira.info'ya ait "anket" niteliği taşır. Ayrıca sponcer firmalar dışında, üyelerin hiçbir özel bilgisi (adres, telefon numaraları, elektronik posta adresi, vs) herhangi bir üçüncü şahıs veya kurum ile paylaşılmamaktadır. Sistemimize üye olan fakat arzu edilen gizlilik prensiplerine uymayan kişi veya kuruluşların bu prensibi zedelemelerinden doğacak sorunlardan firmamız sorumlu tutulamaz. Bu tür bir durumla karşılaştığınız taktirde kaydınızı istediğiniz zaman veri tabanından silebilirsiniz. bira.info'un en değer verdiği prensibi olan Aday Gizliliği konusunda bütün çabalarımıza karşın negatif bir olay yaşarsanız, lütfen bu konuyu info@bira.info adresine bildiriniz. bira.info'ya duyduğunuz güven için çok teşekkür ederiz. |
|
<% MyFile = Server.MapPath( "Counter_bira.txt" ) Set FileObject = CreateObject("Scripting.FileSystemObject") 'Read hits number Set InStream = FileObject.OpenTextFile(MyFile, 1, true) 'If file exists If not InStream.atEndOfStream Then total = CInt(Instream.ReadLine) + 1 else total = 1 end if Instream.Close set instream = Nothing 'Update number of hits Set OutStream = FileObject.OpenTextFile(MyFile, 2, true) Outstream.WriteLine total Outstream.Close set OutStream= Nothing set FileObject = Nothing Response.Write("İzlenme Adedi: " & total) %> Aktif Kişi Sayısı: <% = application("active")+1 %> |
|
||