sæt udtræk fra DB i de rigtige grupper

<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
FilePath = Server.MapPath(\"database.mdb\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & FilePath & \";\"

strSQL = \"SELECT DISTINCT Tekst FROM Tabel\"
Set RS = Conn.Execute(strSQL)

Do Until RS.EOF or RS.BOF

strSQL2 = \"SELECT Nummer FROM Tabel WHERE Tekst = \'\" & RS(\"Tekst\") & \"\'\"
Set RS2 = Conn.Execute(strSQL2)

Response.Write \"<BR>\" & RS(\"Tekst\") & \"<BR>\" & vbcrlf

Do Until RS2.EOF or RS2.BOF

Response.Write RS2(\"Nummer\") & \"<BR>\" & vbcrlf
RS2.MoveNext
Loop

RS.MoveNext
Loop


%>

Værsgo!

Bingo bongo, der var den jo - går i knæ og takker dybt ;-)

Det var så lidt :) Skriv endelig, hvis der er flere problemer :)