Find antal tabelrækker og udskriv

Set rs = Conn.Execute("Select Sum(trackamount) As TrackSum From DinTabel")
Response.Write "Sum: " & rs("TrackSum")

Set rs = Conn.Execute("Select Count(*) As Antal From DinTabel")
Response.Write "Antal: " & rs("Antal")

Jeg har vist misforstået. Du vil gerne udskrive alle de TRACKS, der ikke er tomme, ik'?

Set rs = Conn.Execute("Select * From DinTabel")
While Not rs.EOF
  For i = 1 To rs("trackamount")
      Response.Write rs("TRACK" & i) & " - "
  Next
  Response.Write "<br>"
  rs.MoveNext
Wend

Nåehh det var nu ikke helt det jeg mente. Det skal bruges til en discography side, hvor hvert album har et vist antal tracks (trackamount, som står fast skrevet inde i db feltet, f.eks. "14"). I samme tabelrække er der så 15 felter, hvor alle sangtitlerne står - men der kan så kun være udfyldt 11 af de 15 felter, hvis albummet kun har 11 titler (i hvilket tilfælde "trackamount" bliver "11").

Så jeg vil gerne finde/udtrække de 11 (eller xx afhængig af hvilket album jeg vælger) tracknumre + værdien (sangtitlen) så det kommer til at se således ud:

1. Titel track 1
2. Titel track 2
3. Titel track 3

..osv

woops, så ikke lige din sidste post. checker det lige :)

Får godt nok følgende fejl:

ADODB.Recordset (0x800A0CC1)
Item cannot be found in the collection corresponding to the requested name or ordinal.

woops my bad. det virker fint - og endda helt uden While Not loopet :) takker

Set rs = Conn.Execute("Select * From DinTabel")
While Not rs.EOF
  For i = 1 To 15
      If Not IsNull(rs("TRACK" & i)) And rs("TRACK" & i) <> "" Then
        Response.Write rs("TRACK" & i) & " - "
      End If
  Next
  Response.Write "<br>"
  rs.MoveNext
Wend

Nåå... det burde det også. Det yderste loop behøver du kun bruge, hvis du vil have mere end ét album udskrevet. F.eks. i forbindelse med en søgefunktion.