Pageing virker ikke?

Hejsa eksperter!

Jeg har et script som skulle vise x antal poster på hver side, men det virker ikke og jeg her desværre helt blank i hvad der går galt??? her er min script:

'forinden åbner jeg clients
<%
Set Connwhatpages = Server.CreateObject("ADODB.Connection")
Connwhatpages.Open MM_dataconn_STRING

strSQL = "SELECT Count(*) as maxID FROM clients"
Set rsshow = Connwhatpages.Execute(strSQL)

start = request.querystring("page")
naeste25 = start+ logindata("Unumberprpage")
forrige25 = start- logindata("Unumberprpage")
clientRecordCount = Connwhatpages.Count
pageitems = logindata("Unumberprpage")
page = request("page")
if page = "" then page = 0
mySQLLIMIT = " TOP " & page*pageitems & ", " & pageitems
maxRecords = rsshow("maxID")
fromrecords = pageitems*page
torecords = pageitems*(page+1)
if maxRecords < torecords then
torecords = maxRecords
end if
response.write "<FONT color=maroon>Showing: " & fromrecords & "-" & torecords & "/" & maxRecords & "</font>"
rsshow.Close
%>

Dette er så lige inden mit loop:

DO WHILE NOT clients.EOF and clientRecordCount <> clientzoologindata("Unumberprpage")
if start > 0 then
  start = start - 1
else
  clientRecordCount = clientRecordCount + 1

###### x-antal date vist

clients.MoveNext
loop