"Skriva ut" vilka inlägg som visas..

[Mikael]

På många sidor (i typ gästböcker, forum etc) kan man se vilka inlägg man kan se för tillfället... ex. 1-10, 30-40 etc...

Men jag lyckas inte få ihop detta .... alltså att få skriva ut exakt vilka inlägg som visas.

 

Jag använder mig av :

Totalt antal ("PageCount")

Antalet inlägg per sida ("PageSize")

Och vilken sida man är på ("AbsoultePage").

 

Jag vill då ha visat: (ex) (antalet inlägg per sida är 10)

Totalt antal inlägg : 35

Du är på sida : 4 av 4

 

Nu visas inlägg : 31 - - 35

 

För jag vill ju inte att det står 31-40 på denna sida eftersom det bara finns totalt 35 inlägg..

(Samma sak om man är på sida 1, och man bara har 7 inlägg.... vill inte då att det ska stå "Inlägg : 1-10", utan då skall det bli "Inlägg : 1-7" )

 

Fattar nån ,-?

 

Väldans tacksam !

 

// Mikael

[Mackan4]

Här är lite copy paste på en variant jag använder mig av.

Den visar inte "inlägg 1-7" som du ville, den visar sida 1, 2 o.s.v. istället.

 

<%

' Kolla först vilken sida som skall visas

If Request.QueryString("pageno") = "" Then

PageNumber = 1

Else

PageNumber = Request.QueryString("pageno")

End If

 

 

RS.PageSize = 10 ' Antal meddelanden per sida

 

SQL = "SELECT ....."

RS.Open SQL.....

 

RS.AbsolutePage = PageNumber

TotalPages = RS.PageCount

RS.CacheSize = TotalPages

RecordCounter = 0

Do until RS.EOF or RecordCounter => RS.PageSize

RecordCounter = RecordCounter + 1

 

 

' skriv ut alla inlägg e.t.c.

 

 

RS.MoveNext

Loop

 

RS.Close

 

PageCounter = Page_Counter(TotalPages, PageNumber)

Response.Write PageCounter

 

 

Function Page_Counter(TotalPages, PageNumber)

Page_Counter = "<table border=""0"" width=""90%""><tr><td align=""left""><font size=""2"" face=""Verdana"">Sida: "

 

For x = 1 to TotalPages

If x = cint(PageNumber) Then

Page_Counter = Page_Counter &amp; x &amp; " "

Else

Page_Counter = Page_Counter &amp; " <a class=counter_link href='showmessage.asp?MessageID=" &amp; MessageID &amp; "&amp;MainGroupID=" &amp; Request.QueryString("MainGroupID") &amp; "&amp;ForumId="&amp;Request.QueryString("ForumId")&amp;"&amp;pageno=" &amp; x &amp; "'>" &amp; x &amp; "</a> "

End If

Next

 

Page_Counter = Page_Counter &amp; "</font></td></tr></table>"

End Function

%>

 

[inlägget ändrat 2001-08-20 10:19:32 av Mackan4]

[Mikael]

:-) Tack, men den funktionen har jag .... så jag fortsätter att hoppas på den andra...

 

Dvs. hur skall jag få fram att det står t.ex. inlägg 1 - 7 (när jag pagesize till 10) osv..

 

Nån annan ,-)

 

// Mikael

 

[m a r c u s]

Lägg in något som det här någonstans:

 

If ( rs("pagecount") * rs("pagesize") ) > rs("count") Then
'skriv något
Else
'skriv något annat
End If

 

...jo, någon if-sats någonstans iaf...

 

[inlägget ändrat 2001-08-20 13:07:14 av M a r c u s]