江西学豆网:asp 问题

<!--#include file="conn.asp" -->
<%
lx=request("lx")
select case lx
case "nz"
%>
<%
xlcd=request("xlcd")
select case xlcd
case "mc"
%>
<%
U_Name=Request("strkey")
if U_Name<>"" then
set rs = server.createobject("adodb.recordset")
rs.source = "select * from t_sample where U_Name like '%"&U_Name&"%'"
rs.open rs.source,conn,1,2
if rs.recordcount<>0 then
t=rs("U_Info")
response.Write(t)
else
response.Write("无记录")
end if
rs.close
set rs=nothing
end if
%>
<%
case "nr"
%>
<%
U_Name=Request("strkey")
if U_Name<>"" then
set rs = server.createobject("adodb.recordset")
rs.source = "select * from t_sample where U_Info like '%"&U_Name&"%'"
rs.open rs.source,conn,1,2
if rs.recordcount<>0 then
t=rs("U_Name")
response.Write(t)
else
response.Write("无记录")
end if
rs.close
set rs=nothing
end if
%>
<%
end select
%>
<%
case "nvz"
%>
<%
xlcd=request("xlcd")
select case xlcd
case "mc"
%>
<%
U_Name=Request("strkey")
if U_Name<>"" then
set rs = server.createobject("adodb.recordset")
rs.source = "select * from biao where ss like '%"&U_Name&"%'"
rs.open rs.source,conn,1,2
if rs.recordcount<>0 then
t=rs("ss")
t2=rs("dd")
response.Write(t)
response.Write(t2)

else
response.Write("无记录")
end if
rs.close
set rs=nothing
end if
%>
<%
case "nr"
%>
<%
U_Name=Request("strkey")
if U_Name<>"" then
set rs = server.createobject("adodb.recordset")
rs.source = "select * from biao where dd like '%"&U_Name&"%'"
rs.open rs.source,conn,1,2
if rs.recordcount<>0 then
t=rs("ss")
response.Write(t)
else
response.Write("无记录")
end if
rs.close
set rs=nothing
end if
%>
<%
end select
%>
<%
end select
%>
<table width="531" border="0">
<tr>
<td> </td>
<td><div align="center">名 称</div></td>
<td><div align="center">内 容</div></td>
</tr>
<tr>
<td> </td>
<td><div align="center"><%=rs("U_Name")%></div></td>
<td><div align="center"><%=rs("U_Info")%></div></td>
</tr>

</table>

错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'rs'
/000/ss.asp, 第 110 行