<%
Function isNew(dt)
lastDate = DateToStr(DateAdd("d",-8,strForumTimeAdjust))
if dt > lastDate then
'if dt > Session(strCookieURL & "last_here_date") then
isNew = "![](" & strImageURL & "new.gif)
"
Else
isNew = " "
end if
End Function
Function FormatNewsStr(strTemp)
strTemp = Replace(strTemp, chr(13), "")
strTemp = Replace(strTemp, chr(10), "
")
strTemp = Replace(strTemp, chr(34), "'")
strTemp = Replace(strTemp, "(", "[")
strTemp = Replace(strTemp, ")", "]")
FormatStr = strTemp
End Function
Function TagPosition(Text)
TagPosition = inStr(1,FormatStr(Text),"<",1)
If TagPosition = 0 or TagPosition = Null or TagPosition > Application("MaxCharacters") Then
TagPosition = 150
Else
TagPosition = TagPosition - 1
End If
End Function
Function CutNewsText(Text)
If TagPosition(Text) >= 150 Then
TagPos = TagPosition(Text)
For x = TagPos to 1 Step -1
strTest = mid(FormatNewsStr(Text), x, 1)
If not strTest = " " _
And not strTest = "," _
And not strTest = "." _
And not strTest = "!" _
And not strTest = ":" _
And not strTest = "?" Then
TagPos = TagPos - 1
Else
If strTest = "." or strTest = "!" or strTest = "?" Then
strEnd = " "
Else
If strTest = " " Then
TagPos = TagPos - 1
End If
strEnd = "..."
End If
Exit For
End If
Next
Else
TagPos = 0
strEnd = "..."
End If
CutNewsText = Mid(FormatStr(Text),1,TagPos) & strEnd
End Function
%>