hjælp til paging

Hej VtmServer

Her har du et stykke kode som skulle hjælpe dig..
Jeg har omskrevet din kode så den er i SUB og FUNCTION
Den skulle gøre det samme som din, men virke:


Mvh
Mr.Spock 8)

------------

<%
Const MAX_LINES_PER_PAGE = 10

VisListe

sub VisListe
    Dim Page, ID

    ID = Trim(Request.QueryString("ID"))
    Page = Trim(Request.QueryString("page"))
    IF NOT IsNumeric(Page) THEN Page = 1

    Response.Write "<table border=0 width='100%' id='table1'>" & vbCrLf

    VisSideListe rs("id"), Page

    Response.Write "</table>" & vbCrLf

    Conn.Close
    Set Conn = Nothing
end sub

Sub    VisSideListe(ByVal ID, ByVal iPage)
    Dim sAddline, rSQL, rs, X, iNbTotalPosts, sHTML

    rSQL = "SELECT * FROM albums WHERE id2 = '" & Replace(ID,"'","´") & "' ORDER BY dato DESC"

    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.PageSize = MAX_LINES_PER_PAGE
    rs.open rSQL, Conn, 1

    IF  rs.EOF OR rs.BOF) THEN
        if iPage>1 then
            Response.Write "<caption>Tom side</caption>" & vbCrLf
        else
            Response.Write "<caption>Tom liste</caption>" & vbCrLf
        END IF
    ELSE
        iNbTotalPosts = rs.RecordCount
        IF rs.RecordCount <> -1 THEN
            rs.AbsolutePage = iPage
        ELSE
            X = 1
            DO
                rs.MoveNext
                X=X+1
            UNTIL rs.EOF OR X=((iPage-1)*MAX_LINES_PER_PAGE)
        END IF

        X = 1
        DO WHILE NOT rs.EOF AND X <= MAX_LINES_PER_PAGE
            VisSideListeLine rs, ID

            rs.MoveNext
            X = X + 1
        LOOP

        VisSideListeOversigt rs.RecordCount, MAX_LINES_PER_PAGE, iPage, ID
    END IF

    rs.close
    SET rs = NOTHING
End Sub

Sub VisSideListeLine(rs2, ByVal ID)
    beskrivelse = Trim(rs2("beskrivelse")&"")
    filnavn = Trim(rs2("filnavn")&"")

    Response.Write "<tr>"
    Response.Write "<td align='left' width='112'>"
    Response.Write "<a href='http://www.pivskid.dk/images/users/"&filnavn&"' rel='lightbox[roadtrip]' title='"&beskrivelse&"'>"
    Response.Write "<img src='http://www.pivskid.dk/images/users/"&filnavn&"' width='112' height='112' style='filter: alpha(opacity=25)' onMouseOver='this.filters.alpha.opacity=100' onMouseOut='this.filters.alpha.opacity=25' alt='"&beskrivelse&"' /></a>"
    IF Trim(ID & "") = Trim(Session("login") & "") THEN
        Response.Write "<img border=0 src='iconer/delete.gif' width='44' height='14'>"
    END IF
    Response.Write "</tr>"
end sub

sub VisSideListeOversigt(ByVal TotalPages, ByVal PageLen, ByVal CurPage, ByVal ID)
    Dim PageTotal, X
    IF TotalPages < 0 THEN TotalPages = 0
    PageTotal = 0
    IF TotalPages > 0 THEN
        PageTotal = TotalPages \ PageLen
        IF TotalPages Mod PageLen Then PageTotal = PageTotal + 1
    END IF

    IF PageTotal > 1 THEN
        IF CurPage <> 1 THEN
            Response.Write SideListeLink(CurPage-1 , "&lt;&lt; Forrige", ID)
        END IF
        FOR X = 1 TO PageTotal
            IF X <> CInt(CurPage) THEN
                Response.Write SideListeLink(X, X, ID)
            ELSE
                Response.Write " &nbsp;<b>" & X & "</b>"
            END IF
        NEXT
        IF CurPage <> PageTotal THEN
            Response.Write SideListeLink(CurPage+1, "Næste &gt;&gt;", ID)
        END IF
        Response.Write vbCrLf
    END IF
end sub

function SideListeLink(ByVal page, ByVal tekst, ByVal ID)
    SideListeLink =    " &nbsp;<a href='paging.asp?page=" & page & "&ID="&ID&"'>" & tekst & "</a>"
end function

%>

------------

Hej VtmServer

Her har du et stykke kode som skulle hjælpe dig..
Jeg har omskrevet din kode så den er i SUB og FUNCTION
Den skulle gøre det samme som din, men virke:


Mvh
Mr.Spock 8)

------------

<%
Const MAX_LINES_PER_PAGE = 10

VisListe

sub VisListe
    Dim Page, ID

    ID = Trim(Request.QueryString("ID"))
    Page = Trim(Request.QueryString("page"))
    IF NOT IsNumeric(Page) THEN Page = 1

    Response.Write "<table border=0 width='100%' id='table1'>" & vbCrLf

    VisSideListe rs("id"), Page

    Response.Write "</table>" & vbCrLf

    Conn.Close
    Set Conn = Nothing
end sub

Sub    VisSideListe(ByVal ID, ByVal iPage)
    Dim sAddline, rSQL, rs, X, iNbTotalPosts, sHTML

    rSQL = "SELECT * FROM albums WHERE id2 = '" & Replace(ID,"'","´") & "' ORDER BY dato DESC"

    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.PageSize = MAX_LINES_PER_PAGE
    rs.open rSQL, Conn, 1

    IF  rs.EOF OR rs.BOF) THEN
        if iPage>1 then
            Response.Write "<caption>Tom side</caption>" & vbCrLf
        else
            Response.Write "<caption>Tom liste</caption>" & vbCrLf
        END IF
    ELSE
        iNbTotalPosts = rs.RecordCount
        IF rs.RecordCount <> -1 THEN
            rs.AbsolutePage = iPage
        ELSE
            X = 1
            DO
                rs.MoveNext
                X=X+1
            UNTIL rs.EOF OR X=((iPage-1)*MAX_LINES_PER_PAGE)
        END IF

        X = 1
        DO WHILE NOT rs.EOF AND X <= MAX_LINES_PER_PAGE
            VisSideListeLine rs, ID

            rs.MoveNext
            X = X + 1
        LOOP

        VisSideListeOversigt rs.RecordCount, MAX_LINES_PER_PAGE, iPage, ID
    END IF

    rs.close
    SET rs = NOTHING
End Sub

Sub VisSideListeLine(rs2, ByVal ID)
    beskrivelse = Trim(rs2("beskrivelse")&"")
    filnavn = Trim(rs2("filnavn")&"")

    Response.Write "<tr>"
    Response.Write "<td align='left' width='112'>"
    Response.Write "<a href='http://www.pivskid.dk/images/users/"&filnavn&"' rel='lightbox[roadtrip]' title='"&beskrivelse&"'>"
    Response.Write "<img src='http://www.pivskid.dk/images/users/"&filnavn&"' width='112' height='112' style='filter: alpha(opacity=25)' onMouseOver='this.filters.alpha.opacity=100' onMouseOut='this.filters.alpha.opacity=25' alt='"&beskrivelse&"' /></a>"
    IF Trim(ID & "") = Trim(Session("login") & "") THEN
        Response.Write "<img border=0 src='iconer/delete.gif' width='44' height='14'>"
    END IF
    Response.Write "</tr>"
end sub

sub VisSideListeOversigt(ByVal TotalPages, ByVal PageLen, ByVal CurPage, ByVal ID)
    Dim PageTotal, X
    IF TotalPages < 0 THEN TotalPages = 0
    PageTotal = 0
    IF TotalPages > 0 THEN
        PageTotal = TotalPages \ PageLen
        IF TotalPages Mod PageLen Then PageTotal = PageTotal + 1
    END IF

    IF PageTotal > 1 THEN
        IF CurPage <> 1 THEN
            Response.Write SideListeLink(CurPage-1 , "&lt;&lt; Forrige", ID)
        END IF
        FOR X = 1 TO PageTotal
            IF X <> CInt(CurPage) THEN
                Response.Write SideListeLink(X, X, ID)
            ELSE
                Response.Write " &nbsp;<b>" & X & "</b>"
            END IF
        NEXT
        IF CurPage <> PageTotal THEN
            Response.Write SideListeLink(CurPage+1, "Næste &gt;&gt;", ID)
        END IF
        Response.Write vbCrLf
    END IF
end sub

function SideListeLink(ByVal page, ByVal tekst, ByVal ID)
    SideListeLink =    " &nbsp;<a href='paging.asp?page=" & page & "&ID="&ID&"'>" & tekst & "</a>"
end function

%>

------------

Hej Spock :)
Her er lige hele kode hehe

<html>
<head>

<script type="text/javascript" src="js/prototype.js"></script>
<script type="text/javascript" src="js/scriptaculous.js?load=effects"></script>
<script type="text/javascript" src="js/lightbox.js"></script>
<link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" />
</head>
<%
' Åbner databasen, og hiver brugerens information ud !
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:/web/localuser/pivskid.dk/database/database.mdb"

if request.querystring("brugernavn") <> "" then

brugernavn = request.querystring("brugernavn")
set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM bruger WHERE brugernavn='" & brugernavn & "'"
rs.Open SQL, Conn, 1, 3


if rs.eof then
session("visbruger") = "Brugeren findes ikke !"
response.redirect("default.asp?side=users&alfa=QAZWSXEDCRFVTGBYHNUJMIKOLP%C6%C5%D81234567890")
end if

id = rs("id")

else

id = Request.QueryString("id")
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM bruger WHERE ID=" & id, Conn, 1, 3

end if


if rs("id") <> session("login") then

if request.cookies("visprofil" & rs("id") & "") = "" then
if session("visprofil") <> rs("id") then

rs("hits") = rs("hits") + 1
rs.Update

response.cookies("visprofil" & rs("id") & "") = "visprofil" & rs("id") & ""
Response.Cookies("visprofil" & rs("id") & "").Expires = date() + 7


end if
end if

SQLstringK10="SELECT * FROM profil_visning WHERE bruger1 = '" & rs("id") & "' AND bruger2 = '" & session("login") & "'"
SET rs10 = Conn.Execute(SQLstringK10)

%>
<% if rs10.eof then

else
    SQLstringK12="DELETE FROM profil_visning WHERE bruger1 = '" & rs("id") & "' AND bruger2 = '" & session("login") & "'"
    Conn.Execute(SQLstringK12)
   
end if %>
<%   
Set rs2 = Server.CreateObject("ADODB.RecordSet")
SQLstringK2 = "Select * From profil_visning"
rs2.Open SQLstringK2, Conn, 1, 3

                    rs2.AddNew
                    rs2("bruger1") = rs("id")
                      rs2("bruger2") = session("login")
                      rs2("set") = now()
                    rs2.update
                    end if
                   
%>
<p align="center"><!--#include file="profil_menu.asp" --></p>
<br>
<table border="0" width="100%" id="table1">
    <tr>
<% count = 0 %>       
        <%
Sql2 = "select * from albums where id2 = '" & rs("id") & "' ORDER BY dato DESC"
Set rs2 =  Conn.Execute(Sql2)

Page = Trim(Request("page"))
If Page = "" Then Page = 1

  rs2.PageSize = 10
%>
        <%
        If Not (rs2.BOF Or rs2.EOF) Then
        Do While Not rs2.EOF
        %>         
<% beskrivelse = rs2("beskrivelse") %>
<% filnavn = rs2("filnavn") %>
<td align="left" width="112">
<a href="http://www.pivskid.dk/images/users/<% = filnavn %>" rel="lightbox[roadtrip]" title="<% = beskrivelse %>"><img src="http://www.pivskid.dk/images/users/<% = filnavn %>"  width="112" height="112" style="filter: alpha(opacity=25)" onMouseOver="this.filters.alpha.opacity=100" onMouseOut="this.filters.alpha.opacity=25" alt="<% = beskrivelse %>" /></a>
<% if "" & rs("id") & "" = "" & Session("login") & "" then %>
<img border="0" src="iconer/delete.gif" width="44" height="14"><br><br><% end if %>
</td>
<% count = count +1 %>
<% if count = 4 then %>
</tr>
<tr>
<% count = 0 %>
<% end if %>
<%

        rs2.MoveNext
        Loop

If rs2.PageCount <> 1 Then
  For i = 1 to rs2.PageCount
    response.write "<a href='paging.asp?page=" & i & "'>" & i & "</a>"
  Next
End If
End If


%>

<%
Conn.Close
Set Conn = Nothing
%>   
       
    </tr>
    </table>

</body>

</html>

Lukketid