flera sidor, FAQ

Har använt mig av det som står i FAQ om atat dela upp recordset på flera sidor. INga problem förutom att när jag klickar för att gå till nästa sida så får jag hela databasen listat, alltså inte det som jag sökte på från början. Någon?

<%
Dim visainfo
mypage = Request("whichpage")
If mypage = "" then
mypage = 1
End If
mypagesize = 10

Set fritid = Server.CreateObject("ADODB.Connection")
fritid.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\Frontpage Webs\Resport\dbboende\db\adressbok.mdb"

visainfo = Request.Form("inbox")

SQL = "SELECT * FROM adressbok ORDER BY Kundnamn ASC"

If Request.Form("TypeSearch") = "Kundnamn" Then
SQL = "SELECT * FROM adressbok WHERE Kundnamn = '"& visainfo &"'"
End If

If Request.Form("TypeSearch") = "Ort" Then
SQL = "SELECT * FROM adressbok WHERE Ort = '"& visainfo &"'"
End If

If Request.Form("TypeSearch") = "Kedjanamn" Then
SQL = "SELECT * FROM adressbok WHERE Kedjanamn = '"& visainfo &"'"
End If

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
rstemp.Open SQL, fritid%>

<%If rstemp.EOF then%>

Det finns inget som matchar din sökning!
<%Else%>
<%If Not rstemp.BOF Then%>
Sökresultat
<th width="215">Namn:</th>
<th width="105">Ort:</th>
</TR>
</table>
<%
rstemp.movefirst
rstemp.pagesize = mypagesize
maxcount = Cint(rstemp.pagecount)
rstemp.absolutepage = mypage
howmanyrecs = 0
howmanyfields = rstemp.fields.count -1
Do While Not RStemp.EOF AND howmanyrecs < rstemp.pagesize
counter = counter + 1
If counter mod 2 = 0 then
color = "CCCC99"
Else
color = "CCCC66"
End If%>
<A HREF=infoboende.asp?ID=<%=rstemp("ID")%>><%=rstemp("Kundnamn")%>
<%=rstemp("Ort")%>
<%rstemp.movenext
howmanyrecs = howmanyrecs + 1
Loop
rstemp.close
Set rstemp = nothing%>
<%If maxcount <> 0 then
response.write "sida " & mypage & " av " & maxcount & "<br>" & sidor:
pad = "0"
scriptname = request.Servervariables("script_name")
for counter = 1 to maxcount
If counter >= 10 then
pad = ""
End If
ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
response.write ref & " "
if counter mod 10 = 0 then
response.write "<br>"
End If
Next
End If
End If
End If
%>