/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Opdeling af liste.
Fra : Leo Vaeversted


Dato : 12-08-01 20:38

Jeg henter en liste af links fra en database med følgende kode.

<%

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database/links.mdb")
Conn.Open DSN

Dim strSQL

' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From " & Request.Querystring("Tabel")
Set rs = Conn.Execute(strSQL)

Do

' Skriv personens data
Response.Write "<dt></dt><dd><li color='#20F5FC'><a href='" & rs("URL") & "'
target='_blank'>" & rs("Linktekst") & "</a></li></dd>"


rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>


Det virker også fint nok, problemet er, jeg gerne vil have listen delt op, i
stedet for at få 30-40 links neden under hinanden, vil jeg gerne have så der
måske er 10-15 stykker i hver lodrette række, kan jeg på en eller anden
måde, så jeg får flere rækker.

Hygsom
Leo



 
 
Carsten Pinderup (13-08-2001)
Kommentar
Fra : Carsten Pinderup


Dato : 13-08-01 14:55

her er lidt kode jeg brugte:

snip
'antallet af kolonner sættes her er det 2
const WIDTH=2
for i=0 to antal
if (i mod WIDTH)=0 then response.write "<tr>"
DO WHILE NOT rs.EOF
response.write "<td width='50%' valign='top' > <a href='http://" & rs("url")
&"' </a>" & rs("name") & "</td>"
if (i mod WIDTH)=WIDTH-1 then response.write "</tr>"
i=i+1
rs.MoveNext
LOOP
if (i-1 mod WIDTH)<>WIDTH-1 then response.write "</tr>"
next

snip
Det er et sammensurium af svar i et gammel tråd fra 11-06-01 søg evt. efter
det.



Leo Vaeversted (14-08-2001)
Kommentar
Fra : Leo Vaeversted


Dato : 14-08-01 03:27

takker



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408868
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste