<%
Dim temp
Dim pos
Dim strOriginal
Dim strOldChar
Dim strNewChar
temp = ""
strOriginal= FP_FieldVal(fp_rs,"body")
strOldChar = Chr(13)& Chr(10)
strNewChar = "
"
pos = InStr(1, strOriginal, strOldChar)
While pos > 0
temp = temp & Mid(strOriginal, 1, pos - 1) & strNewChar
strOriginal = Right(strOriginal, Len(strOriginal) - pos - Len(strOldChar) + 1)
pos = InStr(1, strOriginal, strOldChar)
Wend
ChangeStr = temp & strOriginal
Response.Write ChangeStr
%>
