Metin Alanlarında Bir Alt Satıra Geçme

Form alanlarında işinize yarayacak, kullanışlı bir fonksiyondur.

[HTML]
<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Alt Satıra Geçme Fonksiyonu
' Murat.Yavuz ****.a doronty37
' W: http://www.mydesign.gen.tr
' @: mydesign@mydesign.gen.tr
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Function Satir(byVal strVeri)

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
%>
[/HTML]

Kullanımı :

[HTML]<%
Response.Write Satir(Request.Form("Mesaj"))
%>[/HTML]

__________________
proxyer