paging af mysql-søgeresultat

Jeg sidder og er i gang med et mindre paging-system hvor der søges i en mysql-database, og her virker alt som det skal.

Jeg har bare et enkelt problem; nemlig hvis der er RIGTIG mange resultater... det jeg har siddet og arbejdet på, men som desværre ikke er lykkedes er at få sammen output som fx google.com, hvor der er en frem og tilbage knap (det har jeg) og så ellers MAKS 10 tal som refererer til siden man vil hen til... jeg har selve tallene, men jeg kan ikke få det minimeret til der kun er 10...

koden:

<%

mypage = request.querystring(\"side\")
if mypage = \"\" then
mypage=\"1\"
end if

    name = Trim(Request(\"name\"))
    postnr = Trim(Request(\"postnr\"))
    style = Trim(Request(\"style\"))

if right(request.servervariables(\"http_referer\"),12) = \"storeloc.htm\" then

    If Len(name) = 0 and Len(postnr) = 0 and Len(style) = 0 Then
            Response.Clear
            Response.Redirect(\"storeloc.htm\")
    Else
            name = Replace(name,\"\'\",\"\'\'\")
            postnr = Replace(postnr,\"\'\",\"\'\'\")
    End If
else
end if

Set rs = Server.CreateObject(\"ADODB.Connection\")
rs.Open \"DRIVER=mysql;SERVER=localhost;DATABASE=s-oliver;UID=;PWD=;\"
    if style = \"women\" then
        SQL = \"noget\"
    elseif style = \"girls\" then
        SQL = \"noget andet\"
    elseif style = \"kids\" then
        SQL = \"noget tredie\"
    else
        SQL = \"noget fjerde\"
    end if
rs.CursorLocation = 3
Set rs = rs.Execute(SQL)

If (rs.BOF AND rs.EOF) Then
    Response.Write \"no results found <br /><br />\"
Else

rs.movefirst
rs.pagesize=1
maxpages=rs.pagecount
maxrecs=rs.pagesize
rs.absolutepage=mypage
howmanyrecs=0

    Response.Write \"resultat \" & mypage & \" af \" & maxpages & \"<br /><br/>\" & VbCrLf

DO UNTIL rs.EOF OR howmanyrecs>=maxrecs

    Response.Write \"\" & rs(\"navn\") & \"<br />\" & rs(\"adr\") & \"<br />\" & rs(\"postnr\") & \" \" & rs(\"bynavn\") & \"<br/><br />\" & VbCrLf

rs.MoveNext
howmanyrecs=howmanyrecs+1
Loop

if not mypage = \"1\" then
    response.write \"<a href=\"\"search.asp?side=\" & (mypage - 1) & \"&name=\" & name & \"&postnr=\" & postnr & \"&style=\" & style & \"\"\">Back</a> \" & VbCrLf
end if

end if
    Response.Write \"[\"
for counter=\"1\" to maxpages
If counter >= maxpages then
end if
    response.write \"<a href=\"\"search.asp?side=\" & counter & \"&name=\" & name & \"&postnr=\" & postnr & \"&style=\" & style & \"\"\">\" & counter & \"\" & counter & \"</a>\" & VbCrLf
if counter <> maxpages then response.write \" \"
next
    Response.Write \"]\"
If clng(mypage) < clng(maxpages) then
    response.write \" <a href=\"\"search.asp?side=\" & mypage + 1 & \"&name=\" & name & \"&postnr=\" & postnr & \"&style=\" & style & \"\"\">Next </a>\" & VbCrLf
end if

rs.Close
Set rs = Nothing

%>