函数调用出错：类型不匹配（初学asp 请多赐教）
<%
Function   SqlStr(   data   )
      SqlStr   =   " "   &   Replace(   data,   " ",   " "   )   &   " "
End   Function
Function     coder(str)    
      Dim     i    
      If     IsNull(str)     Then     :     coder= " "     :     Exit     Function     :     End     If    
      For     i     =     1     to     Len(str)    
              Select     case     mid(str,i,1)    
                      Case     " < "                     :     coder     =     coder     & "&lt; "    
                      Case     "> "                     :     coder     =     coder     & "&gt; "    
                      Case     "& "                     :     coder     =     coder     & "&amp; "    
                      Case     chr(9)         :     coder     =     coder     & "&nbsp;&nbsp; "    
                      Case     VBCrLf         :     coder     =     coder     & " <br> "    
                      Case     chr(32)     :     coder     =     coder     & "&nbsp; "    
                      Case     chr(34)     :     coder     =     coder     & "&quot; "    
                      Case     chr(39)     :     coder     =     coder     & "&#39; "    
                      Case     Else                 :     coder     =     coder     &     mid(str,i,1)    
              End     Select    
      Next    
End     Function  
%>
<%
if   request.servervariables( "REQUEST_METHOD ")= "POST "   then
TXT=request( "textarea