Arrangere i Alfabetisk Orden

nu skriver du ikke lige hvor du har dem fra, men er det fra et database udtræk, kan du få den til at sortere dem kolonne vis.

eks:
strSQL = "SELECT * FROM dintabel ORDER BY dinkolonne"

hvis du så vil have modsatte effekt, gøres det sådanne:

eks:
strSQL = "SELECT * FROM dintabel ORDER BY dinkolonne DESC"

strSQL="Select * from tblMin order by minFelt desc" eller "Order by asc"

Er det ikke muligt at gøre det med definerede variabler?

Har du kun så få, eller har du mange?

Med mange vil jeg anbefale den gode gamle Quicksort; med få er Bubblesort hurtigere.
Desværre er det et par computere siden, jeg har haft koden, men der er sikkert andre, som har dem.

Put dem i et array

dim a(3)
a(0) = ".."
a(1) = ".."
a(2) = ".."


for i=ubound(a)-1 to lbound(a) step -1
  for j=0 to i
    if a(j)>a(j+1) then tmp=a(j):a(j)=a(j+1):a(j+1)=tmp
  next
next

erikjacobsen -->
Kan jeg bare adde flere af disse:
a(0) = ".."
a(1) = ".."
a(2) = ".."

?

erik>>Bubblesort, så frisk var den ikke hos mig :-)

her er Bubble sort:
<%
for i = UBound(arrMin) - 1 To 0 Step -1
    for j= 0 to i
        if arrMin(j)>arrMin(j+1) then
            temp=arrMin(j+1)
            arrMin(j+1)=arrMin(j)
            arrMin(j)=temp
        end if
    next
next %>

Du kan tilføje så mange i dit array som du vil :)

>>rigtigt erik, men

-- effektiviteten falder drastisk, når du når ud over de første par håndfulde, så er quicksort det rigtige valg.

Der skal lidt mere til end et par håndfulde. Men ja, den er
ikke specielt effektiv. Vil du have effektivitet, så er første
man kan gøre at droppe ASP.

erikjacobsen, gider du lige svare?

jo da

Nej man kan gør det hurtigere (effektiv) hvis man anvender sort methoden. CursorLocation skal vær adUseClient.
<%
rs.Sort="feltNavn1,FeltNavn2"
%>

data ser ikke ud til at komme fra en database