Alt satıra geçme fonksiyonu

 
<%
'|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'| Metin alanları için alt satıra geçme fonksiyonu
'| Murat Yavuz a.k.a doronty37
'| mydesign @ mydesign.gen.tr | doronty37 @ d0gma.org
'| http://www.mydesign.gen.tr | http://www.d0gma.org
'|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Function Satir(byVal strVeri)

'// Değer boşsa fonksiyondan çıkılıyor
If strVeri = "" Then Exit Function

strVeri = Replace(strVeri, vbCrLf, "<br />", 1, -1, 1)
strVeri = Replace(strVeri, Chr(13), "<br />", 1, -1, 1)

Satir = strVeri

End Function

'// Kullanımı:
'// Response.Write Satir(Request.Form("Mesaj"))
%>

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

alt satıra geçme fonksiyonu