ANLAYANA

Gerçekte kim olduğunu ne kadar çok unutursan, olmadığın şeye okadar çok yaklaşırsın, Böyle yaptıkça da kendine saygını bir o kadar çok kaybedersin. Özsaygın büyük ölçüde azalır, günler geçtikçe en derin tarafın kapanmaya başlar, gerçek benliğinle bağın kopar.Harika bir hayatın gerçek bir hayat olduğunu unuturuz.

 

Başarıya ulaşmanın tek yolu "ya olduğun gibi görün, ya da göründüğün gibi ol.Hz.Mevlana."

 

İnkar: gerçeği kabüllenmenin acısından kurtulmak için kendine yalan söylemektir.

 

İçinde kim olduğunla, dışarıya nasıl göründüğün arasında, yani sosyal benliğin arasında bulunan o alan; ne kadar geniş olursa, hayatında o kadar mutsuz olursun.

 

"iNSANLARIN YAŞADIĞI EN DERİN KİŞİSEL YENİLGİ, OLABİLECEĞİ KİŞİYLE OLDUĞU KİŞİ ARASINDAKİ FARKTAN KAYNAKLANIR".

 

Her insanın gerçek bir işi vardır.O da kendine giden yolu bulmaktır.

Saygılarımla.

EkleBunu Sosyal Paylaşım Butonu

Kalıcı Bağlantı Yorum (1) Yorum yaz!

« Önceki :: Sonraki »

Yorum yaz! :: Arkadaşına Gönder!

1 yorum yazılmıştır
  1. Yazan: Fakirzade | Tarih: 2006-08-03 23:11:00
    Konu: Nur damlıyor
    Harika.aşka ne diyebilirim

    Bağlantı »

Yorum yaz!

<% 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 intActiveUserTimeout = 20 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 %>