webForumDet fria alternativet

Förbered för utskrift

ASP

7 svar · 256 visningar · startad av vitamin

Medlem sedan dec. 200110 inlägg
Frågan#1

Jag har ett problem som jag upptäckte nyss. Jag vill hämta data ur en databas och sedan skriva ut den på ett lite speciellt sätt.

Datan skall hämtas ut och skrivas på följande sätt.

1 2 3
☼☼☼
4 5 6
☼☼☼
7 8 9
☼☼☼
o.s.v....

Dessutom skall sidan delas av efter 24 poster efterssom att detta sedan skall skrivas ut på en pappersmall.

Har dock kört fast totalt och vet varken ut eller in, någon med ideér?

Medlem sedan dec. 20003 563 inlägg
#2

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>"
Medlem sedan dec. 200110 inlägg
#3

Det funkar bra så, men den missar första posten av någon anledning..

EDIT:
Förlåt. Ska se om det är inte jag som är lite klumpig bara.. :)

Medlem sedan dec. 200110 inlägg
#4

En annan fråga då:

Hur får jag nu dessa att pausa efter 24 poster? För där måste jag lägga in ett extra mellanrum för det nya pappret..

Medlem sedan dec. 20003 563 inlägg
#5
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.

r: Hittade denn länk för detta endamål
http://www.webforum.nu/showthread.php?s=&forumid=12&threadid=65244&highlight=sidbryt

Medlem sedan jan. 20013 406 inlägg
#6
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>"
Medlem sedan dec. 200110 inlägg
#7

Detta är tamejfan för bra för att vara sant, att det i detta långsmala land existerar sådana fina personer! Heh!

Rätt spår igen, tackar!

Medlem sedan dec. 20003 563 inlägg
#8

Visst är vi underbara. ;)
Gott nytt år!

261 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
129 ms — deklarationer (db)
0 ms — hämta statistik (cache)
129 ms — hämta tråd, inlägg och bilagor (db)
129 ms — ändringar (db)