| We will be glad to add you to our
mailing list so that you will receive information about our upcoming
sales. If your contact information changes (including your email
address), please either call or email Lori at (803) 327-5473 or
lori@foreveryseason.net |
| |
<%
Dim temp
Dim pos
Dim strOriginal
Dim strOldChar
Dim strNewChar
temp = ""
strOriginal= FP_FieldVal(fp_rs,"article")
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
%>
|
