代码这样写错了吗？
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("dat/tj.mdb")
exec="select * from khxx where id = hhh"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1

while not rs.bof
if rs("id")=hhh then
%>
<%=rs("khxm")%><%=rs("py")%><%=rs("dzs")%><%=rs("khzj")%><%=rs("khxjh")%></p>
<%end if%>
<%rs.close
set rs=nothing
conn.close
set conn=nothing%>
<% else
rs.movenext
end if
wend
%><%rs.close
set rs=nothing
conn.close
set conn=nothing%>