Sotera efter....

I stora drag.. hur gör man det? typ om man har en länk som heter listall
och där kan man trycka på namn
användare
etc etc
så ska den lista a till ö

ORDER BY ID DESC

Första ID'na först, bara ett exempel.

det är inte så jag menar utan mer som en lista:

NAMN | Datum

Så ska man kunna trycka på namn så sortera den efter namn eller om man tryckre på Datum så ska den sortera efter datum

då får du nog skicka ett "ID" i länken som länkas till en annan sida som hämtar upp ID'et och presenterar resultaten annorlunda med hjälp av ORDER BY, eller bara ladda om sidan men det är bytt på ORDER BY.

<%
set conn = server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("db/min.mdb")
set RecSet = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM files where ID>0 and global = true "
If Request.QueryString("order") = "game" Then
SQL = SQL & "order by game"
end if

set recset = conn.execute(SQL)

If recset.eof Then
Response.Write "fungerar inte"
Else

Do until recset.eof

Response.Write recset("game") &"<BR>"

recset.movenext
loop
End If
%>

den lista ingen fil.. får bara mitt meddelande om den är eof

vad ska jag göra?

Är det inte så här du vill göra ?

set conn = server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("db/min.mdb")
set RecSet = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM files where ID>0 and global = true "

If Request.QueryString("order") = "game" Then
SQL = SQL & "order by game"
end if

set recset = conn.execute(SQL)

DO WHILE NOT recset.eof

Response.Write recset("game") &"<BR>"

recset.movenext
loop

%>

Så här brukar jag göra:

Dim strOrder
strOrder = Request.QueryString("order")
If strOrder = "" Then strOrder = "tblDefault"
SELECT * FROM tabell ORDER BY " & strOrder

Sedan är det bara att lägga querystringar på länkarna som heter likadant som kolumnnamnen. Det är även enkelt att lägga till lite kod så att man kan välja ASC eller DESC.