får det inte att funka =S

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

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

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

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

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

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

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

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

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?

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

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

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

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å??

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å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 , ?

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

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

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

Mvh,

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å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åt</a>"
end if
end if
end if
end if
end if