Problemer med paging
Jeg kan ikke få dette til at virke:<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set RS = Server.CreateObject(\"ADODB.Recordset\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"database/frem.mdb\")
sqltemp=\"select * from Kategori\"
mypage=request(\"whichpage\")
If mypage=\"\" then
mypage=1
end if
mypagesize=request(\"pagesize\")
If mypagesize=\"\" then
mypagesize=10 \'Her sættes antal rækker.
end if
mySQL=request(\"SQLquery\")
IF mySQL=\"\" THEN
mySQL=SQLtemp
END IF
set rstemp=Server.CreateObject(\"ADODB.Recordset\")
rstemp.cursorlocation=aduseclient
rstemp.cachesize=5
rstemp.open mySQL,Conn
rstemp.movefirst
rstemp.pagesize=mypagesize
maxpages=cint(rstemp.pagecount)
maxrecs=cint(rstemp.pagesize)
rstemp.absolutepage=mypage
howmanyrecs=0
howmanyfields=rstemp.fields.count -1
%>
<%
DO UNTIL rstemp.eof OR howmanyrecs>=maxrecs
\'Lav farveskift for hver række
if Color=\"#FFFFFF\" then
Color=\"#CCCCCC\"
Color1=\"#FFFFFF\"
else
Color=\"#FFFFFF\"
Color1=\"#CCCCCC\"
end if
%>
<tr>
<td><a CLASS=\"Link2\" href=\"jul.asp?desing=3&ID=<%=UCase(rstemp(\"ID\"))%>\"><font face=\"Tahoma\" size=\"2\"><%= (rstemp(\"Navn\"))%></font></a></td>
</tr>
<%
rstemp.movenext
howmanyrecs=howmanyrecs+1
LOOP
response.write \"</table><p>\"
rstemp.close
set rstemp=nothing
\' Now make the page _ of _ hyperlinks
Call PageNavBar
sub PageNavBar()
pad=\"\"
scriptname=request.servervariables(\"script_name\")
response.write \"<table width=\'100%\'><tr>\"
response.write \"<td>\"
response.write \"<font size=\'2\' face=\'Tahoma\'>\"
if (mypage mod 10) = 0 then
counterstart = mypage - 9
else
counterstart = mypage - (mypage mod 10) + 1
end if
counterend = counterstart + 9
if counterend > maxpages then counterend = maxpages
if counterstart <> 1 then
ref=\"<a href=\'\" & scriptname
ref=ref & \"?whichpage=\" & (counterstart - 1)
ref=ref & \"&pagesize=\" & mypagesize
ref=ref & \"&sqlQuery=\" & server.URLencode(mySQL)
ref=ref & \"\'>Forrige 10 sider</a> \"
Response.Write ref
end if
Response.Write \"[\"
for counter=counterstart to counterend
If counter>=10 then
pad=\"\"
end if
if cstr(counter) <> mypage then
ref=\"<a href=\'\" & scriptname
ref=ref & \"&whichpage=\" & counter
ref=ref & \"&pagesize=\" & mypagesize
ref=ref & \"&sqlQuery=\" & server.URLencode(mySQL)
ref=ref & \"\'>\" & pad & counter & \"</a>\"
else
ref=\"<b>\" & pad & counter & \"</b>\"
end if
response.write ref
if counter <> counterend then response.write \" \"
next
Response.Write \"]\"
if counterend <> maxpages then
ref=\" <a href=\'\" & scriptname
ref=ref & \"&whichpage=\" & (counterend + 1)
ref=ref & \"&pagesize=\" & mypagesize
ref=ref & \"&sqlQuery=\" & server.URLencode(mySQL)
ref=ref & \"\'>Næste 10 sider</a>\"
Response.Write ref
end if
response.write \"<br></font>\"
response.write \"</td>\"
end sub
%>
Den siger at der er fejl i disse linier:
rstemp.cursorlocation=aduseclient
og
rstemp.absolutepage=mypage
