请指导一下.关于文本多字段查询!

攸哉vs攸哉

程序代码：
look.asp
<form name="myform" action="over.asp" method="post">
<input name="search1" type="text"/>
<input type="submit" value="查询"/>
</form>

在文本框里面输入HA04,HI03然后点查询就会进入over.asp查询
代码如下:

程序代码：
<!--#include file="conn.asp"-->
<% dim pname
   pname=gerform("search1")
   Str=split(pname,",")
   For i=0 to ubound(Str)
      StrTemp=Str(i)
   Next
  Set Rs=Server.CreateObject("Adodb.Recordset")
  Rs.Open "Select * from mbcomp Where proname Like '%"&StrTemp&"%'",dbconn,1,1
  Do while not Rs.eof
  Response.write"<a href=''>"&Rs("proname")&"</a>"
  Rs.movenext
  loop
  Rs.close : Set Rs=Nothing
%>

现在出现错误.就是不能查询到HA04.能找到HI03.能请问什么地方出现了问题.请指导一下.谢谢.