求助

<%
function getformval(formname)   '取得表单项目的过程
dim startpos
dim strlen,searchstr
dim valstart,vallen,valcontent
getformval=""
startpos=Lenb(divider)+2  'divider为取得formdata中的字节数
formname=chr(34)&formname&chr(34)
do while startpos>0
  strlen=instrb(startpos,formdata,bCrLf)-startpos
  searchstr=midb(formdata,startpos,strlen)
  if instr(bin2str(searchstr),formname)>0 then
     valstart=instrb(startpos,formdata,bCrLf&bCrLf)+4
  vallen=instrb(startpos,formdata,divider)-2-valstart
  valcontent=midb(formdata,valstart,vallen)
  if getformval<>"" then
    getformval=getformval&","&bin2str(valcontent)
  else
    getformval=bin2str(valcontent)
  end if
   end if
   if instrb(startpos,formdata,divider)<1 then
     exit do
   end if
   startpos=instrb(startpos,formdata,divider)+lenb(divider)+2
   loop
  end function
%>

这是一段无组件上传文件的代码，在运行时总是提示我bin2str类型不匹配。这是怎么回事。请大家帮帮忙，谢谢