Hade uppe här i forumet om problem med en if sats med att få *NÄSTA* att bara Ifall du är på sista sidan så ska väl inte "nästa" visas? Nä det är sant. Men går jag tillbaka (Länken) Så kan jag inte gå till nästa! Kolla så att det verkligen är sida 2 du hamnar på när du går till nästa sida. Jag misstänker att det blir fel när du skriver ut sidnumren eftersom du blandar strängar och tal. Ifall värdena konverteras till strängar innan de läggs ihop så blir ju "1" + "1" = "11", alltså hamnar du på sida 11 istället för sida 2. När jag kollar så stämmer det. Prova lite olika koder och såg att Det beror på att du blandar tal och strängar. Ifall Request.Querystring("PageNo") är tom så sätter du PageNo till ett och då är den ju ett tal, annars så blir den ju en sträng. Värdet av Request.Querystring() är alltid en sträng (eller Empty). Tackar nu fungera det som jag villl.Pagin med problem 2 i if satsen. (Nytt problem)
träda fram om det fanns en nästa sida.
Det löste sig men när man sen går tillbaka till *FÖREGÅENDE* så försvinner *NÄSTA*
jag förstår inte vad som är fel när det beter sig så.
koden är
<code>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Mina björnbär</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<iframe name="menu" src="../menu.asp?anvid=<%=Request.querystring("AnvId")%>" framespacing="0" frameborder="0" border="0" height="50" scrolling="no">
</iframe><br>
<%
If session("AnvändarId") = "" Then
response.redirect "../.. /../../../"
end if
response.write "<table class=Imail border=0>"
response.write "<tr></tr><tr>"
response.write "<th align=center></td>"
response.write "<th align=center>Avsändare:</th>"
response.write "<th align=center>Rubrik</th>"
response.write "<th align=center>Skickat</th>"
response.write "</tr><tr></tr>"
set con = server.createobject("adodb.connection")
con.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("databas.mdb") & ";"
set rst = server.createobject("Adodb.RecOrdSet")
sql ="select * from Imail where Tuser =" & cLng(session("AnvändarId"))
rst.open sql,con,1,2
if not rst.eof then
Dim PageNo
PageNo = Trim(request.querystring("PageNo"))
If PageNo = "" Then
PageNo = 1
end if
rst.PageSize = 10
rst.AbsolutePage = PageNo
Post = 0
while not rst.eof and post <rst.PageSize
post = post + 1
If cLng(rst("last")) = 0 then
response.write "<td align=center title=Läst>" & rst("Last") & "</td>"
end if
if cLng(rst("last")) = 1 then
response.write "<tr></tr><tr>"
response.write "<td align=center title=Oläst>" & rst("last") & "</td>"
end if
set rss = con.execute("select * from UserAcounts where id=" & rst("Fuser"))
if not rss.eof then
response.write "<td align=center>" & rss("Anv") & " </td>"
else
end if
set rss = Nothing
response.write "<td align=center>" & "" & Rst("MessRubrik") & "</td>"
response.write "<td align=center>" & rst("Datum") & " " & rst("Tid") & "</td>"
response.write "</tr><tr></tr>"
rst.movenext
wend
response.write "</tr><tr></tr>"
If not PageNo = 1 then
response.write "<th width=300><---Föregående sida---></th>"
else
end if
If PageNo < rst.PageCount or PageNo = rst.PageCount then
response.write "<th width300><---Nästa Sida --></th>"
else
end if
else
end if
response.write "</tr><tr></tr>"
response.write "</table>"
%>
</code>
men självaste problemet som jag nämnde ovanför kommer på följande rad:
<code>
If PageNo < rst.PageCount or PageNo = rst.PageCount then
response.write "<th width300><---Nästa Sida --></th>"
else
end if
</code>
Någon som har en lösning på problemet?Sv: Pagin med problem 2 i if satsen. (Nytt problem)
<code>If PageNo < rst.PageCount Then</code>Sv:Pagin med problem 2 i if satsen. (Nytt problem)
Det vill säga.
Nästa.
Sen
tillbaka.
Sen
tomt.
Jag kan inte gå frammåt om jag är på föregående sida.
Jag kan gå till sida 2 och sen till sida 1 men sen kan jag inte komma till sida 2 då jag har gått tillbaka till sida 1.Sv: Pagin med problem 2 i if satsen. (Nytt problem)
Sv:Pagin med problem 2 i if satsen. (Nytt problem)
PageNo + 1 blev + 2 när man klicka på nästa sida och sen när man klicka på
PageNo - 1 blev sida 1 om man var på sida 2. Men det uppsdtår bara den gång man har gått bakåt ett steg annars funkar frammåt bra. Det är de jag tycker är konstigt.Sv: Pagin med problem 2 i if satsen. (Nytt problem)
Se till att PageNo alltid innehållet ett tal, så får du inte det problemet:
<code>If Request.Querystring("PageNo").Count = 0 Then
PageNo = 1
Else
PageNo = CLng(Request.Querystring("PageNo"))
End If</code>Sv:Pagin med problem 2 i if satsen. (Nytt problem)
Ska prova med att göra 22 poster istället för 11 se om det också funkar.