Udskriv i alfabet...?

Lav 2 tabeller, by og alfabet

select bynavn as f1 from by union select bogstav as f1 from alfabet order by f1

//akj

strSQL = "SELECT * FROM tblTabelnavn WHERE (By LIKE '" & "b" & "%')"

//>Rune

Jeg har denne: SQL = "SELECT id, coursename FROM [kurser] ORDER BY coursename"

Hvordan udskriver jeg det?

--jowns--

Tabel by:
bynavn text
By tabellen indeholder alle byer.

Tabel alfabet:
bogstav text
Alfabet tabellen indeholder alle bogstaver.

//akj

SQL = "SELECT id, coursename FROM [kurser] ORDER BY coursename"
Set objRs = objConn.Execute(SQL)

While Not objRs.EOF
  Response.Write(objRs("Coursename") & "<br>")
objRs.MoveNext
Wend

//>Rune

Medions > Ja, den var jeg med på, men hvordan bruger jeg den med alfabetet?

Og her med Connection oxo:
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Databasenavn.mdb")

SQL = "SELECT id, coursename FROM [kurser] ORDER BY coursename"
Set objRs = objConn.Execute(SQL)

While Not objRs.EOF
  Response.Write(objRs("Coursename") & "<br>")
objRs.MoveNext
Wend

//>Rune

Vil du have de der begyndelsesbogstaver (ABC osv. ) med ??

//akj

Ja, men hvis der ikke er nogen med A skal den ikke skrive det ud!

sql = "SELECT id as a, coursename as b FROM kurser union select 0 as a, bogstav as b from alfabet ORDER BY b"

Set objRs = objConn.Execute(SQL)

While Not objRs.EOF
  Response.Write(objRs("b") & "<br>")
objRs.MoveNext
Wend

//akj

bogstav=""

While Not objRs.EOF
  course = objRs("Coursename").value
  if (left(course,1) <> bogstav) then
    bogstav = left(course,1)
    response.write "<h2>" & bogstav & "</h2>"
  end if
  Response.Write(objRs("Coursename") & "<br>")
objRs.MoveNext
Wend

Skriver den så også selve bogstaverne ud som jeg har vist i mit spørgsmål?

Du kan jo gøre sådan her:

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Databasenavn.mdb")

SQL = "SELECT id, coursename FROM [kurser] ORDER BY coursename"
Set objRs = objConn.Execute(SQL)
strFirstChar = "a"
While Not objRs.EOF
  If Not Left(LCase(objRs("Coursename")), 1) = LCase(strFirstChar) Then
  Response.Write("<b>" & Left(strCoursename, 1) & "</b><br>")
  strFirstChar = LCase(Left(strCoursename, 1))
  End If
  Response.Write(objRs("Coursename") & "<br>")
objRs.MoveNext
Wend

-det er ikke testet, så jeg ved ik' om det virker!
//>Rune

Hov, jeg mangler vidst at definere strCoursename!

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Databasenavn.mdb")

SQL = "SELECT id, coursename FROM [kurser] ORDER BY coursename"
Set objRs = objConn.Execute(SQL)
strFirstChar = "a"
While Not objRs.EOF
strCoursename = objRs("Coursename")
  If Not Left(LCase(strCoursename), 1) = LCase(strFirstChar) Then
  Response.Write("<b>" & Left(strCoursename, 1) & "</b><br>")
  strFirstChar = LCase(Left(strCoursename, 1))
  End If
  Response.Write(strCoursename & "<br>")
objRs.MoveNext
Wend

//>Rune

Cooool medions > det virker!! Tak for hurtig hjælp alle!!!

Anytime ;o)
Thx 4 Poinz

//>Rune