Visning af varer

Hej Experter.

Jeg har et problem med at få vist nogle varer hentet fra en asp database på den rigtige måde.
Funktionen skal vælge varer fra databasen alt efter hvilken kategori brugeren ahr valgt og herefter vise fire varer pr side og regne ud hvor mange sider det hele vil fylde. Dette skal bruges til at udskrive en form for sidetæller på siden som illustrerer overfor brugeren hvor mange sider der er at navigere i. Navigationen mellem de forskellige sider foregår således v. hj. af dette sideindex.

Jeg har følgende kode, som ser ud til at gøre noget rigtigt og så alligevel ikke. Der bliver altid udskrevet 4 varer på siden uanset hvilken side man er på. Og hvis man så til gengæld har 5 varer i en vises kun de 4 første og der indikeres ikke en side 2.

Hvad går der galt?


<%@language="vbscript"%>
<!--#include file="conn.asp"-->

<%
set rs=server.createobject("ADODB.recordset")

aktuelSide=0
aktuelSide=request.Querystring("aktuelSide")

varerprSide = 4
startPunkt = ((aktuelSide-1)*varerprSide)+1

If startPunkt < 4 Then
    startPunkt = 4
End If

strSQL = "SELECT TOP "&varerprSide&" * from (SELECT TOP "&startpunkt&" * FROM vare where kategoriid="&dkategoriid&" ORDER by vareid DESC) ORDER by vareid ASC"

x=0

rs.open strSQL,conn

do while not rs.eof AND not rs.eof

!!! Her er en større definition af udskriften af varerne i som er fjernet !!!       

rs.movenext
loop

rs.close

' sidetal:
strSQL = "SELECT count(*) AS antal FROM vare WHERE kategoriid = "&dkategoriid
rs.open strSQL,conn

antalVarer = rs("antal")
antalSider = CLng(antalVarer/varerprSide)

If antalSider > 1 Then
udskrivSider = ""
   
    For i = 1 to antalSider
        if i = aktuelSide Then
        udskrivSider = udskrivSider & "<img src='grafik/tal/"&i&"_aktiv.gif' border='0'>"
    Else
            udskrivSider = udskrivSider & "<a href='vis.asp?aktuelSide="&i&"&kategoriid="&dkategoriid&"'><img src='grafik/tal/"&i&".gif' border='0'></a>"
    End If
    Next
End If

rs.close
set rs=nothing
conn.close
set conn=nothing



%>