Paging fra Access database
Hej!Nedenstående kode trækker data ud fra en Access database og placerer disse i en tabel til brug ved udskrift af labels. Løsningen er dog uhensigtsmæssigt, og jeg ønsker i stedet at bruge paging, bl.a. for bedre at styre udskriften på de omtalte labels.
Jeg ønsker maks. 8 records pr. side fordelt på en tabel bestående af to kolonner á fire rækker.
Efter tabellen skal det være muligt at klikke sig videre til siderne med data (f.eks. "Gå til side 2,3,4").
Hjælp til "ombrydning" af min nuværende kode ønskes.
-- start på min kode --
<%
' Forbindelse til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../../../../db/college.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from STUDENTS WHERE Incentives_sent='No' AND Login_start='4' AND Country='Norway'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%><%
' Check om recordsettet er tomt
If (rs.BOF AND rs.EOF) Then
Response.Redirect "no_data.html"
ELSE
%>
<html>
<title></title>
<header>Labels</header>
<body bgcolor="#ffffff" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<table width="715" border="0" cellspacing="0" cellpadding="0">
<% DO WHILE NOT rs.EOF %>
<tr>
<td width="5" height="50"><img src="images/clear-1x1.gif" width="5" height="50" border="0"></td>
<td width="335" height="50"><img src="images/clear-1x1.gif" width="335" height="1" border="0"></td>
<td width="45" height="50"><img src="images/clear-1x1.gif" width="45" height="1" border="0"></td>
<td width="335" height="50"><img src="images/clear-1x1.gif" width="335" height="1" border="0"></td>
<td width="5" height="50"><img src="images/clear-1x1.gif" width="5" height="1" border="0"></td>
</tr>
<tr>
<td width="5" height="164"><img src="images/clear-1x1.gif" width="5" height="164" border="0"></td>
<td width="335" height="164"><%=rs("Name")%><br><%=rs("Pharmacy")%><br><%=rs("Street")%><br><%=rs("City")%> <%=rs("Postal_code")%><br>
<%=rs("Country")%><br>
</td>
<td width="45" height="164"> </td>
<td width="335" height="164"><% rs.moveNext%><%if NOT rs.EOF then%><%=rs("Name")%><br><%=rs("Pharmacy")%><br><%=rs("Street")%><br><%=rs("City")%> <%=rs("Postal_code")%><br>
<%=rs("Country")%><br>
<br>
<%
rs.moveNext
End if
%></td>
<td width="5"></td>
</tr>
<tr>
<td width="5" height="28"><img src="images/clear-1x1.gif" width="5" height="28" border="0"></td>
<td width="335" height="28"> </td>
<td width="45" height="28"> </td>
<td width="335" height="28"> </td>
<td width="5" height="28"> </td>
</tr>
<% LOOP%><%
End If
%>
</table>
</body>
</html>
<%
' Luk forbindelse til database
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
-- slut på min kode --
