Avatar billede kimlarsen1978 Nybegynder
14. december 2002 - 13:50 Der er 11 kommentarer og
1 løsning

Kolonner VS Rækker

Hey
Jeg plejer at udskrive mit ResultSet i rækker - altså nedad så at sige fx.
-----------
1
2
3
4
5
6
7
8
...
-------------
Men hvis jeg gerne vil udskrive det i kollonner a' fx 3 - altså henad og ned ad så at sige fx.
-------------
1  2  3
4  5  6
7  8  ...
-------------
Hvordan dælen gør man det?
Avatar billede Slettet bruger
14. december 2002 - 13:53 #1
et eksempel herpå:

Set RS = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT top 180 * FROM ama order by dato DESC, ID ASC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("*.mdb")

rs.Open strSQL, strDSN, 1

If Not (RS.BOF Or RS.EOF) Then


intCounter = 0
while not rs.eof
    if intCounter mod 3 = 0 then Response.Write("</tr><tr>")
    Response.Write("<td width=""25%"" align=""""><h1 style='display: inline;'><a class=""rod"" href='" & rs("link") & "' target='_blank'>Link</a> </h1><h3 style='display: inline;'>" & rs("dato") & "</h3></td>")
    intCounter = intCounter + 1
    rs.movenext
wend
if intCounter mod 3 = 1 then Response.Write("<td>&nbsp;</td>")

end if

mvh.
Questis.dk
Avatar billede kimlarsen1978 Nybegynder
14. december 2002 - 15:24 #2
Det giver en uendelig løkke...
------------
    strSQL2 = "SELECT * FROM Varer WHERE Kategori = 46 ORDER BY Dansk_Vare_Navn;"
    set rs2 = conn.execute( strSQL2 )

If Not (RS2.BOF Or RS2.EOF) Then

    intCounter = 0
    while not rs2.eof
   
    if intCounter mod 3 = 0 then
    Response.Write("</tr><tr>")
    Response.Write("KOLONNEN")
    intCounter = intCounter + 1
    rs2.movenext
    end if
    wend
    if intCounter mod 3 = 1 then Response.Write("<td>&nbsp;</td>")
    end if

rs2.Close
Set rs2 = Nothing
    end if

rs2.Close
Set rs2 = Nothing
---------------------
Avatar billede kimlarsen1978 Nybegynder
14. december 2002 - 15:25 #3
Ups, prøver lige igen.
Det er det her der giver en uendelig løkke...
------------
    strSQL2 = "SELECT * FROM Varer WHERE Kategori = 46 ORDER BY Dansk_Vare_Navn;"
    set rs2 = conn.execute( strSQL2 )

If Not (RS2.BOF Or RS2.EOF) Then

    intCounter = 0
    while not rs2.eof
   
    if intCounter mod 3 = 0 then
    Response.Write("</tr><tr>")
    Response.Write("KOLONNEN")
    intCounter = intCounter + 1
    rs2.movenext
    end if
    wend
    if intCounter mod 3 = 1 then Response.Write("<td>&nbsp;</td>")
    end if

rs2.Close
Set rs2 = Nothing
Avatar billede Slettet bruger
14. december 2002 - 15:29 #4
da ikke når du har begrænset den til while not rs.eof
Avatar billede Slettet bruger
14. december 2002 - 15:29 #5
virker 100% hos mig
Avatar billede kimlarsen1978 Nybegynder
14. december 2002 - 15:32 #6
Der må mangle noget i det kode du har sendt jeg kan ikke køre det. Mangler der ikke nogen end if'er?
Avatar billede Slettet bruger
14. december 2002 - 15:34 #7
to sekunder
Avatar billede kimlarsen1978 Nybegynder
14. december 2002 - 15:34 #8
Har jeg brugt det rigtigt?
Avatar billede Slettet bruger
14. december 2002 - 15:38 #9
du kan se et andet eksempel her: http://www.eksperten.dk/spm/230116
Avatar billede Slettet bruger
14. december 2002 - 15:41 #10
tager på arbejde nu, men kigger forbi når jeg kommer hjem.
Avatar billede kimlarsen1978 Nybegynder
14. december 2002 - 15:45 #11
Så kører det... takker
Avatar billede Slettet bruger
15. december 2002 - 00:19 #12
godt at høre.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester