我的搜索留言记录不显示？？？
我做了留言本添加搜索留言页面，当我点击搜素留言后没反应？？？请问大家
具体是：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<%
Dim zd
zd = "Name"
If (request("zd") <> "") Then
zd = request("zd")
End If
Dim zdz
zdz = "Name"
If (request("zdz") <> "") Then
zdz = request("zdz")
End If
Set rs_m = Server.CreateObject("ADODB.Recordset")'用Recordset对象创建一个记录集，并存储记录rs_m。
Sql ="SELECT * FROM main WHERE Kg=true and '%zd%' like '%zdz%' ORDER BY Gd ASC,id DESC"
rs_m.open Sql, conn,1,1
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www. InstanceBegin template="/Templates/mb.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<!-- InstanceBeginEditable name="doctitle" -->
<title>学好网页>>在线留言</title>
<!-- InstanceEndEditable -->
<!-- InstanceBeginEditable name="head" -->
<style type="text/css">
<!--
.STYLE5 {
font-size: 18px;
color: #FF0000;
}
-->
</style>
<!-- InstanceEndEditable -->
<link href="css/css.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="800" height="40" border="0" align="center" cellpadding="0" cellspacing="0" background="images/dh.jpg" id="tbbg1">
<tr>
<td width="50" align="right">今天是：</td>
<td width="200"><div id="jnkc"><script>setInterval("jnkc.innerHTML=new Date().toLocaleString()+' 星期'+'日一二三四五六'.charAt(new Date().getDay());",1000);
</script></div></td>
<td width="500"><marquee direction="left" scrollamount="3" onmouseover=this.stop() onmouseout=this.start()>
感谢各位朋友前来欣赏我的留言本！！！ </marquee>
</td>
<td width="50"> </td>
</tr>
</table>
<table width="800" height="150" border="0" align="center" cellpadding="0" cellspacing="0" id="tbbg2">
<tr>
<td><img src="images/top.gif" width="800" height="150" /><!-- InstanceBeginEditable name="可编辑区域1" -->
<table width="800" height="30" border="0" align="center" cellpadding="0" cellspacing="0" background="images/dh.jpg" id="tbbg3">
<tr>
<td width="300" align="center">网站名称>>>留言本</td>
<td width="200" align="left">当前为：查看留言</td>
<td width="300" align="center"><a href="insert.asp">我要留言</a> 查看留言 管理留言 搜索留言 <a href="login.asp">管理登陆</a></td>
</tr>
</table>
<!-- InstanceEndEditable --><!-- InstanceBeginEditable name="可编辑区域2" -->
<%
If rs_m.eof Then
%>
<table width="100%" height="50" border="1" cellpadding="0" cellspacing="0" id="zbbg1-5">
<tr>
<td align="center" class="STYLE5"><%response.write "<strong>搜索您的全部留言内容</strong>"%></td>
</tr>
</table>
<%
Else '否则
rs_m.pagesize=5 '这里指定每页的记录条数，设置为5时，每5条记录为当前页面所显示的记录
page=clng(Request("page")) '这里用 Request 对象来获取 page.asp中的值page,然后输出变量page
if page<1 then page=1 ' 这里判断控制限制，当第一页面所输出的情况
if page>rs_m.pagecount then page=rs_m.pagecount
rs_m.AbsolutePage = page 'rs.absolutepage，这个也是个内置的属性，，它代表的意思就是将page变量的数值指定为当前页。
%>
<table width="800" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#AF94C1" background="images/body1.jpg" id="zbbg1">
<tr>
<td width="50" height="30" align="center">序号</td>
<td width="200" align="center">留言标题</td>
<td width="80" align="center">留言人</td>
<td width="130" align="center">留言时间</td>
<td width="260" align="center">留言内容</td>
<td width="80" align="center">留言查看次数</td>
</tr>
<%for i=1 to rs_m.pagesize %>
<tr>
<td height="30" align="center"><%=rs_m("id")%></td>
<td align="center"><%=rs_m("Bt")%></td>
<td align="center"><%=rs_m("Name")%></td>
<td align="center"><%=rs_m("Date")%></td>
<td align="center"><%=rs_m("Content")%></td>
<td align="center"><%=rs_m("jsq")%></td>
</tr>
<%
'循环结束语句和判断结束语句等
rs_m.movenext
If rs_m.EOF Then
Exit For
End If
Next
end if
%>
<tr>
<td height="50" colspan="6" align="center"><form id="form1" name="form1" method="post" action="">
搜索留言：
<input name="zdz" type="text" id="zdz" size="20" />
<select name="zd" id="zd">
<option value="Name">留言人姓名</option>
<option value="Bt">留言标题</option>
<option value="Content">留言内容</option>
</select>
<input type="submit" name="Submit" value="搜索留言" />
</form>
</td>
</tr>
</table>
