Hej Thomas
Det virker perfekt, tak for hjælpen....
Mvh.
Lars
"Ezy Cut" <Ezy_Cut@SPAMKILLER.hotmail.com> wrote in message
news:3d485c64$0$73501$edfadb0f@dspool01.news.tele.dk...
> Hej Lars.. jeg har lavet noget ligende til et galleri... så jeg vil tro
det
> vil se nogle lunde sådan ud (Se retelserne i koden).. Jeg har ikke testtet
> det, så det kan godt være, at der er nogle små fejl.. men prencippet er
det
> samme.. Det er specielt IF sætningen, du skal lægge mærke til. Det er den
> der sørger for at skifte line i din tabel. Variablen 'Kol' bestemmer
antalet
> af kolloner i din tabel.
>
> Mvh Thomas.
>
> Ps. Fortæl lige hvordan det går
>
> "Lars Lundberg" <admin@lw.dk> wrote in message
> news:3d483a05$0$73473$edfadb0f@dspool01.news.tele.dk...
> > Hej
> > Jeg har en side som henter alle "brugere" og viser demsom et link, det
> > virker fint, men det ville se bedre ud hvis de var i en tabel
> > Hvad skal man skrive for at de kommer til at stå sådan her: Lars
> > Ole Peter OSV. næste linie
> >
> > Her er min kode:
>
> Dim ItemCounter, kol
> kol = 3 'Antalet af kolloner
> ItemCounter = 0
> Response.Write "<table border=""1"" width=""100%"">"
> Response.Write "<tr>"
>
> > Do
> > ' *************** laver et link med Id-værdien i URL
> > **************************
> >
> > strLink = "<a href='dbret4b.asp?firma=" & rs("brugerid") & "'>" &
> rs("brugernavn") & "</a>"
> >
> > ' *************** Liste med links ******************
> Response.Write "<td width=""" & CInt(100/kol) & "%""><li>" &
strLink
> & "</li></td>"
>
> > ' *************** Gå til næste Record i rs ******************
> > rs.MoveNext
>
>
> '****************
> '* Skift line for hver 3. link
>
> If (ItemCounter Mod kol) = (kol-1) Then
> response.write "</tr><tr>"
> End If
> ItemCounter=ItemCounter+1
>
> >
> > ' *************** Fortsæt indtil rs er gennemløbet (EOF = End Of File)
> > *****************
> > Loop While Not rs.EOF
>
> '****************
> '* Afslut tabel
> Response.Write "</tr></table>"
>
>
> > På forhånd tak
> > Lars
> >
> >
>
>