---
title: "får det inte att funka =S"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/71303-får-det-inte-att-funka-s"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "dendålige"
published: "2003-03-17T10:58:22.000Z"
updated: "2003-03-18T15:48:12.000Z"
replies: 17
views: 441
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/71303-får-det-inte-att-funka-s"
---

# får det inte att funka =S

## #1 — dendålige, 2003-03-17T10:58Z

får inte pagingen att funka. eller framåtknappen kommer fram även fast jag bara har ett inlägg, när jag har satt pagesize till 10.
sen så försvinner knappen om jag är på sida 2 av 3... skumt.. kanske någon av er vet?!? 

if page \< pages or page = 1 then 
response.write "\<a href=?sida=gastbok&page=" & page + 1 & "&change=no&tillid="& tillid &"\>  framåt \</a\>" 
end if

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

## #2 — erka, 2003-03-17T11:19Z

Det är omöjligt att förstå om du endast postar tre rader kod.

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

## #3 — dendålige, 2003-03-17T11:29Z

\<% SQL = "SELECT \* FROM meddelanden WHERE Till = '" & Trim(Session("username")) & "' ORDER BY Datum DESC"

  Set RecSet = Connect.Execute(SQL)
  If RecSet.eof then
  Response.Write("Du har inga mejl!")
  else

Dim pageSize, Page, Connect, pages
pageSize = 10 ' hur många inlägg per sida
page = request.querystring("page") ' vilken sida man är på
if page = "" then page = 1 
 

pages = (RecSet(0)-1)/pageSize + 1
	
SQL = "SELECT \* FROM meddelanden WHERE Till = '" & Trim(Session("username")) & "' ORDER BY Datum DESC limit " & (page-1)\*pagesize & "," & pageSize
  Set RecSet = Connect.Execute(SQL)

Do While Not RecSet.EOF

Set RecSet2 = Server.CreateObject("ADODB.Recordset")
SQL2 = "SELECT \* FROM anvandare where namn = '"&RecSet("fran")& "' "
RecSet2.Open SQL2, Connect, 3,3

dim online, kon, alder
	online = RecSet2("online")
	kon = RecSet2("kon")
	alder = RecSet2("alder")
RecSet2.close%\>

inläggen och lite annat... men är ju ganska ovesäntligt =P

\<%RecSet.movenext
loop

tillid = Request.Querystring("tillid")

if page \> 1 then 
response.write "\<a href='?sida=gastbok&Page=" & page - 1 & "&change=no&tillid="& tillid &"'\> bakåt  \</a\>" 
end if 

FOR a = 1 to Pages 
IF a \<\> cINT( Page ) THEN 
ELSE 
Response.Write " Sida "& a & "" 
end if 
next 

if page \< pages or page = 1 then 
response.write "\<a href=?sida=gastbok&page=" & page + 1 & "&change=no&tillid="& tillid &"\>  » \</a\>" 
end if

end if
%\>

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

## #4 — dendålige, 2003-03-17T15:42Z

någon som kan hitta problemet nu... har lagt in hela koden... det jag inte får att funka är då framåt knappen (\>\>)

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

## #5 — solbulle, 2003-03-17T16:58Z

page = Cint(request.querystring("page")) ' vilken sida man är på

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

## #6 — dendålige, 2003-03-17T17:56Z

då blir det istället att jag inte har några inlägg alls... =S

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

## #7 — solbulle, 2003-03-17T18:46Z

Men så här då:

```
<%
SQL = "SELECT * FROM meddelanden WHERE Till = '" & Trim(Session("username")) & "' ORDER BY Datum DESC" 

Set RecSet = Connect.Execute(SQL) 
If RecSet.eof then 
	Response.Write("Du har inga mejl!") 
else 

Dim pageSize, Page, Connect, pages 
pageSize = 10 ' hur många inlägg per sida 
page = Cint(request.querystring("page")) ' vilken sida man är på 
if page = "" then page = 1 

pages = Cint((RecSet(0)-1)/pageSize + 1) 

SQL = "SELECT * FROM meddelanden WHERE Till = '" & Trim(Session("username")) & "' ORDER BY Datum DESC limit " & (page-1)*pagesize & "," & pageSize 
Set RecSet = Connect.Execute(SQL) 

Do While Not RecSet.EOF 

Set RecSet2 = Server.CreateObject("ADODB.Recordset") 
SQL2 = "SELECT * FROM anvandare where namn = '"&RecSet("fran")& "' " 
RecSet2.Open SQL2, Connect, 3,3 

dim online, kon, alder 
online = RecSet2("online") 
kon = RecSet2("kon") 
alder = RecSet2("alder") 
RecSet2.close%> 

inläggen och lite annat... men är ju ganska ovesäntligt =P 

<%
RecSet.movenext 
loop 

tillid = Request.Querystring("tillid") 

if page > 1 then 
response.write "<a href='?sida=gastbok&Page=" & page - 1 & "&change=no&tillid="& tillid &"'> bakåt </a>" 
end if 

FOR a = 1 to Pages 
	IF NOT a = cINT( Page ) THEN 
		Response.Write " Sida "& a 
	end if 
next 

if page < pages or page = 1 then 
	response.write "<a href=?sida=gastbok&page=" & page + 1 & "&change=no&tillid="& tillid &"> » </a>" 
end if 

end if 
%>
```

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

## #8 — LarsG, 2003-03-17T19:08Z

```
<%
SQL = "SELECT count(*) FROM meddelanden WHERE Till = '" & Trim(Session("username")) & "' ORDER BY Datum DESC" 

Set RecSet = Connect.Execute(SQL) 
cnt = clng(recset(0))
If cnt = 0 then 
	Response.Write("Du har inga mejl!") 
else 

Dim pageSize, Page, Connect, pages 
dim online, kon, alder 

pageSize = 10 ' hur många inlägg per sida 
page = Cint(request.querystring("page")) ' vilken sida man är på 
if page = "" then page = 1 

pages = (cnt-1)/pageSize + 1 

SQL = "SELECT * FROM meddelanden m, anvandare a" & _
" WHERE m.fran = a.namn and Till = '" & Trim(Session("username")) & _
"' ORDER BY Datum DESC limit " & (page-1)*pagesize & "," & pageSize 
Set RecSet = Connect.Execute(SQL) 

Do While Not RecSet.EOF 

online = RecSet("online") 
kon = RecSet("kon") 
alder = RecSet("alder") 

inläggen och lite annat... men är ju ganska ovesäntligt =P 

<%
RecSet.movenext 
loop 

tillid = Request.Querystring("tillid") 

if page > 1 then 
response.write "<a href='?sida=gastbok&Page=" & page - 1 & "&change=no&tillid="& tillid &"'> bakåt </a>" 
end if 

FOR a = 1 to Pages 
	IF NOT a = cINT( Page ) THEN 
		Response.Write " Sida "& a 
	end if 
next 

if page < pages or page = 1 then 
	response.write "<a href=?sida=gastbok&page=" & page + 1 & "&change=no&tillid="& tillid &"> » </a>" 
end if 

end if 
%>
```

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

## #9 — dendålige, 2003-03-17T22:06Z

men det funkar ändå inte... allt jag vill är att framåt knappen inte ska komma fram om det inte har blivit två sidor... kan man inte typ göra if pages \> 1 then... eller något men den ska ändå inte synnas när man är på sista sidan... hjälp =S

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

## #10 — solbulle, 2003-03-17T22:38Z

Denna rad:

if page \< pages or page = 1 then 

Ska ju sköta om den biten, testa skriva ut page samt pages så kanske du ser vad du ska ändra.
Är det så att även pages är på 1 vid start?

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

## #11 — dendålige, 2003-03-17T23:03Z

jo... och det är antagligen räkningen på page och pages som jag har fått galet...
jag får fram att pages är 1.9 när jag har 10 gb inlägg och det är bara en sida... 
får inte till det riktigt... några förslag??

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

## #12 — solbulle, 2003-03-17T23:36Z

Nu spånar jag hej vilt, det är inte så at parentesen sitter på sniskan?

pages = (cnt-1)/(pageSize + 1)

Annars kanske det kan vara läga att kika på denna: <http://www.webforum.nu/showthread.php?postid=64900#post64900>

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

## #13 — dendålige, 2003-03-18T08:10Z

okey... ska kolla igenom den länken... men jag fattar inte riktigt varför det blir såhär... är säkert bara något skete litet fel :S

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

## #14 — dendålige, 2003-03-18T11:43Z

hmm jag har gjort såhär nu... ändrade 
pageSize + 1 till 1,1
och då får jag det att funka att framåt knappen inte ska synas om det inte finns mer en en sida...
gjorde så här på framåt knappen:

if pages \> 2 then 
if Not page = pages then
response.write "\<a href=?sida=gastbok&page=" & page + 1 & "&change=no&tillid="& tillid &"\> framåt \</a\>" 
end if
end if

men denna "if Not page = pages then"
får jag inte riktigt att funka... för när man är på page så är page 3 och pages 3,x beroende hur många inlägg...
kan jag göra så att det tar bort kommat på pages så att det bara blir 3 där då??

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

## #15 — dendålige, 2003-03-18T12:16Z

hmm jag gjorde så att jag skrev såhär nu:
if pages \> 2 then 
if Not page = left(pages,1) then
response.write "\<a href=?sida=gastbok&page=" & page + 1 & "&change=no&tillid="& tillid &"\>fram&aring;t\</a\>" 
end if
end if

och det funkar ju jätte bra... tills det blir över 100 inlägg... hur ska jag göra så att jag alltid tar bort det som är efter , ?

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

## #16 — dendålige, 2003-03-18T15:15Z

ingen som vet hur man fårt bort tex

10,1
blir bara 10
fast sen när det blir
100,1
så ska der vara 100

går det?? =S

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

## #17 — @nders, 2003-03-18T15:17Z

Finns kommatecknet alltid där? Då *borde* det här fungera:

```
page = CInt(split(pages, ",") (0))
```

Mvh,

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

## #18 — dendålige, 2003-03-18T15:48Z

testade det... skrev ut dom... page blev 11 och pages blev 11...
ändå funkade inte if not page = CInt(split(pages, ",") (0))

men jag gjorde denna lösning... gör denna sidan segare?? =S

if pages \> 2 then 
if page \< 10 or page = 10 then
if not page = left(pages,1) then
response.write "\<a href=?sida=gastbok&page=" & page + 1 & "&change=no&tillid="& tillid &"\>fram&aring;t\</a\>" 
else if page \< 100 then
if not page = left(pages,2) then
response.write "\<a href=?sida=gastbok&page=" & page + 1 & "&change=no&tillid="& tillid &"\>fram&aring;t\</a\>" 
end if
end if
end if
end if
end if

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/71303-får-det-inte-att-funka-s