Avatar billede troelsm Nybegynder
03. august 2002 - 13:17 Der er 2 kommentarer og
1 løsning

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 >&nbsp;<%=rs("navn")%>&nbsp;</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>
Avatar billede bobbedude Nybegynder
03. august 2002 - 13:47 #1
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT LinkURL FROM Links"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../fpdb/database.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 44
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
Response.Write rs("navn") & "<br>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
Response.Write "&gt;&gt;"
End If
%>
Avatar billede troelsm Nybegynder
03. august 2002 - 17:16 #2
Det er en fin løsning du har lavet bobbedude.
Og jeg ved godt hvordan jeg laver pagning - men det er ikke det jeg vil - i såfald skal brugeren først vises side 1 printe den - skite til 2 - printe den.

Det som ? går på er at den side som vises opdeles via pagebreak, altså at ALLE recordes vises på den samme side - MEN ved udskrivning deles de ud over flere sider.
Avatar billede troelsm Nybegynder
04. august 2002 - 04:31 #3
lukning,
fandt selv ud af det - det skyldtes at der var en avoid i samme css.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester