---
title: "Paging"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/43176-paging"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jboy_87"
published: "2002-05-06T11:59:58.000Z"
updated: "2002-05-06T13:46:37.000Z"
replies: 3
views: 226
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/43176-paging"
---

# Paging

## #1 — jboy_87, 2002-05-06T11:59Z

blir galen snart kan ni fixa paging scriptet åt mig?
får :

Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A041F)
Oväntat 'Next'
/krypin_main.asp, line 226
Next

\<%
if request.querystring("visa") = "gastbok" then %\>

\<%

mypage = Request("sida")
If mypage = "" then
   mypage = 1
   
End If
mypagesize = 8

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select \* From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"

recset.cursorlocation = 3
recset.cachesize = 5
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%\>

\<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="472" id="AutoNumber3" height="1"\>
  \<tr\>
          \<td width="472"\>
                        \<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="96%" id="AutoNumber6"\>
                          \<tr\>
                            \<td width="100%"\>
                            \<p align="right"\>\<font size="1" face="Tahoma"\>
                            \<div ID="dropText" STYLE="width: 452; height: 12; filter: dropShadow(color=orange,offX=1,offY=1, positive=1)"\>
                              \<p align="right"\>
                              \<a href="gastbok_skriv.asp?skriv=ja&id=\<%=request.querystring("tillid")%\>&Anvandarnamn=\<%=request.querystring("Anvandarnamn")%\>"\>\<b\>Skriv i \<%=request.querystring("Anvandarnamn")%\>s gästbok\</b\>\</a\>\</div\>
                              
                            \<img border="0" src="Bilder/1pxtrans.gif" width="2" height="2"\>\</font\>\</td\>
                          \</tr\>
                        \</table\>
  

\<%if not recset.eof then%\>
 \<%FOR i = 1 TO 10
IF RecSet.EOF then 
Exit FOR
END IF%\>                      
                  
                        
\<%
recset.movefirst
   recset.pagesize = mypagesize
   maxcount = Cint(recset.pagecount)
   recset.absolutepage = mypage
   
   howmanyrecs = 0
   howmanyfields = recset.fields.count -1
   Do While Not RecSet.EOF AND howmanyrecs \< recset.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "#FFFFFF"
   Else
      color = "#F0F0F0"
   End If
%\>

\<%
newage = DateDiff ("d", recset("Fodd"), Now)
newage = newage - (newage Mod 365)
newage = newage / 365
%\>
                        

                        \<%do until recset.eof%\>    
\<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="96%" id="AutoNumber4"\>
                          \<tr\>
                          
                            \<td width="100%"\>
                            \<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="451" id="AutoNumber5"\>
                              \<tr\>
                                \<td width="33"\>
                                \<font face="Tahoma" size="1"\>
                                \<img border="0" src="Bilder/1pxtrans.gif"\>\<br\>
                                \<img border="0" src="Bilder/1pxtrans.gif"\>\<img border="1" src="\<%if not recset("bild") = "" then%\>\<%=recset("bild")%\>\<%else%\>Bilder/Community/ingen_liten.gif\<%end if%\>" width="30" height="40"\>\<br\>
                                \<img border="0" src="Bilder/1pxtrans.gif"\>\</font\>\</td\>
                                \<td width="373" valign="top"\>
                                \<font face="Tahoma" size="1"\>&nbsp;\<b\>\<%=recset("Anvandarnamn")%\>&nbsp;\<%=left(recset("Kon"),1)%\>\<%=newage%\>\</b\>&nbsp;från
                            \<font color="#800000"\> \<%=recset("Stad")%\>\</font\> - \<%postDate = cdate(recset("datum"))
days = datediff("d",postDate,now())
if days = 0 then
response.write "\<font color='#800000'\>idag "& "\</font\>" & FormatDateTime(postDate,3)
elseif days = 1 then
response.write "\<font color='#000080'\>igår "& "\</font\>" & FormatDateTime(postDate,3) 
else
response.write postDate
end if%\>\<br\>
                                &nbsp;\<%=recset("Inlagg")%\>\<br\>
                                \<img border="0" src="Bilder/1pxtrans.gif"\>\</font\>\</td\>
                                \<td width="45" valign="bottom" align="right"\>
                                \<font size="1" face="Tahoma"\>
                                \<a href="#" onClick="svara('gastbok_skriv.asp','Svara_Gastbok'200,200); return false;"\>
                                \<img border="0" src="Bilder/Community/gastbok_svara.GIF" alt="Svara på \<%=recset("Anvandarnamn")%\>s gästboks inlägg!"\>\</a\> \</font\>\<a href="krypin.asp?visa=gastbok&tabort=gastbok&id=\<%=recset("ID")%\>" onClick="return confirm('Är det säker på att du vill radera inlägget?');"\>\<font face="Tahoma"\>\<img border="0" src="Bilder/Community/papperskorg.gif" alt="Radera bort gästboks inlägget"\>\</font\>\</a\>\<font size="1" face="Tahoma"\>\<img border="0" src="Bilder/1pxtrans.gif" width="2" height="2"\>\<br\>
                                \<img border="0" src="Bilder/1pxtrans.gif" width="2" height="2"\>\</font\>\</td\>
                              \</tr\>
                            \</table\>
                            \</td\>
                          \</tr\>
                        \</table\>
                        \<img border="0" src="Bilder/1pxtrans.gif" width="1" height="3"\> \<%

RecSet.Movenext
howmanyrecs = howmanyrecs + 1
Loop
Next
%\>\<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="96%" id="AutoNumber9" height="7"\>
                          \<tr\>
                            \<td width="100%" height="4"\>
                            \<div ID="dropText" STYLE="width: 452; height: 12; filter: dropShadow(color=orange,offX=1,offY=1, positive=1)"\>
\<p align="right"\>\<b\>\<font face="Tahoma" size="1"\>«\<img border="0" src="Bilder/1pxtrans.gif"\>Föregående Nästa\<img border="0" src="Bilder/1pxtrans.gif"\>»\</font\>\</b\>\</div\>\</td\>
                          \</tr\>
                          \<%else%\>\<tr\>
                            \<td width="100%" height="3"\>
                            \<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="97%" id="AutoNumber10"\>
                              \<tr\>
                                \<td width="100%"\>\<font size="1" face="Tahoma"\>
                                \<b\>\<img border="0" src="Bilder/1pxtrans.gif"\>\<br\>

                                \<img border="0" src="Bilder/1pxtrans.gif"\>Tyvärr, 
                                ingen har skrivit i \<%if request.querystring("Anvandarnamn") = session("Anvandarnamn") then%\> din\<%else%\>\<%=request.querystring("Anvandarnamn")%\>s\<%end if%\> gästbok\</b\>!\<br\>
                                \<img border="0" src="Bilder/1pxtrans.gif"\>\</font\>\</td\>
                              \</tr\>
                            \</table\>
                            \<p align="center"\>\<%end if%\>

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

## #2 — jboy_87, 2002-05-06T13:07Z

nån som kan hjälpa :o

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

## #3 — solbulle, 2002-05-06T13:43Z

Ja, är inte din "Next" onödig till att börja med?

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

## #4 — jboy_87, 2002-05-06T13:46Z

har fixat hela nu kan ni fixa så att det här blir till
föregående och framåt istället för 01 02 03 osv....
\<%
   If maxcount \<\> 0 then
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter \>= 10 then
      pad = ""
   End If
   ref = "\<a href='" & scriptname & "?sida=" & counter & "&pagesize=" & mypagesize & "'\>" & pad & counter & "\</a\> "
   response.write ref & " "
   Next
   End If
%\>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/43176-paging