<%
count = 1
pageLen =10
pageNo = request.QueryString("pageNo")
if pageNo="" then pageNo = 1
set rs=server.createobject("adodb.recordset")
sql="select * from comment_clip where id_name='"&clip&"' order by comment_date desc"
rs.open sql,conn,1,1
Nrecord=RS.recordcount
'Rs.pageSize = pageLen
totalPage = Rs.PageCount
Rs.absolutePage = pageNo
next
If Rs.EOF Then
%>
<%Else%>
<%
recNo=1
Do While Not RS.EOF and recNo <= pageLen
%>