Max 15 poster sedan ny sida...

11 svar · 186 visningar · startad av T_Codez 12 aug. 2001

T_CodezMedlem sedan juli 2001458 inlägg

Frågan12 aug. 2001 09:33#1

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

------------------
There is no Tomorrow...

icaaqMedlem sedan okt. 20005 273 inlägg

12 aug. 2001 10:01#2

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

------------------
I like ¼ £ whith cheese

T_CodezMedlem sedan juli 2001458 inlägg

12 aug. 2001 11:16#3

Thankz! :e

------------------
There is no Tomorrow...

T_CodezMedlem sedan juli 2001458 inlägg

13 aug. 2001 19:43#4

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 " Visar nu sida " & intPage & " av " & intTotalPages & ""
Response.Write "<TABLE border=0 cellPadding=0 cellSpacing=0> "
Response.Write "<TR>"
Response.Write "<TD>Steelgrade </TD>"
Response.Write "<TD>Thickness(mm) </TD>"
Response.Write "<TD>Width(mm) </TD>"
Response.Write "<TD>Length(mm) </TD>"
Response.Write "<TD> </TD>"
Response.Write "<TD> </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>" & strSteelGrade & " </TD>"
Response.Write "<TD>" & strthickness & " </TD>"
Response.Write "<TD>" & strwidth & " </TD>"
Response.Write "<TD>" & strlength & " </TD>"
Response.Write "<TD></TD>"
Response.Write "<TD> </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> "

Tack för uppmärksamheten
/ TT

------------------
There is no Tomorrow...

[Redigerat av T_Codez den 13 aug 2001]

icaaqMedlem sedan okt. 20005 273 inlägg

13 aug. 2001 19:46#5

kolla FAQ:n
:OO

------------------
I like ¼ £ whith cheese

icaaqMedlem sedan okt. 20005 273 inlägg

13 aug. 2001 19:49#6

du hade redan sett den (FAQ:n asso)

------------------
I like ¼ £ whith cheese

icaaqMedlem sedan okt. 20005 273 inlägg

13 aug. 2001 19:54#7

har du Dimat j :q

------------------
I like ¼ £ whith cheese

LarsGMedlem sedan dec. 200012 464 inlägg

13 aug. 2001 19:57#8

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

------------------
essentitia preter non sans multiplicandum

T_CodezMedlem sedan juli 2001458 inlägg

13 aug. 2001 20:41#9

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...

------------------
There is no Tomorrow...

T_CodezMedlem sedan juli 2001458 inlägg

13 aug. 2001 20:44#10

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> "
Response.Write "<TR>"
Response.Write "<TD>Steelgrade </TD>"
Response.Write "<TD>Thickness(mm) </TD>"
Response.Write "<TD>Width(mm) </TD>"
Response.Write "<TD>Length(mm) </TD>"
Response.Write "<TD> </TD>"
Response.Write "<TD> </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>" & strSteelGrade & " </TD>"
Response.Write "<TD>" & strthickness & " </TD>"
Response.Write "<TD>" & strwidth & " </TD>"
Response.Write "<TD>" & strlength & " </TD>"
Response.Write "<TD></TD>"
Response.Write "<TD> </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> "

kod etc...

Long Shot, eller :q

------------------
There is no Tomorrow...

[Redigerat av T_Codez den 13 aug 2001]

LarsGMedlem sedan dec. 200012 464 inlägg

13 aug. 2001 20:58#11

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

------------------
essentitia preter non sans multiplicandum

T_CodezMedlem sedan juli 2001458 inlägg

13 aug. 2001 21:10#12

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 ;)

------------------
There is no Tomorrow...