asp分类查询无效，请大家帮看下哪错了

我是想弄一个可以添加查询删除信息的页面，现在添加删除都可以用了，但是不能使用分类查询或详细查询，麻烦大家帮看下，代码是我东拼西凑弄出来的，漏洞就别管呢。<HTML>
<HEAD>
<Title>display.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
</HEAD>
<!--#include file=conn.asp--> 
<BODY>
<p align="left">
<%
act=request.QueryString("act")
if act="del" then '删除
id=request.QueryString("id")
sql="delete from card where id="&id 
conn.execute(sql)
response.Redirect("display.asp")
end ifdim ss,st
ID = Request("ID")
ss =Request("searchselect")
st=request("searchtxt")if request.QueryString=null then
exec="select 'ss' from card where 'ss' like 'st'"
else
exec="select * from card order by id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%><p><%request("searchtxt")%></p></p>
<table border="0" width="100%">
<tr>
<td width="573">
<p align="left">
<a href="addpage.asp" >添加信息</a></p>
<p>　</td>
<td>

<form method="POST" action="display.asp" name="searchform">分类搜索
<p align="right">
<select size="1" name="searchselect">
<option value="company">经销商</option>
<option value="brand">品牌</option>
<option value="type">类型</option>
<option value="address">地址</option>
<option value="contact">联系人</option>
<option value="cellphone">手机</option>
<option value="telephone">座机1</option>
<option value="telephone2">座机2</option>
<option value="telephone3">座机3</option>
<option value="fax">传真</option>
<option value="email">电子邮件</option>
<option value="qq">qq</option>
</select>
<input type="text" name="searchtxt" size="50"><input type="submit" value="提交" name="B1"></p>
</form>
　</td>
</tr>
</table><table width="980" border="0"  bgcolor="#D6E0EF"  >
<tr >
<td bgcolor="#698CC3">ID</td>
<td bgcolor="#698CC3">经销商</td>
<td bgcolor="#698CC3">品牌</td>
<td bgcolor="#698CC3">类型</td>
<td bgcolor="#698CC3">地址</td>
<td bgcolor="#698CC3">联系人</td>
<td bgcolor="#698CC3">手机</td>
<td bgcolor="#698CC3">座机1</td>
<td bgcolor="#698CC3">座机2</td>
<td bgcolor="#698CC3">座机3</td>
<td bgcolor="#698CC3">传真</td>
<td bgcolor="#698CC3">电子邮件</td>
<td bgcolor="#698CC3">QQ</td>
<td bgcolor="#698CC3">删除</td>
<td bgcolor="#698CC3">修改</td>
</tr>
<%
rs.PageSize=10
pagecount=rs.PageCount 
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
for i=1 to rs.PageSize
if rs.EOF then 
  exit for
end if
%>
<tr>
<td  bgcolor="#FFFFFF"><%=rs("id")%></td>
<td  bgcolor="#FFFFFF"><%=rs("company")%></td>
<td  bgcolor="#FFFFFF"><%=rs("brand")%></td>
<td  bgcolor="#FFFFFF"><%=rs("type")%></td>
<td  bgcolor="#FFFFFF"><%=rs("address")%></td>
<td  bgcolor="#FFFFFF"><%=rs("contact")%></td>
<td  bgcolor="#FFFFFF"><%=rs("cellphone")%></td>
<td  bgcolor="#FFFFFF"><%=rs("telephone1")%></td>
<td  bgcolor="#FFFFFF"><%=rs("telephone2")%></td>
<td  bgcolor="#FFFFFF"><%=rs("telephone3")%></td>
<td  bgcolor="#FFFFFF"><%=rs("fax")%></td>
<td  bgcolor="#FFFFFF"><%=rs("email")%></td>
<td  bgcolor="#FFFFFF"><%=rs("qq")%></td>
<td  bgcolor="#FFFFFF"><a href='?act=del&id=<%=rs("id")%>' onclick='javascript: return confirm("你确定要删除吗? ");'>删除</a></td>
<td  bgcolor="#FFFFFF"><a href="editpage.asp?id=<%=rs("id")%>">修改</a></td></tr>
<%
rs.movenext
next
%> 
<table width="980" border="0" > 
<tr>
<td align="left">
<%if page=1 and not page=pagecount then%>
第<%=page%>页 
<%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a> 
<%next%>
<a href="?page=<%=page+1%>">下页</a> 
<%elseif page=pagecount and not page=1 then%>
第<%=page%>页 
<%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a> 
<%next%>
<a href="?page=<%=page-1%>">上页</a> 
<%elseif page<1 then%>没有任何记录！
<%elseif page>pagecount then%>没有任何记录！
<%elseif page=1 and page=pagecount then%>
<%else%>
第<%=page%>页 
<%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a> 
<%next%>
<a href="?page=<%=page-1%>">上页</a> 
<a href="?page=<%=page+1%>">下页</a> </div>
<%end if%>
</td></tr></table></BODY></HTML><%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>