Hakan Şen

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

of be dostum

bir insan nasıl taşıyabilirdi bu kadar sıfatı. kolaymı ki sanıyorsunuz farklı insanlara, farklı yüzlerle görünmek, yeri geldiğinde zengin, kimi zaman fakir, bazen adil, bazen zalim, bazen iyimser sonrada kötümser...

anlamıyorum ben bu insanları arkadaş, anlamıyorum işte. dün can dostum olan bügün azılı düşman kesildi bana, nedir benden alıp veremediğin dostum, bumuydu senin dostluğun, böylemi olacaktı yarınlara beraber koşmak, hani gün ağarmadan beraberce yürüyecektik kordon boyunca, nerdesin şimdi sen?seni çok arıyorum be dostum, sende terkettin ya beni...

of be dostum , biliyormusun dün ne oldu, hani senle gün batımında deniz kıyısında yosun tutmuş taşların üzerine günün yorgunluğunu üzerimizden atarcasına oturduğumuz yer var ya, işte orasını dün rüyamda gördüm. biz orda yokuz diye, dalgalarda vurmuyordu artık oraya, martılarda dargın bize bundan böyle, eminim onlarda özlemiştir gevrek simitlerimizden arta kalan kırıntıları, hele orda bize her zaman hayat dersi veren yetmişlik amca varya işte oda biz yokuz diye terketmiş oraları, pek hastalanmış üzüntüsünden duydugum kadarıyla. of be dostum , yokluğumuz neler getirmiş de haberimiz yok, hiç olmassa gel sırf onlar için gidelim yosun tutmuş taşlı deniz kıyısına.

dostum sen özlemesende ben seni çok özledim. sen yinede üzülme dostum, nede olsa yarın gene beraber olacağız, martılar ve yetmişlik amca için, kendim için bir şey istiyorsam namert olayım be dostum.

eski yüzüne tekrar döneceksin dostum. tamammı? anlaştıkmı?

aşk bitti...

asil eksiklik, eksik oldugumuzu dusunmekti.
asil eksiklik,careyi baskasinda aramakti.
hayatin matematigi farkli; iki yarimi toplayinca bir etmiyor.
insan tek basina mutsuzsa baska biriyle de mutlu olamiyor.

once yalnizdik.
9 ay boyunca karanlik bir yerde disari cikmayi bekledik ve dunyaya aglayarak
geldik. pisman gibiydik.
ya da mecburen gelmis gibi.

Devamı Var ...