Pagging, viser intet.

Hej..
Jeg vil lave et galleri og har prøvet lidt med et pagging system.
Resultatet blev bare ikke et galleri, men derimod et pagging system der ikke viser noget.

Min koder ser sådan ud:


<%
Side = Request("Side")

If isNumeric(Side) = False Or Side < 1 Then
  Side = 1
End If

Call OpenDataBase

Set objRS = objConn.Execute("Select * From Billeder")

If Not (objRS.BOF Or objRS.EOF) Then
  Antal = 1
  Side2 = Side
  intAntal2 = Antal
  intSideAntal = SideAntal

  Response.Write "Side <B>" & Side & "</B> af <B>" & intSideAntal & "</B>"

  Do While Not objRS.EOF And intX > 0
    Response.Write objRS("Billede")
    intX = intX - 1
    objRS.MoveNext
  Loop

End If

objRS.Close
Set objRS = Nothing

Response.Write "<Br>"
Response.Write "<Br>"
Response.Write "Gå til side "

For intNum = 1 To intSideAntal
  Response.Write "<A Href=""?Side=" & intNummer & ">" & intNummer & "</A>"
Next

Response.Write "<Br>"
Response.Write "<Br>"

If Clng(Side) > 1 Then
  Response.Write "<A Href=""?Side=" & Side - 1 & ">&lt;&lt;</A>"
Else
  Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(Side) < Clng(intSideAntal) Then
  Response.Write "<A Href=""?Side=" & Side + 1 & ">&gt;&gt;</A> "
Else
  Response.Write "&gt;&gt;"
End If

%>


- Håber I kan hjælpe.