显示不出数据库中的一条记录,这是为什么啊?代码在下面:

  <%
dim name
name=request.Form("name")

dim conn
 set conn=server.createobject("adodb.Connection")
 conn.connectionString="Dbq=C:\Inetpub\wwwroot\canting.mdb;Driver={Microsoft Access Driver (*.mdb)}"
  conn.mode=0
  conn.open

dim comm
set comm=server.CreateObject("adodb.Command")
comm.ActiveConnection=conn
dim sqlstr
sqlstr="Select * from caipu where name like '"&session("name")&"'"
comm.commandtext=sqlstr
comm.commandtype=1
set rs=comm.execute

  %>
 <%do while not rs.eof%> 
  <p><strong>编号：</strong>
    <%response.Write(rs("number"))%>
  <p>
<strong>菜名：</strong><%response.Write(rs("name"))%><p>
<strong>价格：</strong><%response.Write(rs("price"))%><p>

  <%rs.movenext 
  loop 
%>
<%rs.close
set rs=nothing
conn.close
set conn=nothing
%>