---
title: "Paging på gb"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/85408-paging-på-gb"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ceeron"
published: "2003-09-06T13:19:59.000Z"
updated: "2003-09-08T18:03:28.000Z"
replies: 3
views: 223
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/85408-paging-på-gb"
---

# Paging på gb

## #1 — Ceeron, 2003-09-06T13:19Z

Hur ska jag göra så att man ser nummret på inlägget samtidigt som det är paging? Den buggar även grymt hårt o visar tex. bara 5 inlägg per sida när man kolla på ID \> 0... =/

```
	sql="select (select count(*) from kommentarer where kommentarer.anvID = " &intID& " and kommentarer.bildID=0 and kommentarer.festID=0 and kommentarer.borttaget = False) as antal, anv.anv, kommentarer.*, status.* from anv, kommentarer, status where kommentarer.anvID = " &intID& " and kommentarer.bildID=0 and kommentarer.festID=0 and kommentarer.borttaget = False and anv.anvID = kommentarer.avID and anv.status = status.ikonID order by datum desc"
	Set objRS = Server.Createobject("Adodb.Recordset")
	Dim intSida, intSidor
	intSida = Request.QueryString("sida")
	If intSida = "" Then intSida = 1

	With objRS
	 .Cursorlocation = 3
	 .Open sql, objConnect
	 .Pagesize = 10
	 .Absolutepage = intSida
	End With
	intSidor = CInt(objRS.Pagecount)
	intDenna = 0

	intRaknare = (intSidor + 2)

		While Not objRS.EoF and intDenna <= intSidor
			intRaknare = (intRaknare - 1)
			intDenna = (intDenna + 1)
			strFarg = "#dae8ef"
			If objRS("privat") = True Then strFarg = "#ffcccc"
			Write "<tr ><td style=""border: 1px #ffffff solid; padding: 3px; background-color: " &strFarg& ";"" nowrap=""nowrap"" rowspan=""2"" align=""center"" valign=""top""><a href=""alkisarna.asp?anv=" &objRS("anv")& """><img src=""inc_ikoner/" &objRS("ikon_fil")& """ border=""0"" alt=""" &objRS("ikon_namn")& """ /><br />" &objRS("anv")& "</a></td><td style=""border: 1px #ffffff solid; padding: 1px; background-color: " &strFarg& ";"" valign=""top"">#" &intRaknare& " " &FormatDateTime(objRS("datum"),2)& " - " &FormatDateTime(plush(objRS("datum")),4)& " - <a href=""gb.asp?ID=" &objRS("avID")& """>Svara</a>"
			If CInt(Session("ID")) = CInt(objRS("avID")) or CInt(Session("ID")) = intID or (intID = 0 and CInt(Session("Access")) <= 2) Then 
				Write " - <a href=""gb.asp?a=del&ID=" &intID& "&gbID=" &objRS("kommentarID")& """ onClick=""return confirm('Säker på att du vill ta bort kommentaren?')"">X</a>"
			End If
			Write "</td></tr><tr><td valign=""top"" style=""border: 1px #ffffff solid; padding: 3px;"">"

			If Not objRS("privat") = True Then
				delaText(objRS("kommentar"))
			ElseIf objRS("privat") = True and CInt(Session("ID")) = CInt(intID) or CInt(Session("ID")) = CInt(objRS("avID")) Then 
				delaText(objRS("kommentar"))
			Else
				Write "<b>* Privat inlägg *</b>"
			End If
			Write "</td></tr>"

	objRS.MoveNext
	Wend
```

Permalänk: https://www.webforum.nu/p/85408

## #2 — Ceeron, 2003-09-07T21:41Z

Vaför buggar pagesize? Den skriver bara ut 4 per sida...
Varför resulterar börjar min räknare på -1?!?!
hur ska man göra för att få fram rätt # på gb inlägget?

```
	With objRS
	 .Cursorlocation = 3
	 .Open sql, objConnect
	 .Pagesize = 30
	 .Absolutepage = intSida
	End With
	intSidor = CInt(objRS.Pagecount)
	intDenna = 0

	intRaknare = intSidor

	Sub navigering
	If intSidor > 1 Then
	Write "<tr><td colspan=""2"" align=""center"">"
  		If intSida > 1 Then
    		 Write "<a href=""gb.asp?ID=" &intID& "&sida=" &(intSida - 1)& """><< Föregående</a>"
  		End If

  		If CInt(intSida) < CInt(intSidor) Then
    		 Write " - <a href=""gb.asp?ID=" &intID& "&sida=" &intSida + 1& """>Nästa >></a>"
  		End If

	Write "</td></tr>"
	End If
	End Sub

		Call navigering
		While Not objRS.EoF and intDenna <= intSidor
			intRaknare = (intRaknare - 1)
			intDenna = (intDenna + 1)
			strFarg = "#dae8ef"
			If objRS("privat") = True Then strFarg = "#ffcccc"
			Write "<tr ><td style=""border: 1px #ffffff solid; padding: 3px; width: 0%; background-color: " &strFarg& ";"" nowrap=""nowrap"" rowspan=""2"" align=""center"" valign=""top""><a href=""alkisarna.asp?anv=" &objRS("anv")& """><img src=""inc_ikoner/" &objRS("ikon_fil")& """ border=""0"" alt=""" &objRS("ikon_namn")& """ /><br />" &objRS("anv")& "</a></td><td style=""border: 1px #ffffff solid; padding: 1px; background-color: " &strFarg& ";"" valign=""top"">#" &intRaknare& " " &FormatDateTime(objRS("datum"),2)& " - " &FormatDateTime(plush(objRS("datum")),4)& " - <a href=""gb.asp?ID=" &objRS("avID")& """>Svara</a>"
			If CInt(Session("ID")) = CInt(objRS("avID")) or CInt(Session("ID")) = intID or (intID = 0 and CInt(Session("Access")) <= 2) Then 
				Write " - <a href=""gb.asp?a=del&ID=" &intID& "&gbID=" &objRS("kommentarID")& """ onClick=""return confirm('Säker på att du vill ta bort kommentaren?')"">X</a>"
			End If
			Write "</td></tr><tr><td valign=""top"" style=""border: 1px #ffffff solid; padding: 3px;"">"

			If Not objRS("privat") = True Then
				delaText(objRS("kommentar"))
			ElseIf objRS("privat") = True and CInt(Session("ID")) = CInt(intID) or CInt(Session("ID")) = CInt(objRS("avID")) Then 
				delaText(objRS("kommentar"))
			Else
				Write "<b>* Privat inlägg *</b>"
			End If
			Write "</td></tr>"

		objRS.MoveNext
		Wend
		Call navigering
```

Permalänk: https://www.webforum.nu/p/1149885

## #3 — Sebbe, 2003-09-08T13:00Z

Kanske såhär då?

```
With objRS
  .Cursorlocation = 3
  .Open sql, objConnect
  .Pagesize = 30
  .Absolutepage = intSida
End With

intSidor = CInt(objRS.Pagecount)
intDenna = 0
intRaknare = objRS.RecordCount

Sub navigering
  If intSidor > 1 Then
    Write "<tr><td colspan=""2"" align=""center"">"
  If intSida > 1 Then
    Write "<a href=""gb.asp?ID=" &intID& "&sida=" &(intSida - 1)& """><< Föregående</a>"
  End If

  If CInt(intSida) < CInt(intSidor) Then
    Write " - <a href=""gb.asp?ID=" &intID& "&sida=" &intSida + 1& """>Nästa >></a>"
  End If

  Write "</td></tr>"
End Sub

Call navigering

While Not objRS.EoF and intDenna <= objRS.PageSize
  intRaknare = (intRaknare - 1)
  intDenna = (intDenna + 1)
  strFarg = "#dae8ef"

  If objRS("privat") = True Then strFarg = "#ffcccc"
  Write "<tr ><td style=""border: 1px #ffffff solid; padding: 3px; width: 0%; background-color: " &strFarg& ";"" nowrap=""nowrap"" rowspan=""2"" align=""center"" valign=""top""><a href=""alkisarna.asp?anv=" &objRS("anv")& """><img src=""inc_ikoner/" &objRS("ikon_fil")& """ border=""0"" alt=""" &objRS("ikon_namn")& """ /><br />" &objRS("anv")& "</a></td><td style=""border: 1px #ffffff solid; padding: 1px; background-color: " &strFarg& ";"" valign=""top"">#" &intRaknare& " " &FormatDateTime(objRS("datum"),2)& " - " &FormatDateTime(plush(objRS("datum")),4)& " - <a href=""gb.asp?ID=" &objRS("avID")& """>Svara</a>"

  If CInt(Session("ID")) = CInt(objRS("avID")) or CInt(Session("ID")) = intID or (intID = 0 and CInt(Session("Access")) <= 2) Then 
    Write " - <a href=""gb.asp?a=del&ID=" &intID& "&gbID=" &objRS("kommentarID")& """ onClick=""return confirm('Säker på att du vill ta bort kommentaren?')"">X</a>"
  End If

  Write "</td></tr><tr><td valign=""top"" style=""border: 1px #ffffff solid; padding: 3px;"">"

  If Not objRS("privat") = True Then
    delaText(objRS("kommentar"))
  ElseIf objRS("privat") = True and CInt(Session("ID")) = CInt(intID) or CInt(Session("ID")) = CInt(objRS("avID")) Then 
    delaText(objRS("kommentar"))
  Else
    Write "<b>* Privat inlägg *</b>"
  End If

  Write "</td></tr>"
  objRS.MoveNext
Wend

Call navigering
```

Permalänk: https://www.webforum.nu/p/1150155

## #4 — Ceeron, 2003-09-08T18:03Z

Allså det buggar något otroligt... Sätter jag pagesize till 30 så visar den 3st. sätter jag till 10 så visar den 10 om man har ID = 0 annars visar den ca 8! blir inte klok på detta! Den verkar inte heller hämta ut alla poster eller nåt alls!

Permalänk: https://www.webforum.nu/p/1150404

---

Tråden på webben: https://www.webforum.nu/amne/asp/85408-paging-på-gb