---
title: "Skriva ut från Access i en tabell"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/89735-skriva-ut-från-access-i-en-tabell"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MickeA.com"
published: "2003-11-05T19:48:40.000Z"
updated: "2003-11-06T15:09:48.000Z"
replies: 9
views: 278
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/89735-skriva-ut-från-access-i-en-tabell"
---

# Skriva ut från Access i en tabell

## #1 — MickeA.com, 2003-11-05T19:48Z

Hej

På min sida har jag 'veckans fråga' i form av en helt vanlig poll med tre svaralternativ. Nu har jag så att man kan titta på alla som varit.

Vill skriva ut alla i en tabell, med \_tre\_ frågor på varje rad. Så den plockar ut alla från db'n, sen börjar skriva ut i en loop. Men den ska skriva ut tre stycken, sen ska en \</tr\> komma, så att den byter till en ny rad. Är ni med?! Så ska den göra tills alla är utskrivna, Det \_kan\_ ju hända att det bara blir en eller två på sista raden, beroende på ur många det är totalt.

Så en liten loop för att få det här att funka skulle jag vilja ha hjälp med ;)

Tack !!!

Permalänk: https://www.webforum.nu/p/89735

## #2 — Mog, 2003-11-05T20:14Z

Släng in en räknare = 1 som räknar upp ett för varje varv. När den = 3 skriver du \</TR\>\<TR\> och sätter räknaren = 1.

Permalänk: https://www.webforum.nu/p/1198356

## #3 — Engine^, 2003-11-05T20:15Z

Du skulle kunna lägga till en räknare i loopen och göra något i den här stilen

```
intCounter = 0

While Not Recordset.EOF
  intCounter = intCounter + 1

  If intCounter = 1 Then Response.Write "<tr>"

  [blue]'skriv ut data[/blue]

  If intCounter Mod 3 = 0 Then Response.Write "</tr>"
Wend

If Not intCounter Mod 3 = 0 Then Response.Write "</tr>"
```

Permalänk: https://www.webforum.nu/p/1198357

## #4 — MickeA.com, 2003-11-06T06:05Z

Hmm, ja just det, det5 där skulle ju gå, sen skiver jag ut en ny \<td\>\</td\> med allt innehåll mellan där 'skriv ut data står. Det borde ju funka bra ;)

Permalänk: https://www.webforum.nu/p/1198483

## #5 — MickeA.com, 2003-11-06T06:06Z

Men nu ser jag ngt konstigt, ska det verkligen var såhär: 

```
If intCounter Mod 3 = 0 Then Response.Write "</tr>"
Wend

If Not intCounter Mod 3 = 0 Then Response.Write "</tr>"
```

 Jag tycker det ser konstigt ut, men det är ju o andra sidan väldigt tidigt ;)

Permalänk: https://www.webforum.nu/p/1198484

## #6 — MickeA.com, 2003-11-06T06:27Z

Hmm, såhär har jag gjort nu, men ngt är jättefel, får inga direkta felmess, men skriptet laddar o laddar tills jag får ett meddelande om att "tiden för att köra skript överstiges". så det verkar vara ngt fel:

```
<table border="0" width="100%" height='100%' cellspacing="0" cellpadding="0">
<tr><td width="100%" height="15" class='forum_text'>&nbsp;</td></tr>
<%
intCounter = 0

While Not oRec.EOF
  intCounter = intCounter + 1

fraga =  oRec("Fraga")
svar1  = oRec("Svar1")
svar2  = oRec("Svar2")
svar3  = oRec("Svar3")
initDate = oRec("initDate")

total = CInt(oRec("Res1")) + CInt(oRec("Res2")) + CInt(oRec("Res3"))

If oRec("Res1") = 0 Then pro1 = 0 Else pro1 = Replace(round(oRec("Res1") / total * 100), ",",".") End If
If oRec("Res2") = 0 Then pro2 = 0 Else pro2 = Replace(round(oRec("Res2") / total * 100), ",",".") End If
If oRec("Res2") = 0 Then pro3 = 0 Else pro3 = Replace(round(oRec("Res3") / total * 100), ",",".") End If

If intCounter = 1 Then Response.Write "<tr>"
%>
<table width='200px' style='border: 1px #000000 solid;' cellpadding='5px' cellspacing='0'>
<tr><td width='200px' class='forum_text' height='20px'><%=oRec("Fraga")%></td></tr>
<tr><td width='200px' class='forum_text' height='5px'><img src='../pics/spacer.gif' border='0'></td></tr>
<tr><td width='200px' class='forum_text' height='10px'><%=pro1 & "&nbsp;" & svar1%></td></tr>
<tr><td width='200px' class='forum_text' height='5px'><img src='../pics/spacer.gif' border='0'></td></tr>
<tr><td width='200px' class='forum_text' height='10px'><%=pro2 & "&nbsp;" & svar2%></td></tr>
<tr><td width='200px' class='forum_text' height='5px'><img src='../pics/spacer.gif' border='0'></td></tr>
<tr><td width='200px' class='forum_text' height='10px'><%=pro3 & "&nbsp;" & svar3%></td></tr>
<tr><td width='200px' class='forum_text' height='10px'><img src='../pics/spacer.gif' border='0'></td></tr>
<tr><td width='200px' class='forum_text' height='5px'>Totalt&nbsp;<%=totalt & "&nbsp;röster sedan&nbsp;" & initDate%></td></tr>
</table>
<%
If intCounter Mod 3 = 0 Then Response.Write "</tr>"
Wend

If Not intCounter Mod 3 = 0 Then Response.Write "</tr>"

%>
</table>
```

\_bör\_ jag lägga allt i en response.write("") istället för att dra in lite tid?

Permalänk: https://www.webforum.nu/p/1198487

## #7 — Engine^, 2003-11-06T09:57Z

Hehe... testa lägga till en oRec.MoveNext lite lagom innan Wend ;)

Permalänk: https://www.webforum.nu/p/1198556

## #8 — MickeA.com, 2003-11-06T12:06Z

Hej

Det här var dagens tabbe. Jag satt imorse på jobet och skrev den här tråden, trött som jag var, skickade jag bara kvikt in igen när det inte funkade. Sen i bilen satt jag och funderade på vad det kunde vara, gick igenom rad för rad i huvudet, sen kom jag på att, ja, visst faan hade jag itne med moveNext, inte konstigt att det blev fel ;) Så nu när jag kom tillbaka (innan jag la kom hit till wF) så la jag till det och oj vad bra det funakr ;)

Permalänk: https://www.webforum.nu/p/1198601

## #9 — Engine^, 2003-11-06T12:30Z

Det är så härligt med mornar :bire

Permalänk: https://www.webforum.nu/p/1198609

## #10 — MickeA.com, 2003-11-06T15:09Z

> **Engine^ skrev:**
>
> Det är så härligt med mornar :bire

Ja, kan väl inte göra annat än att hålla med ;)

Permalänk: https://www.webforum.nu/p/1198677

---

Tråden på webben: https://www.webforum.nu/amne/asp/89735-skriva-ut-från-access-i-en-tabell