HAST: Hjælp til sideinddeling

og koden:

dim strSQL, objRS, strWhere
                    dim strRows, i
                   
                    IF intFromId > 0 THEN
                        strWhere = " WHERE guestId <= " & intFromId & " "
                    ELSE
                        strWhere = ""
                    END IF
                   
                    strSQL = "SELECT guestId, guestName, guestEmail, guestMessage, datesubmitted FROM Tagwall " & strWhere & "ORDER BY datesubmitted DESC"
                   
                    set objRS = server.CreateObject("ADODB.Recordset")
                    with objRS
                        .open strSQL, strConnect, 0, 1, 1
                       
                        IF NOT .EOF THEN
                            arrRows = .GetRows(5)
                        END IF
                       
                        .close
                    end with
                    set objRS = Nothing
                   
                    IF isArray(arrRows) THEN
                        intFromId = arrRows(0, ubound(arrRows, 2))
   
                        for i=0 to ubound(arrRows, 2)
            %>
   
                            <table  width="400" align="center" border="1" bordercolor="#000000">
                                <TR>
                                    <TD colspan="1">Written by: <a href="mailto:<%=arrRows(2,i)%>"><%response.write arrRows(1,i)%></a></TD>
                                    <TD width="100"><% response.write arrRows(4,i) %></TD>
                                </TR>
                                <br>
                                <TR>
                                    <TD colspan="2"><%response.write arrRows(3,i)%></TD>
                                </TR>
                            </table>
                           
            <%
                        next
            %>
                   
                        <table  width="400" align="center" border="1">
                            <br>
                            <TR>
                                <TD colspan="2" align="center"><p><a href="tagwall.asp?action=show&FromId=<%= intFromID+5 %>">Prev</a> - <a href="tagwall.asp?action=show&FromId=<%= intFromId-1 %>">Next</a></p></TD>
                            </TR>
                        </table>
            <%
                  END IF

Er 60 point ikke nok?? Hvis ikke, så kom med et bud :)

Hm, det er jo paging, der skal til. Lidt langhåret for en urutineret :/

hmm, er ikke helt urutineret - har arbejdet en del år med programmering (dog ikke vildt meget asp), men som jeg skrev er det noget jeg skal have lavet hurtigt, men ikke selv har tiden til det ;)

Skal du bruge det hurtigt, står jeg af. Men der er masser af eksperter på området :o)

Jeg skulle meget gerne bruge det i aften, da jeg har flere ting det skal kobles sammen med :)

Ok. Held og lykke :o)

Jeg kan se du har været i gang med at ligge noget ind.

Hvad har du i kolonnen guestId?
Er det et forløbene tal, uden huller?

Hvilken database bruger du?

guestId indeholder en id på indlægget og er et autonummereret tal (er en fejl og skal ikke hentes med ind medmindre det skal bruges til at holde styr på noget sideopdeling :)).

db er Access

men det virker fint. Det eneste der skal ændres er at jeg skal have det sideopdelt med sidenummerering som først beskrevet

:)

Princippet i det er du skal havde antallet af records i databasen, så finden antal sider ved at divideren med antalPrSide:

antalSider = Int(antalRecords/antalPrSide)
for i = 1 to antalSider
%>
  <a href="tagwall.asp?action=show&FromId=<%=i*antalPrSide%>"><%=i%> </a>
<%
next

da ingen løste opgaven kan jeg desværre ikke give point :(

eagleeye >> hvis du ligger et svar kan du få lidt for dit hint. Så deler vi lige over. Du giver hint - jeg udfører opgaven!

;)

ok :)