Liste!

det kan jeg godt lave for dig..men så bliver jeg næsten nød til at have db'en for at lave det ordeligt.
min mail er mccannon@get2net.dk

der laver du en SQL statement som hedder:

strSQL = "SELECT * FROM dintabel ORDER BY kursuser DESC"

//>Rune

Det afhænger lidt af databasen og jeg er heller ikke klar over hvor meget du kan/allerede har lavet. Men et SQL statement kunne eks. være:

SELECT * FROM Kurser ORDER BY Navn ASC

Og når du skal udskrive det på siden:

strTmp = ""

Do Until objRS.EOF

strNavn = objRS("Navn")

If LCase(Left(strNavn)) <> LCase(strTmp) Then
  Response.Write "<P>" & Left(strNavn, 1) & "</P>"
  Response.Write strNavn & "<BR>"
Else
  Response.Write strNavn & "<BR>"
End If

strTmp = Left(strNavn, 1)

objRS.MoveNext
Loop

<%
ch="+"
tael=0
response.write "<table border=""1""><tr><td valign=""top""><ul>"
while not rs.eof
  strNavn = rs("kursus")
  nych= Left(strNavn,1)
  if nych<>ch then
    if ch<>"+" then
      if tael=5 then
        response.write "</ul></td></tr><tr><td valign=""top""><ul>"
        tael=0
      else
        response.write "</ul></td><td valign=""top""><ul>"
      end if
    end if
    ch=nych
    tael=tael+1
end if
strLink = "<font size=1 face=Verdana, Arial, Helvetica, sans-serif>" & strNavn & "</font>\"
Response.Write "<li>" & strLink
rs.MoveNext
wend
response.write "</ul></td></tr></table>"
%>

Undskyld...

strSQL = "SELECT * FROM dintabel ORDER BY kursuser ASC"

//>Rune

strSQL = "SELECT * FROM dintabel ORDER BY kursuser ASC"

ASC er default .....