冬天钓鱼饵料:Microsoft VBScript 运行时错误 '800a000d'怎么解决？

Microsoft VBScript 运行时错误 '800a000d'

类型不匹配: '[string: ""]'

\wwwroot\EditProfile.asp, line 350

下面是EditProfile.asp代码的326到380行：
if badwords<>empty then
filtrate=split(badwords,"|")
for i = 0 to ubound(filtrate)
sign=ReplaceText(sign,""&filtrate(i)&"",string(len(filtrate(i)),"*"))
next
end if

if instr(temp,"[/FLASH]")>0 or instr(temp,"[/RM]")>0 or instr(temp,"[/MP]")>0 then message=message&"<li>签名档中不能含有[FLASH] [RM] [MP]代码"

if Len(sign)>255 then message=message&"<li>签名档不能大于 255 个字节"

if instr(userface,";")>0 then message=message&"<li>头像URL中不能含有特殊符号"

if message<>"" then error(""&message&"")

sql="select * from [user] where username='"&HTMLEncode(username)&"'"
rs.Open sql,Conn,1,3

rs("birthday")=HTMLEncode(Request("birthday"))
rs("userface")=userface
rs("sex")=HTMLEncode(Request("sex"))
rs("sign")=sign
rs("landtime")=now()

if request("show")=1 then
rs("myshow")=""
elseif request("show")=2 then
rs("myshow")=rs("myshow1")
else error("请选择以何种方式显示帖内作者形象: 自定义头像 或者 社区虚拟形象")
end if

rs("UserInfo")=""&HTMLEncode(Request("realname"))&"\"&HTMLEncode(Request("country"))&"\"&HTMLEncode(Request("province"))&"\"&HTMLEncode(Request("city"))&"\"&HTMLEncode(Request("postcode"))&"\"&HTMLEncode(Request("blood"))&"\"&HTMLEncode(Request("belief"))&"\"&HTMLEncode(Request("occupation"))&"\"&HTMLEncode(Request("marital"))&"\"&HTMLEncode(Request("education"))&"\"&HTMLEncode(Request("college"))&"\"&HTMLEncode(Request("address"))&"\"&HTMLEncode(Request("phone"))&"\"&HTMLEncode(Request("character"))&"\"&HTMLEncode(Request("personal"))&""
rs("UserMobile")=""&HTMLEncode(Request("UserMobile"))&""

rs.update
rs.close
message=message&"<li>修改资料成功<li><a href=usercp.asp>控制面板首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=3;url=usercp.asp>")
end sub

sub OptionPage
sql="select * from [user] where username='"&Request.Cookies("username")&"'"
Set Rs=Conn.Execute(sql)
%>

<SCRIPT>valigntop()</SCRIPT>
<table width="<%=dkuan%>" cellspacing=1 cellpadding=4 border=0 class=a2 align=center>
<form method="POST" name="form"action="EditProfile.asp">
<input type=hidden name="menu" value="optionok">
<tr>