---

Bruger Access som DB, og asp som kode.

Når jeg laver er udtræk fra DB'en kommer de under hinanden, har lavet en
tabel til det.
Hvordan laver man så de kommer op i 2 eller 3 kolonner?
altså:
record 1 record 2 record 3
record 4 record 5 record 6
istedet for:

record 1
record 2
3
4
5
6

Min nuværende kode ser sådan ud.

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen

Response.Write "<table border=0>"
Response.Write "<tr><td>" & "Du søgte på " & "<b>" & strkeyword &
"</b><p></td></tr>"
Do While Not rs.EOF
Response.Write "<tr><td><b>" & rs("navn") & "</b>" & " " & "er godkendt" &
"</td></tr>"

rs.MoveNext
Loop
Response.Write "</table>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning " & strKeyword
& "</p>"
End If

Nogen der har et bud på det?

---

lomito skrev:

> Når jeg laver er udtræk fra DB'en kommer de under hinanden,
> har lavet en tabel til det.
> Hvordan laver man så de kommer op i 2 eller 3 kolonner?

Her er en metode. Du vælger hvor mange kolonner der skal være med
variablen "kolonner".

<table>
<%

Dim kolonner
kolonner = 4

Dim i
i = 0

Do While Not rs.EOF
If i mod kolonner = 0 Then
   ' Start ny række
%>
   <tr>
<% End If %>
   <td>[data fra postsættet - fx <%= rs("mitfelt") %>]</td>
<%   
   i = i + 1
   If i mod kolonner = 0 Then
%>
   </tr>
<% End If
End IF
Loop

' Sluttjek - sæt den sidste </tr> hvis vi er i en åben række
If i mod kolonner > 0 Then
%>
</tr>   
<% end if %>
</table>
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Kan sgu ikke få det til at virke desværre

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse
news:Xns9570EE50138C3jcdmfdk@gyrosmod.cybercity.dk...
> lomito skrev:
>
>> Når jeg laver er udtræk fra DB'en kommer de under hinanden,
>> har lavet en tabel til det.
>> Hvordan laver man så de kommer op i 2 eller 3 kolonner?
>
> Her er en metode. Du vælger hvor mange kolonner der skal være med
> variablen "kolonner".
>
> <table>
> <%
>
> Dim kolonner
> kolonner = 4
>
> Dim i
> i = 0
>
> Do While Not rs.EOF
> If i mod kolonner = 0 Then
> ' Start ny række
> %>
> <tr>
> <% End If %>
> <td>[data fra postsættet - fx <%= rs("mitfelt") %>]</td>
> <%
> i = i + 1
> If i mod kolonner = 0 Then
> %>
> </tr>
> <% End If
> End IF
> Loop
>
> ' Sluttjek - sæt den sidste </tr> hvis vi er i en åben række
> If i mod kolonner > 0 Then
> %>
> </tr>
> <% end if %>
> </table>
> --
> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på http://usenet.dk/netikette/citatteknik.html

---

lomito skrev:

> Kan sgu ikke få det til at virke desværre

O.k. - *hvordan* virker det så ikke?

Får du en asp-fejl, får du ikke nogen kolonner, får du får mange
kolonner?

Læs gerne siden her: <http://asp-faq.dk/article/?id=41>.

Du må også meget gerne læse min signatur.

--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Den siger bare internal server error, intet andet
Den siger ikke hvorfor.
Når jeg bruger mit eget funker det..

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse
news:1411tojfo1ds4$.dlg@jcdmfdk.invalid...
> lomito skrev:
>
>> Kan sgu ikke få det til at virke desværre
>
> O.k. - *hvordan* virker det så ikke?
>
> Får du en asp-fejl, får du ikke nogen kolonner, får du får mange
> kolonner?
>
> Læs gerne siden her: <http://asp-faq.dk/article/?id=41>.
>
> Du må også meget gerne læse min signatur.
>
> --
> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på http://usenet.dk/netikette/citatteknik.html

---

lomito skrev:

> Den siger bare internal server error, intet andet

Tag et kig på siden her: <http://asp-faq.dk/article/?id=45>

Og så må du stadig gerne læse min signatur. Det er de sidste linjer
i dette indlæg.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

lomito wrote

> Bruger Access som DB, og asp som kode.
>
> Når jeg laver er udtræk fra DB'en kommer de under hinanden, har lavet en
> tabel til det.
> Hvordan laver man så de kommer op i 2 eller 3 kolonner?
> altså:
> record 1 record 2 record 3
> record 4 record 5 record 6
> istedet for:
>
> record 1
> record 2
> 3
> 4
> 5
> 6

Prøv dette:

Dim i

Response.Write "<table border=""1"" width=""200"">"

For i = 1 To 2
Response.Write "<tr><td>A</td></tr>"
Response.Write "<tr><td>B</td></tr>"
Next

Response.Write "</table>"

Response.Write "<hr>"

Response.Write "<table border=""1"" width=""200""><tr>"

For i = 1 To 2
Response.Write "<td>A</td>"
Response.Write "<td>B</td>"
Next

Response.Write "</tr></table>"

---

Polle kat få det te og virk heller

"terje" <nidaros2001@hotmail.com> skrev i en meddelelse
news:2rp3quF1c2p5qU1@uni-berlin.de...
> lomito wrote
>
>> Bruger Access som DB, og asp som kode.
>>
>> Når jeg laver er udtræk fra DB'en kommer de under hinanden, har lavet en
>> tabel til det.
>> Hvordan laver man så de kommer op i 2 eller 3 kolonner?
>> altså:
>> record 1 record 2 record 3
>> record 4 record 5 record 6
>> istedet for:
>>
>> record 1
>> record 2
>> 3
>> 4
>> 5
>> 6
>
> Prøv dette:
>
> Dim i
>
> Response.Write "<table border=""1"" width=""200"">"
>
> For i = 1 To 2
> Response.Write "<tr><td>A</td></tr>"
> Response.Write "<tr><td>B</td></tr>"
> Next
>
> Response.Write "</table>"
>
> Response.Write "<hr>"
>
> Response.Write "<table border=""1"" width=""200""><tr>"
>
> For i = 1 To 2
> Response.Write "<td>A</td>"
> Response.Write "<td>B</td>"
> Next
>
> Response.Write "</tr></table>"