Har svarat på denna tidigare här men hittade den inte någonstans.
Så här kommer den igen. ;)
response.write "<table><tr>"
Dim i
i = 0
do until rs.eof
if i = 2 then
response.write "</tr><tr>"
i = -1
end if
response.write "<td>" & rs("texten") & "</td>"
i = i - -1
rs.moveNext
loop
response.write "</tr></table>"
response.write "<table><tr>"
Dim i, a
i = 0
a = 0
do until rs.eof
if i = 2 then
response.write "</tr><tr>"
i = -1
end if
if a = 24 then
response.write "[i]css-koden för sidbrytning[/i]"
a = -1
end if
response.write "<td>" & rs("texten") & "</td>"
i = i - -1
a = a - -1
rs.moveNext
loop
response.write "</tr></table>"
Kommer inte ihåg den koden som skapar sidbryt för utskrift.
response.write "<table><tr>"
Dim i, raknare
i = 0
raknare = 0
do until rs.eof
if i = 2 then
response.write "</tr><tr>"
i = -1
end if
response.write "<td>" & rs("texten") & "</td>"
i = i - -1
If raknare = 24 Then
raknare = -1
'Här lägger du dina mellan rum
response.write "<br><br><br><br><br>"
End If
raknare = raknare + 1
rs.moveNext
loop
response.write "</tr></table>"