Metinler için alt satıra geçme

<%

Function SatirAtla(byVal Veri)
If Veri = "" Then Exit Function
Veri = Replace(Veri, vbCrLf, "
", 1, -1, 1)
Veri = Replace(Veri, Chr(13), "
", 1, -1, 1)
SatirAtla = Veri
End Function

'//-- Örnek Kullanımı:
Response.Write SatirAtla(Request.Form("Mesaj"))

%>