Paging-panik

Jag vet att det finns massor av inlägg ang. paging.
Jag har kollat och försökt som en galning, men får helt enkelt inte till det.
Vore otroligt tacksam om jag kunde få hjälp med någon form av paging till detta script:

<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db%>

<table width="400" border="0" cellpadding="3">

<%Set RecSet=Conn.Execute("Select * From galleri Where sort='" & Request.Querystring("kat") & "' Order By namn")

If RecSet.EOF Then%>
  <tr>
    <td>Inga bilder inlagda i kategorin <%=Request.Querystring("kat")%>!</td>
  </tr>
<%Else
Do Until RecSet.EOF
Set RS=Conn.Execute("Select * From galleri Where namn='" & RecSet("namn") & "'")
Set ReS=Conn.Execute("Select Top 1 * From bilder Where namn='" & RecSet("namn") & "' and visa=True Order By datum desc")
Set Bilder=Conn.Execute("Select Count(*) As antal From bilder Where namn='" & RecSet("namn") & "'")

If ReS.EOF Then%>
  <tr>
    <td width="100" valign="top" nowrap>
 	<img src="pics/tom.gif" width="90" border="1">
    </td>
    <td valign="top" width="5" background="bilder/dotV56.gif">&nbsp;</td>
    <td valign="top" width="295">
         <%=RecSet("namn")%> (Inga bilder)<br>
         Skapad: <%=RecSet("datum")%><br>
        <%If Len(RS("info")) > 60 Then%><%= Left(Replace(RS("info"), vbCrLf, "<br>" ),60)%>..<%Else%><%=Replace(RS("info"), vbCrLf, "<br>" )%><%End If%>
    </td>
  </tr>
  <tr>
    <td colspan="3" height="10"><img src="bilder/dot400.gif"></td>
  </tr>
<%Else%>
  <tr>
    <td width="100" valign="top" nowrap>
 	<a href="visa.asp?id=<%=RecSet("namn")%>"><img src="pics/<%=ReS("Bild")%>" alt="Öppna <%=RecSet("namn")%>" width="90" border="1"></a>
    </td>
    <td valign="top" width="5" background="bilder/dotV56.gif">&nbsp;</td>
    <td valign="top" width="295"> <b><a href="visa.asp?id=<%=RecSet("namn")%>"><%=RecSet("namn")%></a></b> (<%=Bilder("Antal")%> 
      <%If Bilder("Antal") = 1 Then%>
      bild 
      <%Else%>
      bilder <%End If%>)<br>
	  
         Uppdaterat: <%=RecSet("datum")%><br>
        <br>
      <%If Len(RS("info")) > 60 Then%><%= Left(Replace(RS("info"), vbCrLf, "<br>" ),60)%>..<%Else%><%=Replace(RS("info"), vbCrLf, "<br>" )%><%End If%>
    </td>
  </tr>
  <tr>
  <tr>
    <td colspan="3" height="10"><img src="bilder/dot400.gif"></td>
  </tr>
<%End If
RecSet.MoveNext
Loop
End If%>

Since jag inte har orken att göra iordning detta åt dig kan jag bara tipsa om Vides utmärkta artikel på webeye.nu. Den kan säkert hjälpa dig, Korak.

Har kollat men får ändå inte till det.
Förstår inte hur jag ska baka in det i alla IF och ELSE, det blir bara fel.
Ingen som har en enkel variant på hur jag kan göra?

Har du det där scriptet igång på webben så man kan se hur det blir idag?
Funderar lite på vad denna sqlsats gör:

Set ReS=Conn.Execute("Select Top 1 * From bilder Where namn='" & RecSet("namn") & "' and visa=True Order By datum desc")

PatrikBs genomgång kanske kan hjälpa dig lite
http://www.webforum.nu/showthread.php?s=&threadid=13551

Jag lämnade ute lite av koden som jag inte trodde hade någon betydelse för att göra inlägget mindre.
Du kan se scriptet i aktion här:
http://www.eskobar.nu/galleri/

Det är alltså sidan man kommer till när man :: Väljer kategori :: som jag skulle behöva ha in en paging.