Sortering af databaseudtræk

Det er lige så ligetil, men hvis du smider din kode her så skal jeg prøve at flette et lille eksempel ind i din kode.

Koden har jeg fundet på Netcoder.dk

<%

    \' --------------------------------------------------------------------------
    \' Kode : Database eksempel, hvor database åbnes uden brug af DSN
    \' Udviklet af Tony Fonager / netcoders.dk
    \' kan frit bruges, ændres, slettes eller misbruges!
    \' --------------------------------------------------------------------------

    \' BEMÆRK : Huske at ændre stien hvor databasen åbnes, til den lokale sti på din server!

  Dim Conn, dbPath
  dbPath = \"C:\\Inetpub\\wwwroot\\database-folder\\database.mdb\"
  Set Conn = Server.CreateObject(\"ADODB.Connection\")
  Conn.Open \"PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=\" & dbPath

    \' lav SQL tekst string
    SQL = \"select * from brugere order by navn\"

    \' vi sender forespørgslen afsted gennem vores connection object
    \' og returnerer resultatet i et object der kaldes RS
    set RS = conn.execute( SQL )

    \' spørg om RS tilstand er eof (End Of File)
    if RS.eof then

        response.write \"Din forespørgsel returnerede 0 records.\"

    else
   
        \' lav en løkke der looper igennem returnerede records,
        \' indtil tilstand bliver eof (End Of File)
       
        do while not RS.eof
            response.write \"<hr>\"
            response.write RS(\"navn\") & \"<br>\"
            response.write RS(\"adresse\") & \"<br>\"
            response.write RS(\"postnr\") & \" \" & RS(\"by\") & \"<br>\"
            RS.movenext
        loop
 
    end if

%>

do while not RS.eof
            response.write \"<hr>\"
            response.write RS(\"navn\") & \"<br>\"
            response.write RS(\"adresse\") & \"<br>\"
            response.write RS(\"postnr\") & \" \" & RS(\"by\") & \"<br>\" & \"img src=/images/del.gif\"
            RS.movenext
        loop

såre simpelt, bar brug html kode

Udskift:
do while not RS.eof
            response.write \"<hr>\"
            response.write RS(\"navn\") & \"<br>\"
            response.write RS(\"adresse\") & \"<br>\"
            response.write RS(\"postnr\") & \" \" & RS(\"by\") & \"<br>\"
            RS.movenext
        loop

Med:

      tmp = \"a\"
      do while not RS.eof
            response.write \"<hr>\"
            response.write RS(\"navn\") & \"<br>\"
            response.write RS(\"adresse\") & \"<br>\"
            response.write RS(\"postnr\") & \" \" & RS(\"by\") & \"<br>\"
        if tmp <> lcase(left(rs(\"navn\"), 1))
        response.write(\"<img src=\'del.gif\'>\")
        tmp = lcase(left(rs(\"navn\"), 1))
        end if
            RS.movenext
        loop

sieder >> Så deler den jo for hver record, den skulle dele når der kom et nyt forbogstav.

Nu har jeg ikke mulighed for at afprøve Jeres eks. før i aften, men jeg kan se godt se at Seiders eks. ikke er det jeg søger.
Netsrac er derimod inde på noget af det rigtige (tror jeg) Mit gæt er dog at koden skal gentages for hvert bogstav, så man evt. kan brugs forskellig grafik mellem hver nyt forbogstav. Har jeg ret idet??

Den funktion jeg har lavet indsætter det samme stykke grafik hver gang at det første bogstav skifter, hvis man skal lave det med forskellig grafik for hvert navn bliver det en del mere avanceret.

Æv, det var faktisk det jeg havde tænkt mig, så hvis du har mod på det så må du gerne komme med et eksempel.
Jeg kan evt. afslutte dette spørgsmål og oprette et nyt der giver lidt flere point, hvad siger du til det, netsrac??

Udskift det jeg skrev før med dette:
      tmp = Array(\"a\", \"b\", \"c\", \"d\", \"e\", \"f\", \"g\", \"h\", \"i\", \"j\", \"k\", \"l\", \"m\", \"n\", \"o\", \"p\", \"q\", \"r\", \"s\", \"t\", \"u\", \"v\", \"w\", \"x\", \"y\", \"z\", \"æ\", \"ø\", \"å\")
     

      for each item in tmp
      response.write(\"<img src=\'\" & item & \".jpg\'>\")
        do while not rs.eof and lcase(left(rs(\"navn\"), 1)) = item
            response.write RS(\"navn\") & \"<br>\"
            response.write RS(\"adresse\") & \"<br>\"
            response.write RS(\"postnr\") & \" \" & RS(\"by\") & \"<br>\"

            RS.movenext
        loop

      next


Det skulle kunne gøre det. Hvis det virker kan du bare oprette et spørgsmål der hedder Point til netsrac også sætte dette spørgsmål som reference hvis du vil give flere point.

Ikke flere point til mig ? :-)