Originally for frontpage from
some web punk @ usf.edu:
1. Insert your database results region.
2. Highlight the field name which is the memo or scrolling
text type (in our example, this is <<comments>>).
3. Delete field.
4. Click on the HTML view tab and insert the following code
in the cursor's location:
<%
Dim temp
Dim pos
Dim strOriginal
Dim strOldChar
Dim strNewChar
temp = ""
strOriginal= FP_FieldVal(fp_rs,"Comments")
strOldChar = Chr(13)& Chr(10)
strNewChar = "<br>"
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
%>
(hint: copy the above text into notpad and then copy in into
HTML view in FP)
5. Change fp_rs,"Comments" to your field name (change
"comments" only).
6. Save the page and preview.
|