søger en simpel måde at X af X på!

kombiner SQL kommandoerne LIMIT med Querystring :)

se f.eks. http://www.eksperten.dk/artikler/582

Hvorfor viker den ikke :( ?

<%
' Page menu
function leftmenu()
leftmenuitem("programmering")
end function

' Open Conn, SQL, RS

' LangID
langid = Request("langid")
set strLANG=Server.CreateObject("ADODB.recordset")
strLANG.Open "SELECT * FROM p_programmering_lang WHERE prog_id=" & langid , Application("db")

' Articles after LANGID
set strARTICLE=Server.CreateObject("ADODB.recordset")
strARTICLE.Open "SELECT * FROM p_programmering_articles WHERE article_accepted=1 AND article_langid=" & langid , Application("db"),1


%>
<!--#include virtual="/include/inc_page.asp" -->
<%
function page_html()
%>

<table border="0" width="100%" cellspacing="0" cellpadding="0">
    <tr>
        <td width="830"><b>Arktikler om <%=strLANG("prog_name")%></b></td>
    </tr>
    </table>
<br>
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table3">
    <%if strARTICLE.eof then%>
    <tr>
        <td width="1660">
        Der er desværre ingen arktikler i denne kategori!
        </td>
    </tr>
    <%
    else
    do while not strARTICLE.eof
    intPage = Request("page")
    If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
    End If
    strARTICLE.PageSize = 5
      strARTICLE.AbsolutePage = intPage
      intRecCount = strARTICLE.PageSize
    intPageCount = strARTICLE.PageCount

    ' User info by userid
userid = strARTICLE("article_userid")
set strUSERINFO=Server.CreateObject("ADODB.recordset")
strUSERINFO.Open "SELECT * FROM users WHERE user_id=" & userid , Application("db")

    %>
    <tr>
        <td width="1660">
        Arktikelnavn: <%=strARTICLE("article_title")%>, af <%=strUSERINFO("user_name")%> [<%=strUSERINFO("user_nickname")%>] d. 08-04-2004
        <br>
        <%=strARTICLE("article_desc")%><br>
        <a href="read.asp?langid=<%=strARTICLE("article_langid")%>&articleid=<%=strARTICLE("article_id")%>">Læs denne arktikel...</a><br>
        </td>
    </tr>
    <%
    intRecCount = intRecCount - 1
    strARTICLE.movenext
        loop
    end if
   
    Response.Write "<p>Gå til side "
    %>
    <tr><td>
    <%
    For intNum = 1 To intPageCount
  Response.Write "Side <a href=?langid=" & langid & "&page=" & intNum & ">" & intNum & "</a> "
Next
    %></td></tr>
</table>

<%
end function
%>

den går bare i løkke :S

Access: http://activedeveloper.dk/artikler/default.asp?articleid=31
mySQL: http://activedeveloper.dk/artikler/default.asp?articleid=279

hejsa ...det er faktisk den jeg bruger...den fra activedeveloper.dk :S

den går i stå når jeg bruger rs.AbsolutePage

hvorfor kan det være?

oppe i "strARTICLE.Open "SELECT * FROM p_articles WHERE article_accepted=1 AND article_langid=" & langid , Application("db"),1"

Skulle der bare sættes ,3 på !

Ved ikke hvorfor...men det virker nu :)