<%
Const MAX_REC_COUNT = 10

'----------------------------------------------
' 引数に含まれる特定キャラクタをエスケープして返す
'----------------------------------------------
Function Escape(ByVal Str)
Dim tmp
tmp = Str
tmp = Replace(tmp,"&","&amp;")
tmp = Replace(Str,"<","&lt;")
tmp = Replace(tmp,">","&gt;")
tmp = Replace(tmp,"'","''")
tmp = Replace(tmp,Chr(13),"")
Escape = tmp
End Function
%>