loopa i kolumner

2 svar · 241 visningar · startad av mackanz 30 juni 2004

mackanzMedlem sedan sep. 2003443 inlägg

Frågan30 juni 2004 11:39#1

Jag har ett sak som jag ej kan lösa. Jag har en lista med företagsnamn på. Dessa företagsnamn skall jag loopa ut ur en databas. Dessa namn skall sedan loopas i 3 kolumner.
Hur gör jag det? Jag kan loopa den i en lång lisata rätt upp och ner men inte i tre kolumner. Dom skall sedan sorteras upp ifrån och ner. Inte från vänster till höger.
(Det skall se ut som när man sorterar namm i bokstavsordning och i tre kolumner i word)
Hoppas ni förstår vad jag menar. =)

JosefMedlem sedan mars 20023 561 inlägg

30 juni 2004 11:44#2

Ett sätt är ju att kolla hur många poster som returneras, dela detta på tre för att få reda på hur många det ska vara i varje kolumn. Sedan loopa ut allting i en tabell, lägg till +1 för varje runda i loppen på en variabel (t ex: i). När i har fått värdet = "en tredje del av alla posterna" skriver du ut "</td><td>".
Borde fungera.

mackanzMedlem sedan sep. 2003443 inlägg

30 juni 2004 11:46#3

Nu förstår jag inte så mycket. Kan du ge mig loopningsexempel eller kodsnutt?

Jan kan ju säga som så att jag har en kod nu som loppar allt i kolumner men den koden loppar allt från vänster till höger, men jag vill ha det uppifrån och ner. Den ser ut som nedan.

<%

 

sql = "SELECT * FROM sponsorer order by sponsornamn asc"

rsRecSet.Open sql, cnConn, 0, 1

 

 

Do until rsRecSet.EOF

 

Response.Write(strRow & "<td>"  &  rsRecSet("sponsornamn")  &  "</td>" & vbCrLf)

nummer = nummer + 1

    If nummer Mod 3 = 0 Then

                        strRow = "</tr>" & vbCrLf & "<tr>" & vbCrLf

            Else

                        strRow = ""

            End If

 

rsRecSet.MoveNext

Loop

rsRecSet.Close

 

%>