---
title: "Max 15 poster sedan ny sida..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11088-max-15-poster-sedan-ny-sida"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "T_Codez"
published: "2001-08-12T09:33:00.000Z"
updated: "2001-08-13T21:10:00.000Z"
replies: 11
views: 206
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/11088-max-15-poster-sedan-ny-sida"
---

# Max 15 poster sedan ny sida...

## #1 — T_Codez, 2001-08-12T09:33Z

Hej

Jag har sett det förrut men kan banne mig inte hitta den nu i forumet...

Problemet jag har på en sida är att när jag hämtar data från en sida (ca: 45 poster). Så kommer samtliga på en och samma sida. Jag skulle vilja att det endast kommer upp 15 poster på sidan och att sedan resterande kommer på (samma sida) fast ändå inte. Alltså man får en länk (next 15 poster), typ. Och vid klickning på denna så kommer dessa upp.

Jag antar att det skapas(temporära sidor) så länge den sidan  är uppe. Så min fråga är då givetvis:

Hur ser en syntax för den funktionen ut?

Tack för uppmärksamheten
/ TT

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

## #2 — icaaq, 2001-08-12T10:01Z

Kolla in denna kod av ParikB: <http://script.webforum.nu/wf/Forum1/HTML/000063.html> 
 :OO

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

## #3 — T_Codez, 2001-08-12T11:16Z

Thankz! :e

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

## #4 — T_Codez, 2001-08-13T19:43Z

Den fungerar alldeles utmärkt.

Tackar och bockar till tipsaren och skaparen av chillipaging.

Nu är det ju inte nog med detta... Jag skulle även vilja få varannan rad i olika färger (grå & vit). Jag har försökt en del varianter nu, men får inte riktigt till det.

Ser ni ASP-hökar var min inkompetens har hamnat :q 

Oops... glömde koden...

	' -- hur många sidor finns det i recordsetet --
	intTotalPages = countPages(intTotalRecords, intPageSize)

Response.Write "\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>\<br\>Visar nu sida \<B\>" & intPage & "\</B\> av " & intTotalPages & "\</br\>\</FONT\>"
Response.Write	"\<TABLE border=0 cellPadding=0 cellSpacing=0\>\<BR\>\<BR\>"
Response.Write	"\<TR\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>\<STRONG\>Steelgrade  \</STRONG\>\<BR\>\<BR\>\</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>\<STRONG\>Thickness\</STRONG\>(mm) \<BR\>\<BR\>\</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>\<STRONG\>Width\</STRONG\>(mm) \<BR\>\<BR\>\</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>\<STRONG\>Length\</STRONG\>(mm) \<BR\>\<BR\>\</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>\<STRONG\>\</STRONG\>\<BR\>\</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\> \<BR\>\<BR\>\</FONT\>\</TD\>\</TR\>"

	For I = intStartID To ((intStartID + intPageSize) -1)
		
		intId = arrRecords(0,I)
		strCCode = arrRecords(1,I)
		strSteelGrade = arrRecords(2,I)
		strthickness = arrRecords(3,I)
		strWidth = arrRecords(4,I)
		strlength = arrRecords(5,I)

j = j + 1
if j mod 2 then
rowColor = "#cccccc"
else
rowColor = "#ffffff"
end if

Response.Write	"\<TR bgcolor="&rowColor &"\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>" & strSteelGrade & "  \</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>" & strthickness & " \</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>" & strwidth & " \</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>" & strlength & " \</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>\<STRONG\>\</STRONG\>\</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\> \</FONT\>\</TD\>\</TR\>"

		If I = UBound(arrRecords,2) Then Exit For
	Next
Else
	' -- inga poster fanns i db --
	intPage = 0
	intTotalRecords = 0
	intTotalPages = 0
	
	' -- skriv ut att inga poster hittades --
	Response.Write "\<P\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>No records found.\</font\>\</P\>"
End If
Response.Write "\</TABLE\>\<BR\>"

Tack för uppmärksamheten
/ TT

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

## #5 — icaaq, 2001-08-13T19:46Z

kolla FAQ:n 
 :OO

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

## #6 — icaaq, 2001-08-13T19:49Z

du hade redan sett den (FAQ:n asso)

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

## #7 — icaaq, 2001-08-13T19:54Z

har du **Dim**at j :q

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

## #8 — LarsG, 2001-08-13T19:57Z

I denna bit

```
j = j + 1
if j mod 2 then
```

borde du väl använda i istället, dvs

```
if i mod 2 then
```

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

## #9 — T_Codez, 2001-08-13T20:41Z

Jorå... J är dimat.

Men det som är mysko är att så fort jag har plockat in färgloopningen så klagar den på att den inte hittar några records.

Börjar fundera på om det inte beror på att alla recordset är inläst i arrRecords(O,I).

Ska testa...

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

## #10 — T_Codez, 2001-08-13T20:44Z

Hmm...

Jag fick upp sidan utan bekymmer, men jag fick inte ut några värden på sidan.

Ändå så visade den att det fanns nio sidor.

Det jag provade var:

övrig kod...

	' -- hur många sidor finns det i recordsetet --
	intTotalPages = countPages(intTotalRecords, intPageSize)

Response.Write	"\<TABLE border=0 cellPadding=0 cellSpacing=0\>\<BR\>\<BR\>"
Response.Write	"\<TR\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>\<STRONG\>Steelgrade  \</STRONG\>\<BR\>\<BR\>\</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>\<STRONG\>Thickness\</STRONG\>(mm) \<BR\>\<BR\>\</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>\<STRONG\>Width\</STRONG\>(mm) \<BR\>\<BR\>\</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>\<STRONG\>Length\</STRONG\>(mm) \<BR\>\<BR\>\</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>\<STRONG\>\</STRONG\>\<BR\>\</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\> \<BR\>\<BR\>\</FONT\>\</TD\>\</TR\>"

	For I = intStartID To ((intStartID + intPageSize) -1)
		
		intId = arrRecords(0,I)
		strCCode = arrRecords(1,I)
		strSteelGrade = arrRecords(2,I)
		strthickness = arrRecords(3,I)
		strWidth = arrRecords(4,I)
		strlength = arrRecords(5,I)

**Do Until ((intStartID + intPageSize) -1)
if Cint(intId) mod 2 then
rowColor = "#cccccc"
else
rowColor = "#ffffff"
end if**

Response.Write	"\<TR bgcolor=" &rowColor &"\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>" & strSteelGrade & "  \</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>" & strthickness & " \</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>" & strwidth & " \</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>" & strlength & " \</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>\<STRONG\>\</STRONG\>\</FONT\>\</TD\>"
Response.Write	"\<TD\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\> \</FONT\>\</TD\>\</TR\>"
rs.movenext
loop
		If I = UBound(arrRecords,2) Then Exit For
	Next
Else
	' -- inga poster fanns i db --
	intPage = 0
	intTotalRecords = 0
	intTotalPages = 0
	
	' -- skriv ut att inga poster hittades --
	Response.Write "\<P\>\<FONT face=Verdana,Geneva,Arial,Helvetica size=1\>No records found.\</font\>\</P\>"
End If
Response.Write "\</TABLE\>\<BR\>"

kod etc...

**Long Shot, eller :q**

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

## #11 — LarsG, 2001-08-13T20:58Z

```
For I = intStartID To ((intStartID + intPageSize) -1)

intId = arrRecords(0,I)
strCCode = arrRecords(1,I)
strSteelGrade = arrRecords(2,I)
strthickness = arrRecords(3,I)
strWidth = arrRecords(4,I)
strlength = arrRecords(5,I)

if Clng(i) mod 2 = 0 then
rowColor = "#cccccc"
else
rowColor = "#ffffff"
end if

Response.Write "<TR bgcolor=" &rowColor &">"
Response.Write "<TD><FONT face=Verdana,Geneva,Arial,Helvetica size=1>" & strSteelGrade & "  </FONT></TD>"
Response.Write "<TD><FONT face=Verdana,Geneva,Arial,Helvetica size=1>" & strthickness & " </FONT></TD>"
Response.Write "<TD><FONT face=Verdana,Geneva,Arial,Helvetica size=1>" & strwidth & " </FONT></TD>"
Response.Write "<TD><FONT face=Verdana,Geneva,Arial,Helvetica size=1>" & strlength & " </FONT></TD>"
Response.Write "<TD><FONT face=Verdana,Geneva,Arial,Helvetica size=1><STRONG></STRONG></FONT></TD>"
Response.Write "<TD><FONT face=Verdana,Geneva,Arial,Helvetica size=1> </FONT></TD></TR>"
rs.movenext
If I = UBound(arrRecords,2) Then Exit For
Next
```

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

## #12 — T_Codez, 2001-08-13T21:10Z

Fy Fan Larsa G... :)

You know your shit... :e 

Jag har precis tackat och bockat mig blodig i heala huv'e.

Major Thankz to LarsG & icaaq

Som ni säkert listat ut så fungerar det nu perfect, efter det att jag tog bort rs.movenext. Skönt att ni lämnar kvar lite i alla fall ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11088-max-15-poster-sedan-ny-sida