Optimering af kode
Er der nogen af jer som kan komme med nogen gode ideer til hvordan jeg kan optimere følgende, så den kommer til at køre bedre<%
' DB connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};User Id=admin;Password=;DBQ=" & Server.MapPath("rsPaging.mdb")
' records per page
recordsonpage = 50
' Reworked count
Set allrecordscount = Conn.Execute("Select count(*) as Found from tblItem")
allrecords = allrecordscount("found")
' if offset is zero then the first page will be loaded
offset = request.querystring("offset")
if offset = 0 OR offset = "" then
requestrecords = 0
else
requestrecords = requestrecords + offset
end if
' opens database
set rs = conn.Execute("SELECT * FROM tblItem ORDER BY ItemID")
' reads first records (offset) without showing them (can't find another solution!)
hiddenrecords = requestrecords
do until hiddenrecords = 0 OR rs.EOF
hiddenrecords = hiddenrecords - 1
rs.movenext
if rs.EOF then
lastrecord = 1
end if
loop
%>
<html>
<head>
<title>CD Database</title>
<meta http-equiv="author" content="Tranzity">
</head>
<body>
<table cellspacing="2" cellpadding="2" border="1" width="400">
<%
' prints records in the table
showrecords = recordsonpage
recordcounter = requestrecords
do until showrecords = 0 OR rs.EOF
recordcounter = recordcounter + 1
%>
<tr>
<td><b><% = recordcounter %></b></td>
<td><% = rs("ItemID") %></td>
<td><% = rs("ItemName") %></td>
</tr>
<%
showrecords = showrecords - 1
rs.movenext
if rs.EOF then
lastrecord = 1
end if
loop
%>
</table>
<p>
<table cellspacing="2" cellpadding="2" border="1" width="400">
<tr>
<td><% if requestrecords <> 0 then %><a href="new2.asp?offset=<% = requestrecords - recordsonpage %>">Prev Page</a><% else %>Prev Page<% end if %></td>
<td><% if lastrecord <> 1 then %> <a href="new2.asp?offset=<% = requestrecords + recordsonpage %>">Next Page</a><% else %>Next Page<% end if %></td>
</tr>
<tr>
<td colspan="2">pagelist:
<%
pagelist = 0
pagelistcounter = 0
do until pagelist >= allrecords
pagelistcounter = pagelistcounter + 1
%>
<a href="new2.asp?offset=<% = pagelist %>"><% = pagelistcounter %></a>
<%
pagelist = pagelist + recordsonpage
loop
%>
</td>
</tr>
</table>
<%
' Closes connection
rs.close
Conn.close
%>
</body>
</html>
