Merhaba verdiğim kodu veritabanına kayıt işleminde veya şiiri sayfaya yazarken şu şekilde uygula <%=EnterYap(Rs("Siir"))%> işini görecektir gözlerim kapanıyor inşallah harf hatası yapmamışımdır kolay gelsin

( kodu işlem yapacağın sayfanın üstüne eklemeyi unutma )

<%
Function EnterYap(Veri)
Veri = Replace(Veri, vbCrLf,"<br>" , 1, -1, 1)
EnterYap = Veri
END Function
%>