Hakan Şen

ne yaptın bu gün kendin için hiç bi şey...
bu gün de yine diğer günler gibiydi dimi.
belkide daha sıkıcı geçti senini için,
değişen ne hiç bi şey.
akşam başını yastığına koyunca değişen ne.yine aynı sensin dimi.
bu günü yaşamasaydın hayatında önemli bi değişiklik olucakmıydı ...
bu günü hiç yaşamasaydın hiç olmasaydı bu gün...
bu gün kendin için bi şey yap.
hiç tanımadığın birisiyle tanış.
belkide senin için hayatın boyunca yaptığın en iyi şeyi yapıcaksın.
ne biliyim bi çılgınlık yap hiç bilmediğin bi telefon numarasını ara.
kendin için yaşa biraz.
bırak zaman senin için aksın.

Bu dilden firar eden her söz, yaydan çıkmış ok gibi
Sözler bazen bir hazine bazen dermansız bir dert tipi
Geçmiş dünden bahsetmek lezzetsiz
Gelmemiş yarından hep mi şikayetçiyiz biz
Aklımın ipinin ucuda kaçmış, timsah katreleri boşalsın
Bir iki damla hiç değersiz

Devamı Var ...

Tahir olmak da ayıp değil
Zühre olmak da..
Hatta sevda yüzünden ölmek de ayıp değil.
Bütün iş Tahir`le Zühre olabilmekte
Yani yürekte.

Mesela bir barikatta dövüşerek
mesela kuzey kutbunu keşfe giderken
mesela denerken damarlarmda bir serumu
ölmek ayıp olur mu?

Tahir olmak da ayıp değil Zühre olmak da
hatta sevda yüzünden ölmek de ayıp değil.

Seversin dünyayı doludizgin
ama o bunun farkında değildir
ayrılmak istemezsin dünyadan
ama o senden ayrılacak
yani sen elmayı seviyorsun diye
elmanm da seni sevmesi şart mı?
Yani Tahir`i Zühre sevmeseydi artık
yahut hiç sevmeseydi
Tahir ne kaybederdi Tahirliğinden?

Tahir olmak da ayıp değil Zühre olmak da
hatta sevda yüzünden ölmek de ayıp değil.

Nazım Hikmet - 1947

Uzun zamandır kod yazmıyorum hemen aklıma gelmişken bi tane yaziyim

Sitenize video dosyalarını koymak istiyorsunuz ama fonksiyonunuz yok hemen yazıyoruz

Function videogoster(ByVal strMesaj)



     '// Değişken boşsa fonksiyondan çıkılıyor

     If strMesaj= "" Then Exit Function



     '// Mesajda [vidyo] komutu  ile video gösterimi hazirlama

     Do While InStr(strMesaj, "[vidyo]") > 0  AND InStr(strMesaj, "[/vidyo]") > 0



     DeyimBaslangici = InStr(strMesaj, "[vidyo]")

     DeyimSonu = InStr(DeyimBaslangici, strMesaj, "[/vidyo]") + 8          

     If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7

     strLink = Trim(Mid(strMesaj, DeyimBaslangici, (DeyimSonu - DeyimBaslangici)))

     strGeciciMesaj = strLink

     strGeciciMesaj = Replace(strGeciciMesaj, "[vidyo]", "", 1, -1, 1)

                     strGeciciMesaj = Replace(strGeciciMesaj, "watch?v=", "v/", 1, -1, 1) 

     strGeciciMesaj = Replace(strGeciciMesaj, "[/vidyo]", "", 1, -1, 1)     

     strGeciciMesaj = "<span class=""video""><object width=""425"" height=""350""><param name=""movie"" Value="""& strGeciciMesaj &"""></param><param name=""wmode"" Value=""transparent""></param><embed src="""& strGeciciMesaj &""" type=""Application/x-shockwave-flash"" wmode=""transparent"" width=""425"" height=""350""></embed></object></span>"

     strMesaj = Replace(strMesaj, strLink, strGeciciMesaj, 1, -1, 1)

     Loop



     MesajFormatla = strMesaj



End Function

[vidyo]http://www.youtube.com/watch?v=aAueNbUp8d0[/vidyo]

<%=videogoster(rs("veri"))%>