Hjælp til paging i større script

well... var måske en ide du postede noget kode hvis du ønsker hjælp.... ellers bliver det lidt småsvært.

Koden er ret lang som sagt, men paster den dog her:


<%
if session("login") <> "yes mate" then
response.redirect "http://www.case-modding.dk"
else
end if
Select Case session("status")
Case "SiteAdmin"

Case "ArtikelAdmin"

Case Else
response.redirect "http://www.case-modding.dk"

End Select


session("menu") = "Artikel"

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If


%>
<!-- #INCLUDE FILE="../top.asp" -->

<script type="text/javascript">

function popup(url,name,win_height,win_width) {
    pos_horizon = ((screen.width/2)-(win_width/2));
    pos_vertical = ((screen.height/2)-(win_height/2));
    window.open(url,name,"width="+win_width+",height="+win_height+",top="+pos_vertical+",left="+pos_horizon+",scrollbars=yes");
    }


</script>

<hr color="#CCCCCC" size="1">
<center>

            <hr color="#CCCCCC" size="1">
            <br>

<table id="table7" style="BORDER-COLLAPSE: collapse" borderColor="#000000" cellPadding="0" width="100%" border="0">
<%
strSQL = "SELECT * FROM cw_case"
Set RS = Conn.Execute(strSQL)
x = 0
Do While NOT RS.EOF
On Error resume next

response.write "<tr>"

response.write "<td style=""font-family: Verdana; font-size: 8pt; color: 666666"">&nbsp;</td>"
response.write "<td style=""font-family: Verdana; font-size: 8pt; color: 666666"">"
response.write "<img border=""0"" src=""../pic/forum/button.gif"" width=""6"" height=""11"">"
response.write "&nbsp;<a href=""?kat=" & (rs("id")) & """>" & (rs("navn")) & "</a></td>"

rs.MoveNext

response.write "<td style=""font-family: Verdana; font-size: 8pt; color: 666666"">&nbsp;</td>"
response.write "<td style=""font-family: Verdana; font-size: 8pt; color: 666666"">"
response.write "<img border=""0"" src=""../pic/forum/button.gif"" width=""6"" height=""11"">"
response.write "&nbsp;<a href=""?kat=" & (rs("id")) & """>" & (rs("navn")) & "</a></td>"

rs.MoveNext

response.write "<td style=""font-family: Verdana; font-size: 8pt; color: 666666"">&nbsp;</td>"
response.write "<td style=""font-family: Verdana; font-size: 8pt; color: 666666"">"
response.write "<img border=""0"" src=""../pic/forum/button.gif"" width=""6"" height=""11"">"
response.write "&nbsp;<a href=""?kat=" & (rs("id")) & """>" & (rs("navn")) & "</a></td>"

rs.MoveNext

response.write "<td style=""font-family: Verdana; font-size: 8pt; color: 666666"">&nbsp;</td>"
response.write "<td style=""font-family: Verdana; font-size: 8pt; color: 666666"">"
response.write "<img border=""0"" src=""../pic/forum/button.gif"" width=""6"" height=""11"">"
response.write "&nbsp;<a href=""?kat=" & (rs("id")) & """>" & (rs("navn")) & "</a></td>"

rs.MoveNext

response.write "</tr>"

Loop

Kategori = request.querystring("kat")
Set rs = Server.CreateObject("ADODB.RecordSet")
if Kategori = 0 OR Kategori = "" then
strSQL = "SELECT * FROM cw_case_mods WHERE status = 'Godkendt' ORDER BY dato, tid Desc"
titel = "De nyeste:"
else
strSQL = "SELECT * FROM cw_case_mods WHERE status = 'Godkendt' AND Kategori = '" & Kategori & "' ORDER BY dato, tid Desc"

strSQLKat = "SELECT * FROM cw_case WHERE id = " & Kategori
set kat = Conn.Execute(strSQLKat)
titel = (kat("navn")) & ":"
end if
%>
            </table>
            <br><hr color="#CCCCCC" size="1">
            <p><b><%= titel %></b></p>

                            <table border="0" width="100%" cellpadding="0" style="border-collapse: collapse">
                <tr>
                    <td width="48%" valign="top">
                    <table border="0" width="100%" cellpadding="4" style="border-collapse: collapse">
                        <tr>
                            <td>
                            <table border="0" width="100%" cellpadding="4" style="border-collapse: collapse">
                                <tr>
                                    <td>

<!-- VENSTRE SIDE -->
<%
set rs = Conn.Execute(strSQL)
i = 0

'<paging>
    rs.PageSize = 5
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
'</paging>
'function cont(kat,intRecCount)
    'if kat = 0 then
    '    cont=true
    'else

'if intRecCount >0 then cont = true else cont = false
'       
'    end if
'end function

Do While not i = 5
'Do While Not rs.EOF And intRecCount > 0
'do while not i = 10 'and cont(kat,intRecCount)
i = i + 1
if rs.EOF then
else
%>
                            <table border="0" width="100%" cellpadding="3" bordercolor="#CCCCCC" style="border-collapse: collapse">
                                <tr>
                                    <td width="100%" style="border-right-style: none; border-right-width: medium" colspan="2">
                                    <b><%= (rs("mod_navn")) %> - <%= (rs("dato")) %></b></td>
                                </tr>
                                <tr>
                                    <td width="40%" style="border-right-style: none; border-right-width: medium" valign="top">
                                    <p align="center">
<%
if (rs("thumb")) = "" then
billede = "<img border=""1"" src=""" & BilledeSti & "intet.jpg"">"
else
billede = "<img border=""1"" src=""" & (rs("thumb")) & """>"
end if
response.write billede
strSQL = "SELECT id FROM cw_brugere WHERE nick = '" & (rs("nick")) & "'"
set us = Conn.Execute(strSQL)
%>
                                    </td>
                                    <td width="55%" style="border-left-style: none; border-left-width: medium" valign="top">
                                    <a href="#" onclick="popup('http://www.case-modding.dk/profil/vis.asp?id=<%= (US("id")) %>','Profilvisning','420','500');"><%= (rs("nick")) %></a><br>
                                    <br>
                                    Stemmer: <%= (rs("stemmer")) %><br>
                                    Kommentarer: <%= (rs("kommentarer")) %><br>
                                    <br>
                                    <%= (rs("karakter")) %></td>
                                </tr>
                            </table>   
<%
end if
intRecCount = intRecCount - 1
rs.MoveNext
Loop

%>

<!-- VENSTRE SIDE SLUT -->

                                    </td>
                                </tr>
                            </table>
                            </td>
                        </tr>
                    </table>
                    </td>
                    <td width="4%">&nbsp;</td>
                    <td width="48%" valign="top">


<!-- HØJRE SIDE -->

<%
'i = 0

'<paging> Databasen åbnes samtidigt
'rs.Open strSQL, 1
'    rs.PageSize = 5
'    rs.AbsolutePage = intPage
'    intRecCount = rs.PageSize
'    intPageCount = rs.PageCount
'</paging>

Do While not i = 10
i = i + 1
if rs.EOF then
else
%>
                            <table border="0" width="100%" cellpadding="3" bordercolor="#CCCCCC" style="border-collapse: collapse">
                                <tr>
                                    <td width="100%" style="border-right-style: none; border-right-width: medium" colspan="2">
                                    <b><%= (rs("mod_navn")) %> - <%= (rs("dato")) %></b></td>
                                </tr>
                                <tr>
                                    <td width="40%" style="border-right-style: none; border-right-width: medium" valign="top">
                                    <p align="center">
<%
if (rs("thumb")) = "" then
billede = "<img border=""1"" src=""" & BilledeSti & "intet.jpg"">"
else
billede = "<img border=""1"" src=""" & (rs("thumb")) & """>"
end if
response.write billede
strSQL = "SELECT id FROM cw_brugere WHERE nick = '" & (rs("nick")) & "'"
set us = Conn.Execute(strSQL)
%>
                                    </td>
                                    <td width="55%" style="border-left-style: none; border-left-width: medium" valign="top">
                                    <a href="#" onclick="popup('http://www.case-modding.dk/profil/vis.asp?id=<%= (US("id")) %>','Profilvisning','420','500');"><%= (rs("nick")) %></a><br>
                                    <br>
                                    Stemmer: <%= (rs("stemmer")) %><br>
                                    Kommentarer: <%= (rs("kommentarer")) %><br>
                                    <br>
                                    <%= (rs("karakter")) %></td>
                                </tr>
                            </table>   
<%
end if
intRecCount = intRecCount - 1
rs.MoveNext
loop
%>

<!-- HØJRE SIDE SLUT -->


                    </td>
                </tr>
            </table>   
<br><br>
<%
'Paging scriptet

Response.Write "Pages "
For intNum = 1 To intPageCount


Response.Write "<a href='?page=" & intNum &  "'>" & intNum & "</a> "

next
%>
</center>

<!-- #INCLUDE FILE="../bund.asp" -->



Det "eneste" som ikke virker, er at man kan ikke skifte side, og der står ikke nogle tal i bunden af siden, som der burde..
Det skal også siges at jeg har en åben database forbindelse til MySQL i min inkluderede fil top...

lukker