Løkker og databaser

ja

"SELECT TOP 21 ........"

og

if not Rec.BOF then
  Counter = 0
  do while not Rec.EOF
    If Counter Mod 3 = 0 then Response.Write ("<tr>")
    Response.Write("<td>" & Rec("Hvad du nu skal bruge") & "</td>")
    Counter = Counter + 1
    If Counter Mod 3 = 0 then Response.Write ("</tr>")
    Rec.MoveNext
  loop
end if

og derefter for at gøre rækken færdig:

Counter = Counter Mod 3
if Counter > 0 then
  for i = Counter to 3
    Response.Write("<td>&nbsp;</td>")
  end if
  Response.Write ("</tr>")
end if

Sorry, lille fejl:

Counter = Counter Mod 3
if Counter > 0 then
  for i = Counter to 3
    Response.Write("<td>&nbsp;</td>")
  next
  Response.Write ("</tr>")
end if

Jeg tror jeg har misforstået dig, du vil kunne gå til næste side, ikke? Når der er mere end 21 poster. Øjeblik ...

ja... til det sidste

Ikke testet:

Response.Write ("<table>")
if not Rec.BOF then
  Counter = 0
  do while not Rec.EOF
    If Counter Mod 3 = 0 then Response.Write ("<tr>")
    Response.Write("<td>" & Rec("Hvad du nu skal bruge") & "</td>")
    Counter = Counter + 1
    If Counter Mod 3 = 0 then Response.Write ("</tr>")
    if Counter = 21 then
      Counter2 = Counter Mod 3
      if Counter2 > 0 then
        for i = Counter2 to 3
          Response.Write("<td>&nbsp;</td>")
        next
        Response.Write ("</tr>")
      end if
      Response.Write ("</table><div style=""page-break-before: always;""></div><table>")
      Counter = 0
    end if
    Rec.MoveNext
  loop
end if

Counter = Counter Mod 3
if Counter > 0 then
  for i = Counter to 3
    Response.Write("<td>&nbsp;</td>")
  next
  Response.Write ("</tr>")
end if
Response.Write ("</table>")

Hov, der kan spares lidt:


Response.Write ("<table>")
if not Rec.BOF then
  Counter = 0
  do while not Rec.EOF
    If Counter Mod 3 = 0 then Response.Write ("<tr>")
    Response.Write("<td>" & Rec("Hvad du nu skal bruge") & "</td>")
    Counter = Counter + 1
    If Counter Mod 3 = 0 then Response.Write ("</tr>")
    if Counter = 21 then
      Response.Write ("</table><div style=""page-break-before: always;""></div><table>")
    end if
    Rec.MoveNext
  loop
end if

Counter = Counter Mod 3
if Counter > 0 then
  for i = Counter to 3
    Response.Write("<td>&nbsp;</td>")
  next
  Response.Write ("</tr>")
end if
Response.Write ("</table>")

if Counter = 21 then
      Response.Write ("</table><div style=""page-break-before: always;""></div><table>")
    end if

skal erstattes med

if Counter Mod 21 = 0 then
      Response.Write ("</table><div style=""page-break-before: always;""></div><table>")
    end if

virker vidst ikke...

Den udskriver fint posterne 3 og 3, men den f..k'er min tables...
og udskriver desværre også alle poster..

Skal den ikke udskrive alle poster? Den skulle helst lave et nyt table efter syv rækker à 3, med et (usynligt) pagebreak imellem. Dette pagebreak vil printeren forstå og vil starte en ny side.

Prøv at sætte border = 0 for at kunne se hvad der sker

nåe... nej jeg mente man skulle kunne vælge en ny side hvis der er mere end 21 poster...
altså trykke på en link til en ny side

Det hedder paging og du kan se et ekspempel på det her:
http://activedeveloper.dk/artikler/default.asp?articleid=31

jeg lukker her... hvis i svarer kan i få nogen af pointene for besværet...

ok, men jeg vil da gerne lave det færdigt ...

jamen det er skam færdigt... ellers tak