Avatar billede ban_me Nybegynder
30. maj 2005 - 17:57 Der er 8 kommentarer og
1 løsning

Problemer med paging

Hi,

Har et problem med min paging. når den er sat til 10 post per side, begynder den allerede at lave en tom side, efter 5 post, og side nummer 2 er så tom indtil der er over 10 post. Hvorfor det?


pagenumber = request.querystring("pagenumber")
  if pagenumber = "" then
  pagenumber = "1"
  end if
  SQL = "SELECT COUNT(*) as count FROM messageboard"
  set RS = conn.execute(SQL)
  antal_beskeder = RS("count")
  response.write("Beskeder: " &"<b>"& antal_beskeder &" <br></b>")
  antal_beskeder_pr_side = 10
  rest = cint(cint(antal_beskeder) Mod cint(antal_beskeder_pr_side))
  antal_sider = round(cint(antal_beskeder)/cint(antal_beskeder_pr_side))
  if rest > 0 then
    antal_sider = antal_sider + 1
  end if
  Response.Write "Side: "
  if antal_sider = 0 then
  Response.Write " [" & "<b>" & 1 &"</b>" & "] "
  end if
  For i = 1 To antal_sider
  If i&"" = pagenumber Then
  Response.Write " [" & "<b>" & i &"</b>" & "] "
  Else
  Response.Write "<a href=?page=1&pagenumber=" & i & ">" & i & "</a> "
  end If
  Next
Avatar billede cpufan Juniormester
30. maj 2005 - 17:59 #1
if pagenumber = "" then
  pagenumber = 1
Avatar billede cpufan Juniormester
30. maj 2005 - 18:06 #2
Avatar billede ban_me Nybegynder
30. maj 2005 - 18:10 #3
Svar: cpufan
30/05-2005 17:59:45

Tak for svar. Det hjalp :D
Avatar billede ban_me Nybegynder
30. maj 2005 - 18:14 #4
Nope - troede den virkede. Men det gør den ikke :) Samme problem stadig
Avatar billede ban_me Nybegynder
30. maj 2005 - 18:16 #5
Altså hvis der er lige præcis 10 poster. Så viser den kun 1 side. men hvis der er 5,6,7,8 eller 9 poster, så viser den to sider
Avatar billede mortency Nybegynder
30. maj 2005 - 18:31 #6
'Kan dette hjelpe deg? Bare fyll ut query. Samt hva su skal ha ut.
<%
set RS = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT COUNT(*) as count FROM messageboard"
RS.Open strSQL, adoCn, 3, 1, &H0001

If RS.RecordCount = 0 Then
    Response.Write "<div class=xptext>Ingen poster er registrert!</div>"
Else

    ShowPage = CInt(Request.QueryString("ShowPage"))
    PageSize = 10'Antall poster som skal vises pr. side.
    RS.PageSize = PageSize

    NumOfPages = RS.PageCount
    If ShowPage < 1 then
            ShowPage = 1
    ElseIf ShowPage > NumOfPages Then
            ShowPage = NumOfPages
    End If

    RS.AbsolutePage = ShowPage

    Response.Write("<b>Beskeder: " & RS.RecordCount & "</b><br>"
   
    Do While Not RS.EOF and not i = PageSize
        'Her skriver du ut datene du skal ha ut fra databasen.
        RS.MoveNext
    Loop
    %>
    <table width="640" ID="Table3" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td class="xptextrap" align="middle" height="30">
        <%
        If ShowPage > 1 Then
            Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?Showpage=" & Showpage - 1 & """> Tilbake</a> - "
        Else
            Response.Write "<font color=silver>Tilbake</font> - "
        End If

        for k=1 to NumOfPages
            if k=ShowPage then
                Response.Write("<font color=silver>" & k & "</font>")
            else
                %>
                <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?ShowPage=<%=k%>"><%=k%></a>
                <%   
            end if
        Next

        If CInt(NumOfPages) <> CInt(ShowPage) Then
            Response.Write " - <a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?Showpage=" & Showpage + 1 & """>Neste</a>"
        Else
            Response.Write " - <font color=silver>Neste</font> "
        End If
        %>
      </td>
    </tr>
    </table>
<%
End if
%>
Avatar billede cpufan Juniormester
30. maj 2005 - 18:34 #7
du skal så lave denne om:
If i&"" = pagenumber Then
til
If i = pagenumber Then

men hvordan ser din løkke ud?
Avatar billede ban_me Nybegynder
30. maj 2005 - 18:44 #8
Det virker stadig ikke!
Avatar billede ban_me Nybegynder
01. juni 2005 - 20:44 #9
Nogen der vil hjælpe mig til vejs ende :) ?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester