Page break - hvorfor virker det kun første gang
Hejsa !Jeg har lavet nedenstående eksempel kode. Jeg tæller op til 44 records og så laver jeg et pagebreak (således at tabel + næste udskrift udskrives på ny side.) men hvorfor virker det kune første gang.
1. gang 44 nåes laves pagebreak OG ny tabel udskrives på ny side.
2. gang 44 nåes pagebreak indsættes godt nok men tabel udskrives IKKE på en ny side.
<%@ Language=VBScript %>
<!--#INCLUDE FILE="../functions.asp" -->
<%
'Opret et Connection- og et Recordset objekt
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
'Opret en data Connection
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../../fpdb/database.mdb")
cn.Open strDSN
'Åben et Recordset ved hjælp af Connection objektet
' Sætter sortering
strSQl = "SELECT navn FROM navne"
rs.Open strSQL, cn
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<link rel="stylesheet" type="text/css" href="../../../adm/bluebook.asp">
<title>Eksempel</title></HEAD>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="660">
<tr>
<td>
<p class="faktabox">Bidding </p> <table border=0 bgcolor=#FFFFFF>
<tr>
<td bgcolor="#000080" align="center" width="40"><b><font color="#FFFFFF">Navn</font></b></td>
</tr>
<tr>
<%
antal = 0
'Gennemløb RecordSet og vis resultaterne i en tabel
'anvend MoveNext til at gå til næste record
' color="#E6F2FF"
Do Until rs.EOF
if color="#CCE6FF" then
color="#E6F2FF"
else
color="#CCE6FF"
end if
antal = antal + 1
%>
<tr>
<td bgcolor=<%=color%> ><FONT face=Verdana > <%=rs("navn")%> </font></td>
</tr>
<% if antal = 44 then
antal = 0
%>
</table>
<p class="page-break-before:always">
a
<table border="0" cellpadding="0" cellspacing="0" width="660">
<tr>
<td>
<p class="faktabox">Bidding </p> <table border=0 bgcolor=#FFFFFF>
<tr>
<td bgcolor="#000080" align="center" width="40"><b><font color="#FFFFFF">Navn</font></b></td>
</tr>
<tr>
<% end if %>
<%
rs.MoveNext
Loop
'Luk RecordSet og Connection
'Nedlæg RecordSet- og Connection- objekterne
rs.Close
cn.Close
set rs=nothing
set cn=nothing
%>
</table>
<p class="faktaboxbund">[<a href="../index.asp">Oversigt</a>]</p>
</td>
</tr>
</table>
</center>
<br>
</BODY>
