Alfabetisk gruppering

SELECT ord, id, forfatter FROM dinTabel ORDER BY ord

jeg vil ha' udskrevet

A -
abe
ananas
attribut

B -
bas
brille
båthorn

C -
californien
citron
cykel

incl. begyndelsesbogstavet

Dim StrString, MyArray, nCount, StrSql, rs

StrString = "A,B,C,D,E,F...etc"

MyArray = Split(MyArray,",")
nCount = 0

for lBound(MyArray) to uBound(MyArray)

StrSql = "select ord, id, forfatter from table order by " & MyArray(nCount)
        Set rs = Conn.Execute(StrSql)

response.write MyArray(nCount) & "-"
do while (not rs.eof or rs.bof)
    response.write rs("ord") & "<br>"
rs.movenext
loop

nCount = nCount + 1
Next

Noget i den stil, jeg har ikke afprøvet det, og husk at lukke dine forbindelser.

kosmos > virker ikke

Lige en rettelse..

for lBound(MyArray) to uBound(MyArray)

skal hedde

for nCount = lBound(MyArray) to uBound(MyArray)

Håber du får det til at virke.

kosmos > Det ændrede ikke noget - den når slet ikke ind i løkken

Hvad skriver den af fejl?

intet, for løkken kører slet ikke

StrString = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,X,Y,Z,Æ,Ø,Å"

MyArray = Split(MyArray,",")
nCount = 0

for nCount = lBound(MyArray) to uBound(MyArray)


StrSql = "SELECT ord, id, forfatter FROM ord ORDER BY " & MyArray(nCount)
response.write "test"
response.write StrSql
response.end
        Set rs = Conn.Execute(StrSql)

response.write MyArray(nCount) & "-"
do while (not rs.eof or rs.bof)
    response.write rs("ord") & "<br>"
rs.movenext
loop

nCount = nCount + 1
Next

fjern nCount = 0

det gør vist ingen forskel :)

nope

set rs = conn.execute("select hvor from bungy order by hvor")

startbogstav=" "
do until rs.eof
  ord=rs("hvor")
  if startbogstav<>left(ord,1) then
    startbogstav=left(ord,1)
    response.write "<h2>" & startbogstav & "</h2>"
  end if
  response.write ord & "<br>"

  rs.movenext
loop

erik > perfekt :) smid et svar

Tak, jeg samler ikke på point.

erik > Lige én ting.

Jeg har implementeret det i et tabel design nu, hvor jeg havde tænkt mig at bruge følgende algoritme til at skifte farve på udtrækket.
if blnSpanClass = true then
    strSpanClass = "graa"
    blnSpanClass = false
else
    strSpanClass = "lys"
    blnSpanClass = true
end if

hvordan kan jeg kombinere det?

Skal du starte forfra med "graa"  ved det første ord i hver bogstavgruppe?

ja

skitse

startbogstav=" "
strSpanClass = "lys"
do until rs.eof
  ord=rs("hvor")
  if startbogstav<>left(ord,1) then
    startbogstav=left(ord,1)
    response.write "<h2>" & startbogstav & "</h2>"
    strSpanClass = "lys"
  end if
  if strSpanClass = "lys" then
    strSpanClass = "graa"
  else
    strSpanClass = "lys"
  end if
  response.write "<span class=""" & strSpanClass & """>" & ord & "</span><br>"

  rs.movenext
loop

Et " for meget:


  response.write "<span class=""" & strSpanClass & "">" & ord & "</span><br>"

tak for hjælpen :) Jeg går ud fra at Kosmos render med point?

Jeg blander mig ikke i hvem du giver point, så det skal du ikke spørge mig om ;)
For min skyld kan du tage dem selv eller give dem til en du synes der fortjener.

Erik - har lige et spørgsmål hvis du stadig er der?

Hvor er jeg? ;)

Her i tråden ;)

Fremgangsmåden er følgende:

<%
startbogstav=" "
strSpanClass = "graa"
i = 0
do until rs.eof
  ord=xhtml(rs("ord"))
  if startbogstav<>left(ord,1) then
    startbogstav=left(ord,1)
%>
<table cellspacing="0" cellpadding="0" width="100%">
    <tr>
        <td colspan="2">&nbsp;</td>
    </tr>
    <tr>
        <td colspan="2"><h1><%=startbogstav%></h1></td>
    </tr>
<%
strSpanClass = "lys"
  end if
if strSpanClass = "lys" then
    strSpanClass = "graa"
else
    strSpanClass = "lys"
end if
%>
    <tr>
        <td>
        ...selve tuplerne for hvert bogstav
        </td>
    </tr>
<%
  rs.movenext
loop
  i = i + 1
%>

    <tr>
        <td>&nbsp;</td>
    </tr>
</table>

hvilket bevirker at hvert startbogstav får
<table cellspacing="0" cellpadding="0" width="100%">
    <tr>
        <td colspan="2">&nbsp;</td>
    </tr>
    <tr>
        <td colspan="2"><h1>F</h1></td>
    </tr>

etc., men jeg kan ikke lure hvor </table> skal indsættes for at få det til at passe. Den <table> der genereres for hvert bogstav bliver ikke afsluttet.

Imellem de 2 linier:

if startbogstav<>left(ord,1) then
    startbogstav=left(ord,1)

indsætter du

  if startbogstav<>" " then
      response.write "</table>"
  end if

Første gang, hvor startbogstav er " ", skal der ikke sættes
en </table>, men alle efterfølgende gange. Og så til allersidst, som
du allerede har.

Ahh ok :)

tak