<%
Function chk(fstring)
Dim string
string=Rtrim(fstring)
If string="" then Exit Function
string=Replace(string,"<","&lt;",1,-1,1)
string=Replace(string,">","&gt;",1,-1,1)
chk=string
End Function

Function chkf(fstring)
Dim string
string=trim(fstring)
If string="" then Exit Function
string=Replace(string,"<","&lt;",1,-1,1)
string=Replace(string,">","&gt;",1,-1,1)
chkf=string
End Function
%>