函数调用出错：类型不匹配（初学asp 请多赐教）解决办法

函数调用出错：类型不匹配（初学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 ")
TEXT=replace(TXT, " ' ", " ' ' ")
sql= "insert   into   mp2(txt)   values( ' "&txt& " ') "

'response.write   request( "textarea ")
objcon.execute   sql
ELSE
set   rs=server.createobject( "adodb.recordset ")
SQL= "SELECT   TXT   FROM   MP2 "
RS.OPEN   sql,objcon,1,3
dim   txt
TXT=rs( "txt ")
txt=code(txt)   '---就是这里出错了，Microsoft   VBScript   运行时错误     '800a000d '类型不匹配:   'code '    
end   if
objcon.close
set   objcon=nothing
%>
'数据库连接的代码没有写上来，那一部份没有问题，就是这个函数无法调用

[解决办法]
TXT=rs( "txt ").valueif Txt is null then txt = " "end if