|
<% if 0 then %>
<% end if %>
<%
fp_sQry="SELECT article FROM Articles where type = 'register'"
fp_sDefault=""
fp_sNoRecords="No records returned."
fp_sDataConn="FES"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&article=203&"
fp_iDisplayCols=1
fp_fCustomQuery=True
BOTID=0
fp_iRegion=BOTID
%>
<%
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
%>
|
