<code>
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
response.write "Rubrik&nbsp;" & Rst("MessRubrik") & "<br>"
response.write "Meddleande&nbsp;" & Rst("Mess") & "<br>"
rst.movenext
wend
If not PageNo = 1 then
response.write "<---Föregående sida--->"
else
end if
If not PageNo = 0 then
response.write "<---Nästa Sida -->"
else
end if

else
end if
</code>
När jag klickar på nästa så kommer jag till 1 inlägg men ändå fortsätter den att göra en länk som heter
nästa. Men jag vill inte den ska skriva nästa då det bara är 1 inlägg på nästa sida.

Alltså: har 11 poster i databasen.

på första sidan får jag en länk till nästa sida. Sida 2.
Och får då även Föregående sida. Sida 1 (Funka som det ska)
Men när jag är på Sida 2? Så vill den ändå göra länk till Sida 3 och Sida 4 när jag är på Sida 3
och gör så hela tiden.

Hur ska jag göra så den bara gör en länk till sida 2?
Och har jag senare 31 poster i databasen då ska den göra en länk till nästa sida. Men bara först då.
Det är där mitt problem ligger. Hur ska jag göra för lösa problemet.

Det beror på att du jämför en sträng med ett tal. Det fungerar aldrig.

Se till att de variabler som ska vara tal verkligen är det.

If Request.QueryString("PageNo").Count = 0 Then
	PageNo = 1
Else
	PageNo = CLng(Request.QueryString("PageNo"))
End If

Att det skall vara så djä.. svårt att förstå att det finns tal(siffror som man använder i matematik)
och att det finns text(strängar).0-9 är tecken som man kan använda i matte men också
tecken för att beskriva tex ett telefonnummer eller ett postnummer dvs en i en sträng.

08-777123546 är en sträng 261 45 är en sträng. 127.8 + 341.9 är matte dvs Tal

Phuuu !
Lär dig elementa att man måste deklarera variabler som strängar eller tal

Tack SvenPon för ditt viktiga bidrag. Jag önskar att alla vore lika perfekta som du, även när man är nybörjare.

Att det skall vara så djä... svårt att hålla en hyfsat ton i forumet.

> Lär dig elementa att man måste deklarera variabler som strängar eller tal

Kolla i vilken kategori du skriver innan du skriver. I asp kan man inte deklarera variabler som strängar eller tal.

<b>I asp kan man inte deklarera variabler som strängar eller tal.</b>
Då kan man fråga sig hur nån djä.. kan hålla på med sånt djä.. trams som ASP.

Det mest elementära tycks vara förunderliga saker i detta "bullshit"-verktyg

Kommer dom springande som nya världsomvandlare och webbdesigner,
deras mammor sitter och skryter om sina aspnissar. Vakna för fae...

Ang nybörjar så framgår inte detta nånstans att det var en sån.
Alla "aspnissar" är nybörjare verkar det.Sorgligt att läsa.

Gud vad skönt att få kräkas på detta asptjaffs. Märkväl asp inte ap ;-)
Släng skiten åt helv... där det hör hemma och dra en barmhärtig skugga över att det funnits.

<b>I asp kan man inte deklarera variabler som strängar eller tal.</b>
Varför hänvisar han då till detta i Personnummerinlägget
Function PersonnummerKoll(ByVal Personnummer As String)
'Returns true for a Correct number, else false
Dim Siffra(9) As Object
Dim HelNummer As String
Dim Resultat As Integer
Dim StrResultat As String
Dim i

Phuuuuu !

> Då kan man fråga sig hur nån djä.. kan hålla på med sånt djä.. trams som ASP.

Varför dra upp det i den här tråden?

Ifall du inte vill hålla på med asp så behöver du inte. Det finns absolut ingen anledning för dig att svara i trådar som handlar om saker som du inte kan eller som du inte vill hålla på med. Ifall det enda du kan göra är att gnälla på produkten i fråga så får du göra det någon annanstans. Det hör inte hemma i den här tråden.

> Varför hänvisar han då till detta i Personnummerinlägget

Det där är inte asp, det är VB.

Så aspnissarna vet inte ens vilket Forum dom är i ? *LOL*

När jag läser något så elementärt som IF funkar inte blir jag givetvis nyfiken.
Fy faen vilken låg nivå på elementa.

> Så aspnissarna vet inte ens vilket Forum dom är i ? *LOL*
>
> När jag läser något så elementärt som IF funkar inte blir jag givetvis nyfiken.
> Fy faen vilken låg nivå på elementa.

Kära <b>Sven</b>

Asp är ett klart vettigt språk även om det har väldigt många brister om man jämför med t.ex. asp.net. Att man sedan inte kan deklarera sina variabler är ett mindre problem, har man valt att jobba med asp så är det så. Man kan leva med det.

Ang. tråden om personnummer så fanns det en länk till ett tips innehållande en kontroll för personnummer. Tipset var avsett för vb 6 men eftersom att (nästan?) alla på det här forumet utom du har förmågan att plocka bort det vb-specifika ifrån koden så ansåg den som postade tipset att koden kommer att lösa problemet. Att du sedan inte är tillräckligt kompetent för att lösa uppgiften är ditt eget problem

<b>Tipset var avsett för vb 6 men eftersom att (nästan?) alla på det här forumet
utom du har förmågan att plocka bort det vb-specifika ifrån koden
så ansåg den som postade tipset att koden kommer att lösa problemet.
Att du sedan inte är tillräckligt kompetent för att lösa uppgiften är ditt eget problem</b>

I så fall tycker jag att han skall försöka porta logiken i mitt gamla uppskick till "knäppAsp"
Programarkivet:KontrollSiffra PersonNummer mfl.
det tipset kom när Ni gick i småskolan ;-)

Tjena!

Prova nedanstående kod.

Svenne

<code>
<%
iPageSize = 10

If Request.Querystring("PageNo") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("PageNo"))
End If

rs.PageSize = iPageSize
rs.CacheSize = iPageSize

Set rst = server.createobject("Adodb.RecOrdSet")
sql ="select * from Imail where Tuser =" & cLng(session("AnvändarId"))
rst.open sql, con, 3, 1, &H0001

iPageCount = rs.PageCount

If iPageCurrent > iPageCount Then
iPageCurrent = iPageCount
End If

If iPageCurrent < 1 Then
iPageCurrent = 1
End If

If iPageCount = 0 Then
Response.Write("<font color='#ff0000'><b>Det finns inga användare inlagda!</b></font>")
Else
rs.AbsolutePage = iPageCurrent
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not rs.EOF
Response.Write("Rubrik&nbsp;" & Rst("MessRubrik") & "<br>")
Response.Write("Meddleande&nbsp;" & Rst("Mess") & "<br>")
iRecordsShown = iRecordsShown + 1
rst.MoveNext
Loop

If iPageCount > 0 Then
Response.Write("<hr>")
For I = 1 To iPageCount
If I = iPageCurrent Then
Response.Write "|&nbsp;<b>" & I & "</b>"
Else
response.write "" & I & ""
End If
Next
Response.Write("&nbsp;|</br>Antal sidor:&nbsp;" & iPageCount
End If
End If
%>
</code>

<code>
Private Function KontrollSiffra(ByVal nummer As String) As String
'Regel 1. alla beräkningar sker från slutet mot början.
'Arabiska läs från höger mot vänster
'Därför blir det StrReverse
'Steg för steg så du kan följa tekniken
Dim tmpStr As String, sLen As Long, strKsum As String
Dim i As Long, Ksum As Long
tmpStr = StrReverse(nummer)
sLen = Len(nummer)
'Siffror som skall multipliceras med 2
For i = 1 To sLen Step 2
strKsum = strKsum & CStr(CLng(Mid$(tmpStr, i, 1)) * 2)
Next 'i
'Siffror som skall multipliceras med 1
For i = 2 To sLen Step 2
strKsum = strKsum & Mid$(tmpStr, i, 1)
Next 'i
sLen = Len(strKsum)
'Summera alla enskilda siffror tex 16 blir 1 +6
For i = 1 To sLen
Ksum = Ksum + CLng(Mid$(strKsum, i, 1))
Next 'i
Ksum = 10 - (Ksum Mod 10)
If Ksum = 10 Then Ksum = 0
'Returnera resultatet
KontrollSiffra = CStr(Ksum)
End Function
</code>

Ni har nog skrivit till fel forums inlägg. Det här har inget med person nummer.
Utan att få att if satsen ska stämma med nästa sida med antal poster

det vill säga
20 poster delat i 2 är 10 poster per sida blir 2 sidor och inte oänligt.

Du får kolla ifall du är på sista sidan:

If PageNo < rst.PageCount then

Tackar. Är inte 100% På Pagin har nyss smällt iden hur man ska skriva det ;)
I det jag läste skulle man ha med
<code>
rst.cursorLocation = 3
</code>
men när jag tog bort det så var det inga problem med min pagin.
som jag skrev om på [Pagin problem.],
;)

Tackar problemet är löst nu.

Men går jag tillbaka 1 steg så kan jag inte gå till nästa sida ändå.
vad är då fel???


jag kan gå till nästa sida. Där funkar allt som det ska. Men går jag tillbaka sen.
Och vill frammåt så fungerar inte koden som den ska.

Koden är

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

set rss = con.execute("select * from UserAcounts where id=" & rst("Fuser"))
if not rss.eof then
response.write "Avsändare:" & rss("Anv") & "&nbsp;<br>"
else
end if
set rss = Nothing

response.write "Rubrik&nbsp;" & Rst("MessRubrik") & "<br>"
rst.movenext
wend
If not PageNo = 1 then
response.write "<---Föregående sida--->"
else
end if
If PageNo < rst.PageCount then
response.write "<---Nästa Sida -->"
else
end if

else
end if
%>
</code>

Kan klicka på nästa och sen välja föregående. Så långt fungerar allt.
Men när jag har klickat på föregående sida kan jag inte välja nästa.
Någon som kan lösningen på problemet?