<%
' --- Code zum Öffnen der Datenbank und des Recordsets
...
 
' --- Auslesen des Text- oder Memofelds in eine Variable
    strText = objRS.Fields("<text-oder-memofeld>")
 
' --- Ausgabe des Variableninhalts vor der Umwandlung
    Response.Write "<p>Originaltext:"
    Response.Write strText
    Response.Write "</p>"
 
' --- Ersetzen der Zeilenumbrüche in der Variable
    strText = Replace(strText, vbCrLf, "<br>")
 
' --- Ausgabe des Variableninhalts
    Response.Write "<p>Geänderter Text:"
    Response.Write strText
    Response.Write "</p>"
 
' --- Weiterer Code (Schliessen des Recordsets und der Connection)
...
 
%>