TEFEKKÜR 3 - HOŞ GELDİNİZ - Blogcu

TEFEKKÜR 3

2/8/2006 ·

Hayatın iniş ve çıkışları vardır.Çoğumuz bu oyuna kapılır gideriz. İşler yolundayken kendimizi mutlu hissederiz, bozulunca üzülürüz.

Yaşama bu tür yaklaşım güçsüz bir yaşama biçimidir.

Rüzgarda sürüklenen yaprak gibisin demektir.

Akıntıya göre gidersin;

Şu anda bir yöne gidiyorsun, bir sonraki anda başka bir yöne.

Yaşamanın çok daha bilgece bir yolu, tüm yargılardan kurtulmaktır.

"Başına ne geldiyse kendi elindendir, akıllıya ibret, akılsıza ümitsizliktir."

Unutma ki!

Kusurlu oluşumuz hayatımıza anlam katar.

Yeterki ibretle bak,kendini yenile aslına dön.

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

« Önceki :: Sonraki »

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

0 yorum yazılmıştır

<% 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 %>