Så fik jeg tid til at lave koden ... Den er som følger og modsat cyberprofessors virker den, he he
<!-- #INCLUDE VIRTUAL=\"/adovbs.inc\" -->
<%
Response.Buffer = True
\' Først finder vi ud af hvad vores paging side er på nu
Page = Trim(Request(\"page\"))
If Page = \"\" Then Page = 1
\' Standard DSNless connection til databasen db.mdb
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"\\data\\cars_nfs4_audi.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
\' Vores SQL-forespørgsel vi ønsker paget
Sql = \"SELECT * FROM cars_nfs4_audi ORDER BY Dato DESC\"
\' Så begynder det sjove - her sætter vi vores recordset op...
\' Jeg vil ikke gennemgå alt hvad recordsetkoden gør.
\' Kig evt. i en dokumentation hvis du ikke helt er med på hvad der er hvad... :-)
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.CursorType = adOpenStatic
\' Hvor mange records vil have på hver side... her er den sat til 9
rs.PageSize = 9
rs.Open(Sql), Con
\' Her laver jeg et lille trick der gør at hvis ens forespørgsel er tom,
\' så får man ikke en fejl
If Not rs.EOF Then
rs.AbsolutePage = cINT(Page)
rowCount = 0
End If
%>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">
<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<title>NFS-net</title>
<style>
BODY {
scrollbar-face-color: #990000;
scrollbar-shadow-color: #000000;
scrollbar-highlight-color: #808080;
scrollbar-3dlight-color: #ffffff;
scrollbar-darkshadow-color: #000000;
scrollbar-track-color: #000000;
scrollbar-arrow-color: #ffffff;
}</style>
<style><!--
A:link {text-decoration: none; color = white}
A:link:hover {text-decoration: underline; color = #EFBD73}
A:visited {text-decoration: none; color = white}
A:visited:hover {text-decoration: underline; color = #EFBD73}
--></style>
<script language=\"JavaScript\">
function PopWin(url,h,w) { var ww = 640, wh = 480, leftPos = null, topPos = null;
if (top.screen){
if (screen.width){
leftPos = Math.round((screen.width-h-10)/2);
topPos = Math.round((screen.height-w-29)/2);
} else { leftPos = 50
topPos = 50
}
}
popupWin = window.open(url, \'Zoom\', \'height=\' + h + \',width=\' + w + \',top=\' + topPos + \',left=\' + leftPos + \'\')
}
// -->
</script>
<script>
<!--
defaultStatus = \"NFS-net - Den danske Need for Speed webside\" //-->
</script>
<base target=\"_self\">
</head>
<body bgcolor=\"#000000\" text=\"#FFFFFF\" link=\"#FFFFFF\" vlink=\"#FFFFFF\" alink=\"#FFFFFF\" topmargin=\"0\" leftmargin=\"0\">
<div align=\"center\">
<center>
<table border=\"0\" width=\"760\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td valign=\"top\" align=\"center\" width=\"800\"><font size=\"2\" face=\"Arial\" color=\"#CACACA\"><img border=\"0\" src=\"../../images/top_logo.jpg\" width=\"760\" height=\"120\"></font></td>
</tr>
</table>
</div>
<div align=\"center\">
<table border=\"0\" width=\"760\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"120\" valign=\"top\" background=\"../../images/left_background.gif\">
<p style=\"margin-top: 0; margin-bottom: 0\"><img border=\"0\" src=\"../../images/left_carpic.gif\" width=\"120\" height=\"100\">
<p style=\"margin-left: 0; margin-top: 0; margin-bottom: 0\"><font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\" width=\"9\" height=\"9\"><strong><a href=\"../../index_2.asp\" onmouseover=\"self.status=\'Tilbage til Startsiden\' ;return true\" onmouseout=\"self.status=\'\';return true\">Startside</a></strong></font><font color=\"#FFFFFF\" size=\"1\" face=\"Arial\"><br>
</font><img src=\"../../../images/line.gif\" align=\"middle\" border=\"0\" vspace=\"2\" width=\"79\" height=\"1\"><br>
<font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\" width=\"9\" height=\"9\"><strong>NFS
3: HP<br>
</strong></font><font color=\"#FFFFFF\" size=\"1\" face=\"Arial\">
<a href=\"../../nfs3_cars.asp\" onmouseover=\"self.status=\'Nye Biler til NFS3: Hot Pursuit\' ;return true\" onmouseout=\"self.status=\'\';return true\" onmouseover=\"self.status=\'Nye Biler til NFS3: Hot Pursuit\' ;return true\" onmouseout=\"self.status=\'\';return true\">Addon
Car\'s</a><br>
<a href=\"../../nfs3_tracks.asp\" onmouseover=\"self.status=\'Nye Baner til NFS3: Hot Pursuit\' ;return true\" onmouseout=\"self.status=\'\';return true\">Addon
Track\'s</a><br>
<a href=\"../../nfs3/demo/nfs3.zip#new\" onmouseover=\"self.status=\'Spilbar NFS3: Hot Pursuit demo\' ;return true\" onmouseout=\"self.status=\'\';return true\">Demo</a><br>
</font><img src=\"../../../images/line.gif\" align=\"middle\" border=\"0\" vspace=\"2\" width=\"80\" height=\"1\"><br>
<font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\" width=\"9\" height=\"9\"><strong>NFS
4: HS/RC</strong></font><br>
<font color=\"#FFFFFF\" size=\"1\" face=\"Arial\">
<a href=\"../../nfs4_cars.asp#complete\" onmouseover=\"self.status=\'Nye Biler til NFS4: High Stakes/Road Challange\' ;return true\" onmouseout=\"self.status=\'\';return true\">Addon
Car\'s</a><br>
<a href=\"../../nfs4_tracks.asp#complete\" onmouseover=\"self.status=\'Nye Baner til NFS4: High Stakes/Road Challange\' ;return true\" onmouseout=\"self.status=\'\';return true\">Addon
Track\'s</a><br>
<a href=\"../../nfs4/demo/nfs4.zip\" onmouseover=\"self.status=\'Spilbar NFS4 demo: High Stakes/Road Challange\' ;return true\" onmouseout=\"self.status=\'\';return true\">Demo</a>
</font><img src=\"../../../images/line.gif\" align=\"middle\" border=\"0\" vspace=\"2\" width=\"83\" height=\"1\"><br>
<font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\" width=\"9\" height=\"9\"><strong>NFS
5: P2000<br>
</strong></font><font color=\"#FFFFFF\" size=\"1\" face=\"Arial\">
<a href=\"../../nfs5_cars.asp#comparing\" onmouseover=\"self.status=\'Nye Biler til NFS5: Porsche 2000\';return true\" onmouseout=\"self.status=\'\';return true\">Addon
Car\'s</a><br>
<a href=\"../../nfs5_tracks.asp#comparing\" onmouseover=\"self.status=\'Nye Baner til NFS5: Porsche 2000\' ;return true\" onmouseout=\"self.status=\'\';return true\">Addon
Track\'s</a><br>
<a href=\"../../nfs5_demos.asp#comparing\" onmouseover=\"self.status=\'2 spilbare NFS5: Porsche 2000 demoer. Online demo og one player demo\' ;return true\" onmouseout=\"self.status=\'\';return true\">Demo\'er</a></font><img src=\"../../../images/line.gif\" align=\"middle\" border=\"0\" vspace=\"2\" width=\"82\" height=\"1\"><br>
<font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\" width=\"9\" height=\"9\"><a href=\"../../nfs6_gallery.asp\" onmouseover=\"self.status=\'Billed galleri med NFS6: Moter City Online\' ;return true\" onmouseout=\"self.status=\'\';return true\"><strong>NFS
6: MC</strong></a></font><font color=\"#FFFFFF\" size=\"1\" face=\"Arial\"><br>
</font><img src=\"../../../images/line.gif\" align=\"middle\" border=\"0\" vspace=\"2\" width=\"82\" height=\"1\"><br>
<font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\" width=\"9\" height=\"9\"><a href=\"../../cheat.asp\" onmouseover=\"self.status=\'Cheat Codes til NFS 3, 4 og 5\' ;return true\" onmouseout=\"self.status=\'\';return true\"><strong>Cheat
Codes</strong></a></font><br>
<img src=\"../../../images/line.gif\" align=\"middle\" border=\"0\" vspace=\"2\" width=\"79\" height=\"1\"><br>
<font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\" width=\"9\" height=\"9\"><a href=\"../../filer.asp\" onmouseover=\"self.status=\'Diverse filer til NFS 3, 4 og 5\' ;return true\" onmouseout=\"self.status=\'\';return true\"><strong>Andre
Filer</strong></a></font><font color=\"#FFFFFF\" size=\"1\" face=\"Arial\"><br>
</font><img src=\"../../../images/line.gif\" align=\"middle\" border=\"0\" vspace=\"2\" width=\"80\" height=\"1\"><br>
<font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\" width=\"9\" height=\"9\"><strong><a href=\"mailto:webmaster@nfs-net.dk\" onmouseover=\"self.status=\'Send en E-Mail til Webmasteren\' ;return true\" onmouseout=\"self.status=\'\';return true\">E-Mail</a><br>
</strong></font><img src=\"../../../images/line.gif\" align=\"middle\" border=\"0\" vspace=\"2\" width=\"75\" height=\"1\"><br>
<font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\" width=\"9\" height=\"9\"><a href=\"../../credits.asp\" onmouseover=\"self.status=\'Se hvem der har lavet denne side\' ;return true\" onmouseout=\"self.status=\'\';return true\"><strong>Credits...</strong></a></font><br>
<img src=\"../../../images/line.gif\" align=\"middle\" border=\"0\" vspace=\"2\" width=\"82\" height=\"1\"></p>
</td>
<td valign=\"top\" background=\"../../images/main_background.gif\" width=\"520\">
<p style=\"margin-left: 5; margin-right: 5; margin-top: 0; margin-bottom: 0\">
<p style=\"margin-left: 5; margin-right: 5; margin-top: 0; margin-bottom: 0\"> </p>
</center>
<center>
<p align=\"left\" style=\"margin-left: 10; margin-right: 10; margin-top: 0; margin-bottom: 0\"><strong><font face=\"Arial, sans-serif\" color=\"#CACACA\" size=\"3\">Audi
til Need for Speed VI: Road Challenge/ High Stakes</font></strong></p>
</center>
<b><font size=\"2\" face=\"Arial, sans-serif\">
<p style=\"margin-left: 10; margin-right: 10; margin-top: 0; margin-bottom: 20\" align=\"left\"></font><font face=\"Arial, sans-serif\" size=\"1\" color=\"#CACACA\">Vælg
den bil du vil downloade:</font>
<%
\' her laver vi en løkke der henter vores records ud
While Not rs.EOF and rowCount < rs.PageSize
%>
<div align=\"center\">
<center>
<table border=\"0\" width=\"354\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"177\" height=\"133\"><a href=\"java script:PopWin(\'<% Response.Write rs(\"pic\")%>.jpg\',480,640);\" onmouseover=\"self.status=\'Zoom ind\' ;return true\" onmouseout=\"self.status=\'\';return true\"><img src=\"<% Response.Write rs(\"pic\")%>.gif\"></td>
<td width=\"177\">
<p style=\"margin-left: 2; margin-top: 0; margin-bottom: 0\"> </p></b>
<p style=\"margin-left: 2; margin-top: 0; margin-bottom: 0\"><font color=\"#CACACA\" size=\"1\" face=\"Arial\">Author: <% Response.Write rs(\"author\")%></font></p>
<p style=\"margin-left: 2; margin-top: 0; margin-bottom: 0\"> </p>
<p style=\"margin-left: 2; margin-top: 0; margin-bottom: 0\"><font color=\"#CACACA\" size=\"1\" face=\"Arial\">Klasse: <% Response.Write rs(\"class\")%></font></p>
<p style=\"margin-left: 2; margin-top: 0; margin-bottom: 0\"> </td>
</tr>
<tr>
<td width=\"50%\" bgcolor=\"#990000\">
<p style=\"margin-left: 3\"><font size=\"1\" face=\"Arial\" color=\"#CACACA\">Audi <% Response.Write rs(\"model\")%></font></td>
<td width=\"50%\" bgcolor=\"#808080\">
<p align=\"center\"><a href=\"<% Response.Write rs(\"link\")%>\" onmouseover=\"self.status=\'Download <% Response.Write rs(\"model\")%> til NFS4: RC/HS\' ;return true\" onmouseout=\"self.status=\'\';return true\"><font size=\"1\" face=\"Arial\" color=\"#990000\">Download</font></a></td>
</tr>
</table>
</center>
</div>
<%
rowCount = rowCount + 1
rs.Movenext
Wend
\' Hvis der er behov for flere sider for at vise hele recordsettet, så kommer her links...
If rs.PageCount <> 1 Then
For i = 1 to rs.PageCount
\' Indsæt sidens navn her !!!!
response.write \"<a href=\'audi.asp?page=\" & i & \"\'>Side \" & i & \" </a>\"
Next
End If
%>
<p align=\"center\" style=\"margin-top: 0; margin-bottom: 0\"> </p>
<%
Con.Close
Set Con = Nothing
%>
<a href=\"../nfs3/pursuit.asp\" onmouseover=\"self.status=\'Pursuit cars til NFS3: Hot Pursuit\' ;return true\" onmouseout=\"self.status=\'\';return true\">
</a>
<td width=\"120\" valign=\"top\" background=\"../../images/right_background.gif\">
<p align=\"right\"><img border=\"0\" src=\"../../images/right_carpic.gif\">
<p align=\"right\" style=\"margin-top: 0; margin-bottom: 0\"><font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><a href=\"java script:PopWin(\'help.asp\',480,640);\" target=\"_self\" onmouseover=\"self.status=\'Hjælp til installation af biler til NFS 3, 4 & 5\' ;return true\" onmouseout=\"self.status=\'\';return true\"><strong>Hjælp</strong></a><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\"></font><font color=\"#FFFFFF\" size=\"1\" face=\"Arial\"><br>
</font><img src=\"../../../images/line.gif\" align=\"middle\" border=\"0\" vspace=\"2\" width=\"100\" height=\"1\"><br>
<font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><a href=\"../../links.asp\" onmouseover=\"self.status=\'Links til andre spil websider\' ;return true\" onmouseout=\"self.status=\'\';return true\"><strong>Links</strong></a><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\"></font><font color=\"#FFFFFF\" size=\"1\" face=\"Arial\"><br>
</font><img src=\"../../../images/line.gif\" align=\"middle\" border=\"0\" vspace=\"2\" width=\"100\" height=\"1\"><br>
<font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><a href=\"../../nfs-net_cars.asp\" onmouseover=\"self.status=\'Biler der er lavet af NFS-net\' ;return true\" onmouseout=\"self.status=\'\';return true\"><strong>NFS-net\'s
biler</strong></a><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\"></font><font color=\"#FFFFFF\" size=\"1\" face=\"Arial\"><br>
</font><img src=\"../../../images/line.gif\" align=\"middle\" border=\"0\" vspace=\"2\" width=\"105\" height=\"1\"><br>
<font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><a onmouseover=\"self.status=\'Skriv og læs i min Guestbook\' ;return true\" onmouseout=\"self.status=\'\';return true\" href=\"../../guestbook.asp\"><strong>Guestbook</strong></a><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\"></font><font color=\"#FFFFFF\" size=\"1\" face=\"Arial\"><br>
</font><img src=\"../../../images/line.gif\" align=\"middle\" border=\"0\" vspace=\"2\" width=\"107\" height=\"1\"><br>
<font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><strong>Affiliates</strong></font><font color=\"#FFFFFF\" size=\"1\" face=\"Arial\"><font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\"><strong><br>
</strong></font> <a href=\"
http://www.felixx-autobahn.de\" target=\"_blank\" onmouseover=\"self.status=\'Felixx Autobahn\' ;return true\" onmouseout=\"self.status=\'\';return true\">Felixx-Autobahn</a> <br>
<a href=\"
http://garage.nfsstudios.com\" target=\"_blank\" onmouseover=\"self.status=\'Claus Brunn Garage\' ;return true\" onmouseout=\"self.status=\'\';return true\">Claus
Brunn Garage</a> <br>
<a href=\"
http://www.nfsvault.com\" target=\"_blank\" onmouseover=\"self.status=\'Need for Speed Vault\' ;return true\" onmouseout=\"self.status=\'\';return true\">Need
for Speed Vault</a> <br>
<a href=\"
http://nfscc.nfsgarage.net/dansk\" target=\"_blank\" onmouseover=\"self.status=\'Need for Speed Conversion Center\' ;return true\" onmouseout=\"self.status=\'\';return true\">NFS
CC</a> <br>
<a href=\"
http://www.nfsworld.org\" target=\"_blank\" onmouseover=\"self.status=\'NFSworld.org\' ;return true\" onmouseout=\"self.status=\'\';return true\">NFSWorld.org</a>
<br>
<img src=\"../../../images/line.gif\" align=\"middle\" border=\"0\" vspace=\"2\" width=\"98\" height=\"1\"><br>
</font><font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><strong><a href=\"
http://www.games-net.nfs-net.dk\" onmouseover=\"self.status=\'
www.Games-net.dk\' ;return true\" onmouseout=\"self.status=\'\';return true\" target=\"_top\">Games-net.dk</a></strong></font><font color=\"#FFFFFF\" size=\"1\" face=\"Arial\"><font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\"><strong><br>
</strong></font> <a href=\"../../error.asp\" onmouseover=\"self.status=\'
www.Halflife-net.dk\' ;return true\" onmouseout=\"self.status=\'\';return true\" target=\"_top\">Halflife-net </a> <br>
<a href=\"../../error.asp\" onmouseover=\"self.status=\'
www.Heroes-net.dk\' ;return true\" onmouseout=\"self.status=\'\';return true\" target=\"_top\">Heroes-net</a> <br>
<a href=\"../../error.asp\" onmouseover=\"self.status=\'
www.Hitman-net.dk\' ;return true\" onmouseout=\"self.status=\'\';return true\" target=\"_top\">Hitman-net</a>
<br>
</font><font color=\"#FFCC00\" size=\"1\" face=\"Arial\"> </font><font color=\"#EFBD73\" size=\"1\" face=\"Arial\"><u>NFS-net</u>
</font><font color=\"#FFFFFF\" size=\"1\" face=\"Arial\">
<br>
<img src=\"../../../images/line.gif\" align=\"middle\" border=\"0\" vspace=\"2\" width=\"98\" height=\"1\"><br>
</font><font size=\"2\" color=\"#FFFFFF\" face=\"Arial\"><strong><a href=\"../../admin/admin/\" onmouseover=\"self.status=\'Administration af NFS-net, kun adgang for administratore\' ;return true\" onmouseout=\"self.status=\'\';return true\" target=\"_top\">Admin</a></strong><img src=\"../../images/ball_s.gif\" align=\"middle\" hspace=\"2\"></font>
</p>
<p align=\"right\"> </td>
</tr>
</table>
</div>
<div align=\"center\">
<table border=\"0\" width=\"760\" cellspacing=\"0\" cellpadding=\"0\" height=\"40\">
<tr>
<td width=\"120\" height=\"40\" background=\"../../images/left_bottom_background.gif\">
<p align=\"center\"><a href=\"#top\" onmouseover=\"self.status=\'Til toppen af siden\' ;return true\" onmouseout=\"self.status=\'\';return true\"><font color=\"#CACACA\" face=\"Arial\" size=\"1\">Til
toppen</font></a></td>
<td background=\"../../images/bottom_background.gif\" width=\"520\" height=\"40\">
<p align=\"center\"><b><font color=\"#CACACA\" size=\"2\" face=\"Arial\">Copyright
1999 - 2001 ©</font><a href=\"
http://www.games-net.dk\" target=\"_blank\"><i><font color=\"#CACACA\" size=\"2\" face=\"Arial\">Games-net.dk</font></i></a></b></td>
<td width=\"120\" height=\"40\" background=\"../../images/right_bottom_background.gif\">
<p align=\"center\"><a href=\"#top\" onmouseover=\"self.status=\'Til toppen af siden\' ;return true\" onmouseout=\"self.status=\'\';return true\"><font color=\"#CACACA\" face=\"Arial\" size=\"1\">Til toppen</font></a></td>
</tr>
</table>
</div>
</body>
</html>
Den skal dog bruge adovbs.inc som ligger i common files/system/ado el. sådan noget!