帮忙看看错在哪里

[shuimuyu]

if request("Content")<>"" then
Uid=Session("Uid")
strig="<font color=" & request("color") & ">" & Uid & request("facial") & "say:" & request("Content") & "</font><br>"
who=request("who")
Items=Split(Application("peoples"),",")
Application.lock
if request("who")="All" then
for i=0 to UBound(Items)-1
Application(Items(i))=Application(Items(i))&strig
Next
else
For i=0 to UBound(Items)-1
if Items(i)=Uid or Items(i)=Who then
Application(Items(i))=Application(Items(i)) & strig
end if
Next
end if
Application.Unlock
end if
%>

调试说的是应用程序对象, ASP 0102 (0x80004005)
函数需要字符串输入。
/speaking.asp, 第 32 行
不知道什么意思
请哪位指教一二