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