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