Sorter efter ??

SQL = \"SELECT * FROM ADGANGSKODER ORDER BY Navn\"

Hvis det felt du gerne vil sortere efter altså hedder navn, ellers indsæt det du gerne vil have.
Resten er OK

Så altså udskift Navn med det felt du gerne vil sortere efter og brug denne :
<%

    set conn = server.createobject(\"ADODB.connection\")
    conn.Open \"DBQ=\"& Server.MapPath(\"../adgangskontrol.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"
SQL = \"SELECT * FROM ADGANGSKODER ORDER BY Navn\"


    Set rs = Conn.Execute(SQL)
%>

Du skal bruge ORDER BY statementet...  læs mere på http://msdn.microsoft.com/library/psdk/sql/8_qd_04_1.htm

to late hr. justits minister....hehehehe

kasseper -> kampen er god....
*<:0)
Derfor elsker jeg eksperten.dk .....

e9

http://www.devguru.com/Technologies/jetsql/quickref/jet_sql_intro.html

der står alt om SQL sætninger!!

Det virker perfekt

Er der en der også kan fortælle mig hvordan jeg laver så den skriver kategoriens navn. (det er en side jeg er ved at lave for en spejdergruppe, hvor de er delt ind efter Mikro, mini, osv. Så når jeg sortere på denne her måde, har den Mikro til at stå øverst, og derefter Mini. Det er også helt som det skal være, men kan jeg få den til at skrive Mikro som overskrift, og så neden under alle dem som hører til mikro

Tjaaa lidt ude for spørgsmålet men Okay så :
Det kræver jo at vi ved hvordan din tabel ser ud, men lad mig give et eksempel.
Hvis f.eks. din tabel ser sådan ud :

Navn  |Kategori  |Mærker
------------------------------
Ole    |Micro      |Dolk
Tina  |Mini      |Bål
Hans  |Mini      |Stifinder
Julius |Micro      |Dolk

osv.

Kan du gøre sådan her :


<%
set conn = server.createobject(\"ADODB.connection\")
conn.Open \"DBQ=\"& Server.MapPath(\"../adgangskontrol.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"
SQL = \"SELECT * FROM ADGANGSKODER ORDER BY Kategori\"
Set rs = Conn.Execute(SQL)

Dim dk \' Denne Kategori
Dim sk \' Sidste Kategori
sk = \"\"
response.write \"<table>\"
While NOT rs.EOF
dk = rs(\"Kategori\")
if dk <> sk then
response.write \"<tr><td colspan=\"4\" align=\"center\"><B>\" & rs(\"Kategori\") & \"</B></td></tr>\"
end if
response.write \"<tr><td>Navn :</td><td>\" & rs(\"Navn\") & \"</td><td>Mærker :</td><td>\" & rs(\"Mærke\") & \"</td></tr>\"
sk = dk
rs.movenext
Wend
response.write \"</table>\"


Skulle kunne gøre det, nu kan jeg jo ikke lige teste det, så det må du selv klare.
Du skal bare udskifte til dine feltnavne...

Jeg får følgende fejl:

Microsoft VBScript compilation error \'800a0401\'

Expected end of statement

/adm/interne/adresse/test.asp, line 14

response.write \"<tr><td colspan=\"4\" align=\"center\"><B>\" & rs(\"gren\") & \"</B></td></tr>\"
---------------------------------^

åhh ja den laver jeg bare hver gang, tænk at man ikke lærer med tiden...hmmm sorry der skal selvfølgelig stå :

<%
set conn = server.createobject(\"ADODB.connection\")
conn.Open \"DBQ=\"& Server.MapPath(\"../adgangskontrol.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"
SQL = \"SELECT * FROM ADGANGSKODER ORDER BY Kategori\"
Set rs = Conn.Execute(SQL)

Dim dk \' Denne Kategori
Dim sk \' Sidste Kategori
sk = \"\"
response.write \"<table>\"
While NOT rs.EOF
dk = rs(\"Kategori\")
if dk <> sk then
response.write \"<tr><td colspan=\'4\' align=\'center\'><B>\" & rs(\"Kategori\") & \"</B></td></tr>\"
end if
response.write \"<tr><td>Navn :</td><td>\" & rs(\"Navn\") & \"</td><td>Mærker :</td><td>\" & rs(\"Mærke\") & \"</td></tr>\"
sk = dk
rs.movenext
Wend
response.write \"</table>\"


%>

Tak for hjælpen....

u r velcome