Köyümüzün Tanıtımı Köyümüzle İlgili Makaleler Şiirler Bademkaya'dan Yetişenler

Bademkayalılar Telefon Rehberi

Fotoğraflarla Bademkaya Türkülerle Artvin Bizimle İrtibat Kurun


  
Bu site Türkiye'deki Bademkayalı hemşehrilerimizin birlik beraberlik ve dayanışmalarını artırarak sürdürmek amacıyla hazırlanmıştır.
  Bu sitede verileri bulunmayan hemşehrilerimiz kendilerine ait bilgi ve fotoğraflarını bize göndermelerini rica ediyoruz. Ayrıca köyümüzle ilgili elinizde bulunan resim, şiir, yazı, fotoğraf gibi belgeleri gönderirseniz sitemizin içeriğini birlikte zenginleştirmiş oluruz.
  Amacımız güzel köyümüzün ve köyümüzün kıymetli insanlarının tanıtılması, unutulmaması ve unutturulmamasıdır.

Katkılarınızı Bekliyoruz...

Kenan KÖSE
kenankose@bademkaya.com

Duyurular:


 Üyelerimiz

Design by Kenan KÖSE

 

 

 

GİRİŞ / ENTER
ANAHTAR KELİME REKLAMCILIĞI
rehber rehber antalya rehber artvin artvin artvin artvin  
kauçuk makina avrupa birliği artvin bademkaya köyü bursa işletmeler rehberi demo sitelerimiz denizli rehberi basın yayın  
rehber İşletmeciliği dünya rehberi dünya rehberi kauçuk kauçuk hosting hosting  
düzce rehberi reklam - web prodüksiyon artvin rehberi rehber işletmeciliği dünya rehberi dünya rehberi hosting  
düzce rehberi düzce rehberi ege rehberi erzurum rehberi gaziantep rehberi hortum market radyatör hortumu  
hava hortumu devirdaim hortumu hortum shop icanadolu rehberi e-ticaret hazır web işletmeler rehberi  
işletmeler rehberi hosting domain hosting - domain istanbul ajans istanbul ajans istanbul ajans istanbul işletmeler rehberi  
izmir işletmeler rehberi karadeniz rehberi kastamonu işletmeler rehberi kauçuk rehberi kibar köse kenan köse kimya rehberi  
rubber malatya rehberi plastik rehberi pvc rehberi rehber market rize rehberi sakarya rehberi  
sinop rehberi sinop rehberi sivas rehberi trabzon rehberi turizm rehberi      
  İŞLETMELER REHBERLERİ    
döküm G O O GL E YOUTUBE YAHOO rehber web tasarım rubber  
artvin auto spare parts yedek parça köseoglu grup traktör rehberi web tasarım cafe kırmızı  
çınarcık kauçuk kalip traktör rubber      
    BURAYA SPONSOR OLABİLİRSİNİZ      
               
  ARAMA MOTORLARİNA KAYIT    
               
               

 

<% Sub LogActiveUser Dim strActiveUserList Dim intUserStart, intUserEnd Dim strUser Dim strDate strActiveUserList = Application("ActiveUserList") If Instr(1, strActiveUserList, Session.SessionID) > 0 Then Application.Lock intUserStart = Instr(1, strActiveUserList, Session.SessionID) intUserEnd = Instr(intUserStart, strActiveUserList, "|") strUser = Mid(strActiveUserList, intUserStart, intUserEnd - intUserStart) strActiveUserList = Replace(strActiveUserList, strUser, Session.SessionID & ":" & Now()) Application("ActiveUserList") = strActiveUserList Application.UnLock Else Application.Lock Application("ActiveUsers") = CInt(Application("ActiveUsers")) + 1 Application("ActiveUserList") = Application("ActiveUserList") & Session.SessionID & ":" & Now() & "|" Application.UnLock End If End Sub Sub ActiveUserCleanup Dim ix Dim intUsers Dim strActiveUserList Dim aActiveUsers Dim intActiveUserCleanupTime Dim intActiveUserTimeout intActiveUserCleanupTime = 1 'In minutes, how often should the ActiveUserList be cleaned up. intActiveUserTimeout = 20 'In minutes, how long before a User is considered Inactive and is deleted from ActiveUserList If Application("ActiveUserList") = "" Then Exit Sub If DateDiff("n", Application("ActiveUsersLastCleanup"), Now()) > intActiveUserCleanupTime Then Application.Lock Application("ActiveUsersLastCleanup") = Now() Application.Unlock intUsers = 0 strActiveUserList = Application("ActiveUserList") strActiveUserList = Left(strActiveUserList, Len(strActiveUserList) - 1) aActiveUsers = Split(strActiveUserList, "|") For ix = 0 To UBound(aActiveUsers) If DateDiff("n", Mid(aActiveUsers(ix), Instr(1, aActiveUsers(ix), ":") + 1, Len(aActiveUsers(ix))), Now()) > intActiveUserTimeout Then aActiveUsers(ix) = "XXXX" Else intUsers = intUsers + 1 End If Next strActiveUserList = Join(aActiveUsers, "|") & "|" strActiveUserList = Replace(strActiveUserList, "XXXX|", "") Application.Lock Application("ActiveUserList") = strActiveUserList Application("ActiveUsers") = intUsers Application.UnLock End If End Sub %> <% Call LogActiveUser() Call ActiveUserCleanup() Response.Write "" & Application("ActiveUsers") & "" %>