dela upp på flera sidor

Får upp listan på sökningen men när jag sen klickar vidare för att se på övriga sökresultat får jag upp alla poster i databasen. Måste väl dela upp dem men hur? Sen så har jag 2 rader med att sökningen inte matchar men den ena fungerar bara men ar jag bort den andra så får jag en massa felmeddelanden.
En tredje sak är att informationen hämtas från en söksida därför behöver jag inte rader med "<form method="POST" action="addsearch.asp" men tar jag bort får jag återigen felmeddelande.
Hoppas ngn snäll människa kan fixa till koden åt mig eller förklara hur jag ska bära mig åt.
Hela koden följer nedan

<%
Dim visainfo
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\wwwroot\fritid\databas\adressbok.mdb"
visainfo = Request.Form("inbox")
SQLStmt = "SELECT * FROM adressbok ORDER BY Ort"
SET RS = Connection.Execute(SQLStmt)
%> <%If Request.Form("TypeSearch") = "Namn" Then
SQLStmt = "SELECT * FROM adressbok WHERE Namn = '"& visainfo &"'"
End If
If Request.Form("TypeSearch") = "Ort" Then
SQLStmt = "SELECT * FROM adressbok WHERE Ort = '"& visainfo &"'"
End If
If Request.Form("TypeSearch") = "Kedjanamn" Then
SQLStmt = "SELECT * FROM adressbok WHERE Kedjanamn = '"& visainfo &"'"
End If
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQLStmt, Connection%> <%dim post, mxx, gid
post = request.querystring("post")
mxx = 5
gid = request.querystring("gid")
SQLstmt = "SELECT * FROM adressbok ORDER BY Namn;"
set objRec = Connection.execute(SQLstmt)%>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=456>
<TR><TD align=middle bgColor=#808000 colSpan=2><FONT color=#ffffff face="Verdana, Arial, Helvetica" size=1 align="center"><B>Sökresultat</B></FONT></TD></TR></table><br>
<%If rs.BOF and rs.EOF Then%><font color="#000000" face="Verdana, Arial, Helvetica" size=2><b>Det 
finns inget som matchar din sökning!</b></font> <% ELSE %> 
<table border="0" width="456" cellspacing="1" cellpadding="0">
<tr><td width="246" bgcolor="#F40000"><strong><small><font face="Arial">Namn</font></small></strong></td><td width="205" bgcolor="#F40000"><small><font face="Arial"><strong>Ort</strong></font></small></td></tr>
  <% DO UNTIL RS.EOF %> 
  <form method="POST" action="addsearch.asp" name=produkt>
<tr><td width="246"><strong><small><a href="mainsearch03.asp?ID=<%= RS("Namn") %>"><%= RS("Namn") %></a></small></strong></td>
      <td width="205" align=right><small><font face="Arial" color="#000000"><strong><%= RS("Ort") %></strong></font></small></td>
    </tr></form>
  <%RS.MoveNext
Loop%> </table><br><center><br>
  <%if rs.BOF and rs.EOF then
	response.write "Det finns tyvärr inga artiklar i den här kategorien."
else
antal = UBound(objRec.GetRows, 2) + 1
if cint(antal) > cint(mxx) then
	response.write "<b>Sida</b> "
	antalIter = antal / mxx
	if antalIter - int(antalIter) > 0 then antalIter = int(antalIter)+1
	for s = 1 to antalIter
		if cint(post) = (s-1) * mxx then%><% =s %> <%else%><a href="mainsearch02test.asp?post=<% =(s-1) * mxx %>&mxx=<% =mxx %>&gid=<% =gid %>"><% =s %></a> <%end if
	next
end if%> 
</center>
<% End If %>
<%RS.Close
Connection.Close
End If%>

------------------
//Mav