제목, 내용 입력전 필터링 함수

Subject = subject_filter(Trim(Request.Form("Subject")))
  Contents = contents_filter(Trim(Request.Form("Contents")))

  Dim rex
  Function contents_filter(content)
       content = replace(content,"<TABLE>","&lt;table&gt;")
       content = replace(content,"<TABLE ","&lt;table&nbsp;")
       content = replace(content,"<TBODY>","&lt;tbody&gt;")
       content = replace(content,"<TR>","&lt;tr&gt;")
       content = replace(content,"<TD>","&lt;td&gt;")
       content = replace(content,"</TD>","&lt;/td&gt;")
       content = replace(content,"</TR>","&lt;/tr&gt;")
       content = replace(content,"</TBODY>","&lt;/tbody&gt;")
       content = replace(content,"</TABLE>","&lt;/table&gt;")
       content = replace(content,"<XMP>","&lt;xmp&gt;")
       content = replace(content,"</XMP>","&lt;/xmp&gt;")
       content = replace(content,chr(9),"&nbsp;&nbsp;&nbsp;&nbsp;")
       content = replace(content,"'","''")
       contents_filter = content
  End Function

  Function subject_filter(Subject)
       set rex = new Regexp
       rex.Pattern= "<[^>]+>"
       rex.Global=true
       Subject =rex.Replace(Subject,"")
       Subject = replace(Subject,"'","''")
       subject_filter = Subject
  End function

현재 안쓰고 있는데;;;