ผมทำหน้า paging รันจาก database แล้วใส่รูปตัว edit แต่ำทำไมมันออกมาเยอะจังอ่ะครับ

<%
session.CodePage ="65001"
if Session("user")="" then
	Response.Redirect("../login.asp")
end if
%>
<!--#include file="userheader.asp"-->
<!--#include file="usermenu.asp"-->

<td class="f2">

<table style="width:100%"  border="0" >
	<tr>
    	<td>
        <form action="usernew.asp" method="post" name="usnew">
        <input name="txtsa" type="text" />
        <input name="submit" type="submit" value="ค้นหา" />
        </form>
        </td>
        <td>
        <a href="insertnew.asp">เพิ่มข่าวสาร</a>
        </td>
		<td>
        <a href="inposter.asp">พาดข่าวสาร</a>
        </td>
     </tr>
</table>

<%
dim strsql,rec1
'set con = Server.CreateObject("ADODB.Connection")
'con.open  "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; UID=root; pwd=admin; database=med; CHARSET=utf8;stmt=set names 'utf8';"
strsql = "Select * from News,officer where title like '%" & request.Form("txtsa")  & "%' and news.of_username like '%" & Session("user") & "%' and news.of_username=officer.of_username order by ddate DESC "
set rec1=Server.CreateObject("ADODB.Recordset")
rec1.open strsql,con


'Paging
Dim PageLen,PageNo,TotalRecord,TotalPage,No,intID
	PageLen = 30
	PageNo = Request.QueryString("Page")
	if PageNo = "" Then PageNo = 1
	TotalRecord = rec1.RecordCount
	rec1.PageSize = PageLen
	TotalPage = rec1.PageCount
	rec1.AbsolutePage = PageNo

%>



<table border="0" width="790">
	<tr>
       <th bgcolor="#0066CC"><div align="center" style="color:#FFFFFF" >วันที่ประกาศ</div></th>
        <th  bgcolor="#0066CC"><div align="center" style="color:#FFFFFF">หัวข้อ</div></th>
        <th bgcolor="#0066CC"><div align="center" style="color:#FFFFFF">ผู้ประกาศ</div></th>
    </tr>
<%
	No=1
	Do While Not rec.EOF And No < PageLen
%>
	<tr>
    	<td width="150"><div align="center"><%=rec1.fields("ddate").value%></div></td>
       
        <td width="400"><div align="center"><div align="left"><%=rec1.Fields("title").Value%></div></div></td>
      
        <td width="190"><div align="center"><%=rec1.fields("of_name").value%></div></td>

		<td width="25"><div align="center"></div><a href=""><img src="../images/edit-icon.png" width="25" height="25" border="0" alt="แก้ไข"></a></td>

		<td width="25"><div align="center"><a href=""><img src="../images/edit-clear.png" width="25" height="25" border="0" alt="ลบ"></a></div></td>
    </tr>
<%
No=No+1
rec1.movenext
loop
%>
</table>

	 Page <%=PageNo%>
	<% IF Cint(PageNo) > 1 then %>
	<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=1"><< First</a> 
	<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo-1%>">< Back</a>
	<% End IF%>
	<% IF Cint(PageNo) < TotalPage Then %>
	<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo+1%>">Next ></a> 
	<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=TotalPage%>">Last >></a>
	<% End IF%>
	<br>
	Go to
	<% For intID = 1 To TotalPage%>
	<% if intID = Cint(PageNo) Then%>
	<b><%=intID%></b>
	<%Else%>
	<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=intID%>"><%=intID%></a>
	<%End IF%>
	<%Next%>


<%
'end If
rec1.close()
con.close()
set rec1=nothing
set con=nothing

%>
</td>
</tr>
</table>


<!--#include file="footer.asp"-->