Dates are in
Australian/UK format of dd/mm/yyyy
<% if 0 then %>
<% end if %>
<%
fp_sQry="SELECT * FROM Guests WHERE (Approval = ::Approval::) ORDER BY Date DESC"
fp_sDefault="Approval=Yes"
fp_sNoRecords="No records returned."
fp_sDataConn="Guestbook"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=20
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice="GuestsID"
fp_sMenuValue="GuestsID"
fp_sColTypes="&GuestsID=3&FirstName=202&City=202&State=202&Country=202&EmailAddress=202&WebSiteTitle=202&WebSiteURL=202&FoundSiteAt=202&Date=135&Comments=203&Approval=11&"
fp_iDisplayCols=11
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>
<%=FP_FieldVal(fp_rs,"FirstName")%>
<%=FP_FieldVal(fp_rs,"FirstName")%> from
<%=FP_FieldVal(fp_rs,"City")%>
<%=FP_FieldVal(fp_rs,"State")%>
<%=FP_FieldVal(fp_rs,"Country")%> left this
message here on
<%=FP_FieldVal(fp_rs,"Date")%>.
Comments:
<%
Dim temp
Dim pos
Dim strOriginal
Dim strOldChar
Dim strNewChar
temp = ""
strOriginal= FP_FieldVal(fp_rs,"Comments")
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
%>
|
