<%
response.buffer = true
response.expires = -1
%>
<html><head>
<TITLE></TITLE>
</head>
<body>
<!--#INCLUDE FILE=\"ADOVBS.INC\" -->
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set RS = Server.CreateObject(\"ADODB.Recordset\")
Conn.Open \"DSN\", \"user\", \"password\"
sqltemp=\"SELECT * FROM tabel ORDER BY navn\"
mypage=request(\"whichpage\")
If mypage=\"\" then
mypage=1
end if
mypagesize=request(\"pagesize\")
If mypagesize=\"\" then
mypagesize=25 \'Antal Records som ses
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
\'response.write \"<table align=left border=\'0\'><tr><td align=left width=\'200\'>\"
\'response.write \"Side \" & mypage & \" af \" & maxpages & \"</td></tr></table>\"
%>
<table>
<tr>
<td>NAVN</td>
</tr>
<%
\' Now loop through the data
DO UNTIL rstemp.eof OR howmanyrecs>=maxrecs
\'Lav farveskift for hver række
if Color=\"#8e9dbc\" then
Color=\"#ffefd0\"
else
Color=\"#8e9dbc\"
end if
%>
<tr>
<td bgcolor=\"<%= Color %>\"><%=UCase(rstemp(\"navn\"))%></td>
</tr>
<%
rstemp.movenext
howmanyrecs=howmanyrecs+1
LOOP
response.write \"</table><p>\"
response.write \"<table align=left border=\'0\'><tr><td align=left width=\'200\'>\"
response.write \"Side \" & mypage & \" af \" & maxpages & \"</td></tr></table>\"
\' close, destroy
rstemp.close
set rstemp=nothing
\' Now make the page _ of _ hyperlinks
Call PageNavBar
sub PageNavBar()
\' Thanks to Jeff Emrich <jeff.emrich@datafuse.com>
pad=\"\"
scriptname=request.servervariables(\"script_name\")
response.write \"<table rows=\'1\' cols=\'1\' width=\'97%\'><tr>\"
response.write \"<td>\"
response.write \"<font size=\'2\' color=\'black\' face=\'Verdana, Arial,Helvetica, sans-serif\'>\"
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=\" & 1
ref=ref & \"&pagesize=\" & mypagesize
ref=ref & \"&sqlQuery=\" & server.URLencode(mySQL)
ref=ref & \"\'>Første</a> : \"
Response.Write ref
ref=\"<a href=\'\" & scriptname
ref=ref & \"?whichpage=\" & (counterstart - 1)
ref=ref & \"&pagesize=\" & mypagesize
ref=ref & \"&sqlQuery=\" & server.URLencode(mySQL)
ref=ref & \"\'>Forrige</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</a>\"
Response.Write ref
ref=\" : <a href=\'\" & scriptname
ref=ref & \"?whichpage=\" & maxpages
ref=ref & \"&pagesize=\" & mypagesize
ref=ref & \"&sqlQuery=\" & server.URLencode(mySQL)
ref=ref & \"\'>Sidste</a>\"
Response.Write ref
end if
response.write \"<br></font>\"
response.write \"</td>\"
response.write \"</table>\"
end sub
%>
</body>
</html>
Husk adovbs.inc. Hvis du ikke har den kan jeg lægge den ud også.
Stig
