新闻的评论模块无法显示，请哪大虾帮帮忙哈，谢谢！！！
写了一个代码，是用来显示用户对新闻的评论的模块，刚开始的时候评论内容是可以正确添加的，但是当刷新一下，他就会自动增加刚才添加的评论，后来把这句注销掉'sOper = Request.QueryString("oper")再做了些小改动，不知道为什么就变成不能添加了哦，还有就是为什么我明明有排序的语句，可是评论出来的结果却是无序的，请哪位高手帮帮忙啊，急用的，感激不尽！！！代码如下：
<%
'任何人都可以添加评论，如果不写姓名，则认为是匿名
'新闻翻页排序
Dim CurPage,PERPAGE
'每页10条评论记录
PERPAGE = 10
'读取页码参数page，如果page为空，则为第一页
If Request("page") = "" Then
CurPage = 1
Else
CurPage = CInt(Request("page"))
End If
'得到新闻编号，在表DISCUSS中查找此新闻的评论，按时间先后显示
Dim newsid
newsid = Request.QueryString("newsid")
'判断操作标记，是否为添加评论
'sOper = Request.QueryString("oper")
'添加操作
If request.Form("sbok")="提 交" Then
'添加评论到数据库表DISCUSS
discussposterName = Request.Form("postername")
discussposttime=now()
If discussposterName = "" Then
discussposterName = "匿名"
End If
discusscontent = Request.Form("content")
If discusscontent = "" Then
discusscontent = "--"
End If
sql = "INSERT INTO DISCUSS(discussPOSTERNAME, discussCONTENT, discussNEWSID,discussposttime) VALUES('" & discussposterName &"','" & discussContent & "','" & discussnewsid & "','"&discussposttime&"')"
'执行插入操作
conn.Execute(sql)
End If
Dim rs,rsNews
'记录集对象
Set rsNews=Server.CreateObject("ADODB.RecordSet")
'取得新闻题目
rsNews.open "SELECT newsTITLE FROM NEWS WHERE newsID='"&newsid& "'",conn,1,1
If Not rsNews.EOF Then
'如果记录集不为空，则取得新闻题目
newsTitle = rsNews("newsTITLE")
End If
'关闭记录集
rsNews.Close
Set rs=Server.CreateObject("ADODB.RecordSet")
'读取指定新闻的所有评论
sqlString="SELECT * FROM DISCUSS WHERE discussNEWSID='" &newsid & "'ORDER BY discussPOSTTIME DESC"
'执行查询，打开记录集
rs.Open sqlString, conn, 1, 1
%>
<center><h4><font color="red"><B>评论新闻题目：<%=newsTitle%></B></font><h4></center>
<%
'如果记录集为空
If rs.EOF Then
'则关闭记录集
rs.Close
'显示目前还没有评论
Response.Write "此文章暂无评论"
Else
%>
<p>
<table border="1" align="center" width="80%" bordercolorlight="#FFFFFF" bordercolordark="#000080" bordercolor="#FFFFFF" style="word-spacing: 0; margin-top: 0; margin-bottom: 0" cellspacing="0" cellpadding="0">
<%
'分页显示评论内容
Dim i
'设置每页记录数
rs.PageSize = PERPAGE
'设置当前页码
rs.AbsolutePage = CurPage
'循环显示每一项
For i = 1 To rs.PageSize
'显示评论发表人、发表时间以及内容
%>
<tr><td align=left bgcolor="#99CCFF" width="60%"><%=rs("discussPOSTERNAME")%> <%=rs("discussposttime")%></td>
<td align=right bgcolor="#99CCFF" width="40%">
<a href="discussDelt.asp?discussid=<%=rs("discussId")%>" onclick="return newwin(this.href)">删除</a>
<%
'End If
%>
</td>
</tr>
<tr><td colspan="2"><%=rs("discussCONTENT")%></td></tr>
<%
'移至下一条记录
rs.MoveNext()
'如果到达记录集结尾，则退出
If rs.EOF Then
i = i + 1
Exit For
End If
Next
%>
</table></p>
<div align="center">
<%
'显示分页信息
Response.Write "<table align=center border=0 width='90%'><tr bgcolor=#ffffff><td>第"&cstr(CurPage)&"页/总"&cstr(rs.pagecount)&"页 本页"&cstr(i-1)&"条/总"&cstr(rs.recordcount)&"条"
'设置首页和上一页链接
If CurPage = 1 Then
Response.Write "首页 上一页 "
Else
Response.Write "<a href='newDiscuss.asp?page=1&id=" + newsid + "'>首页</a> <a href='newDiscuss.asp?page=" + cstr(CurPage-1) + "&id=" + newsid + "'>上一页</a> "
End If
'设置下一页和尾页链接
If CurPage = rs.PageCount Then
Response.Write "下一页 尾页"
Else
Response.Write "<a href='newDiscuss.asp?page=" + cstr(CurPage+1) + "&id=" + newsid + "'>下一页</a> <a href='newDiscuss.asp?page=" + cstr(rs.pagecount) + "&id=" + newsid + "'>尾页</a>"
End If
%>
</td>
</tr>
</table>
</p>
<%
'关闭记录集
rs.Close
End If
%>
</div>
<form action="newDiscuss.asp?id=<%=newsid%>" method="post" name="form" id="form">
<table border="1" align="center" width="80%" bordercolorlight="#FFFFFF" bordercolordark="#000080" bordercolor="#FFFFFF" style="word-spacing: 0; margin-top: 0; margin-bottom: 0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" bgcolor="#99CCFF"> 用户名
<input type="text" size="97" name="postername"></td></tr>
<tr><td align="center">
<textarea rows="5" name="content" cols="127" style="font-family: 宋体; font-size: 9pt">
</textarea></td></tr>
</table>
<p align="center"><input type="submit" value=" 提 交 " name="sbok">
</p>
