急！请高手帮帮忙，小弟在线等，我这个代码为什么一运行就进死循环？
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from guestbook order by 日期 desc"
rs.open sql,conn,2,3
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title>Class 10 GuestBook</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<base target="_self">
<script language="JavaScript">
<!--
function go(src,q)
{
var ret;
ret = confirm(q);
if(ret!=false)window.location=src;
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!-- ImageReady Slices (未标题-2) -->
<div align="center">
<table id="__01" width="780" height="600" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3">
<img src="images/index_01.gif" width="780" height="200" alt=""></td>
</tr>
<tr>
<td colspan="3" width="780" height="27">
<a href="#write">留言填写</a> </td>
</tr>
<!--循环开始-->
<%while not rs.EOF%>
<tr>
<td colspan="3" background="images/index_03.gif" width="780" height="7">
</td>
</tr>
<tr>
<td rowspan="6" background="images/index_04.gif" width="5" height="147">
</td>
<td width="770" height="17">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table2">
<tr>
<td>来自<%=rs("来自")%>的<%=rs("作者")%>说：</td>
<td>
<p align="right">日期：<%=rs("日期")%></td>
</tr>
</table>
</td>
<td rowspan="6" background="images/index_06.gif" width="5" height="147">
</td>
</tr>
<tr>
<td>
<img src="images/index_07.gif" width="770" height="7" alt=""></td>
</tr>
<tr>
<td width="770" height="60" valign="top" >
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table4">
<tr>
<td><%=rs("内容")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<img src="images/index_09.gif" width="770" height="20" alt=""></td>
</tr>
<tr>
<td width="770" height="38">
<%if rs("站长回复")="" then%>
请等待站长给您回复^_^
<%if session("longin")=1 then%>
<a target="_blank" href="rep.asp?id=<%=rs("id")%>">给他回复</a>
<a href='javascript:go("save.asp?action=del&id=<%=rs("id")%>","您确定要删除吗？")'>删除该留言</a>
<%end if%>
<%else%>
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table1">
<tr>
<td>站长回复：</td>
<td>
<p align="right">回复日期：<%=rs("回复日期")%></td>
</tr>
<tr>
<td colspan="2"><%=rs("站长回复")%></td>
</tr>
</table>
<%end if%>
</td>
</tr>
<tr>
<td>
<img src="images/index_11.gif" width="770" height="5" alt=""></td>
</tr>
<%
rs.movenext
wend
%>
<!--循环结束-->
<tr>
<td colspan="3" width="780" height="219" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table3">
<tr>
<td><!--分页代码加这里 --> </td>
</tr>
</table>
<a name="write"></a>
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table5">
<tr>
<td>
<form method="POST" action="save.asp?action=save">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table6">
<tr>
<td>你的名字：<input type="text" name="name" size="20"></td>
<td>来自：<input type="text" name="from" size="20"></td>
</tr>
<tr>
<td colspan="2">留言内容：</td>
</tr>
<tr>
<td colspan="2">
<textarea rows="10" name="nr" cols="108"></textarea></td>
</tr>
</table>
<p align="center">
<input type="submit" value="OK，就这样" name="B1">
<input type="reset" value="不行，我要重写" name="B2"></p>
<script for="B1" event="on click" language="vbscript">
name=name.value
from=from.value
nr=nr.value
if name="" then
MsgBox"你是无名大侠？"
else if from="" then
MsgBox"火星人还是地球人？"
else if nr="" then
MsgBox"小子想灌水？"
end if
</script>
</form>
<%if session("longin")<>1 then%><p align="right"><a href="admin.asp">站长登陆</a><%end if%>
<%if session("longin")=1 then%><p align="right"><a href="admin.asp?action=logout">退出登陆</a><%end if%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!-- End ImageReady Slices -->
</body>
</html>
