Sortering af db forespørgsel

Du kunne lave en forespørgsel for hver kategori:

SELECT * FROM TABLE WHERE kategori = "sport"
SELECT * FROM TABLE WHERE kategori = "nyheder"

Hvis du vil have hele tabellens indhold ud i en sorteret "smoere":

SELECT * FROM TABLE SORT BY kategori

overchord, du mener: "SELECT * FROM TABLE ORDER BY kategori" ?

matric - den fremgangsmåde har jeg overvejet - jeg havde tænkt mig noget i retning af :
while rs("cat") = "nyheder" AND not rs.eof

trine, det ville også være en fin løsning - så skal du bare huske at lave en ORDER BY.

while not rsmenu.bof and not rsmenu.eof
if rsmenu("cat") = "treatment" then
udskriv...
end if

Eller er det mere effektivt at lave et database udtræk for hver kategori?

Men det kommer jo an på om du skal have vist flere kategorier på samme side. Hvis du kun skal have vist sports-kategorier ville det være oplagt at benytte min fremgangsmåde. Hvis du derimod skal have vist en oversigt over flere kategorier ville jeg nok bruge din egen løsning.

Men det gør ikke den store forskel. Brug hvad du selv bedst syntes om :)

Problemet er at det skal bruges til at lave et popup menu system dynamisk. For hver kategori og menufelt skal der indsættes følgende:
addmenu(menu=["2838",,,120,1,"",style1,,"left",,,,,,,,,,,,,
<%
while not rsmenu.bof and not rsmenu.eof    %>
,"<%=rsmenu("name")%>  ","<%=rsmenu("link")%>",,"Sport",1
<%
rsmenu.movenext
wend
%>
])
   
Dvs. at for hvert menufelt skal jeg lave et udtræk i databasen

Hvordan kan dette gøres smartere?

Det får jeg nok lidt svært ved at hjælpe dig med - jeg koder ikke ASP.. men jeg forstår et dog nogenlunde. Det du lige har skrevet har jeg dog lidt svært ved at gennemskue. addmenu er javascript?

må jeg ikke se lidt mere kode?

matric -> Yeps du har helt rart. Midlertidig hjernelammelse ;-)

Hej Trine

Du skal nok tænke i baner som denne:

SQL = "SELECT * FROM TABLE ORDER BY kategori"
rs.Open SQL, conn, 3, 3
Do While NOT rs.EOF
  If Trim(rs("Kategori")) = Trim(strKategori) Then
    'Så er vi i samme kategori som den foregående
    'Udskriv
  Else
    'Så er det en ny kategori
    'Udskriv
  End If
  strKategori = rs("Kategori")
  rs.MoveNext
Loop
rs.Close