Har en (Access)databas med många hundra faktaposter.
Ska nu skapa ett A-Ö arkiv där faktaposterna radas upp ganska simpelt i bokstavsordning baserat på fältet "contentHeader".
Det i sig är ju enkelt, men jag vill att begynnelsebokstaven skrivs ut innan raddan av innehåll som börjar på just den bokstaven.
Ex:
A <-- skriv ut
alkohol och graviditet
amning
Amniotiska band
andfåddhet
B <-- skriv ut
BB-väskan
Bisolvonmetoden
blodgruppsbestämning
blodsocker
blodsockerfall
blodtrycket
blodtrycksfall
blodvärdet (Hb)
bristningar på mage och bröst
Nu har jag äntligen funnit lite tid att testa koden som jag fick hjälp med ovan...men...
<%
sql = "SELECT * FROM [content] order by contentHeader;"
set rs = conn.execute(sql)
'response.write sql
firstLetter = ""
Do until RS.EOF
contentHeader = RS("contentHeader")
IF firstLetter <> Left(contentHeader,1) THEN
firstLetter = contentHeader
Response.Write(firstLetter&"<BR>")
END IF
RS.MoveNext
LOOP
RS.Close
%>
Ovan kod genererar bara alla faktaradstitlar (contentHeader) i bokstavsordning utan inledande bokstav... Det kan jag ju fixa själv med mindre kod.
<%
sql = "SELECT * FROM [content] order by contentHeader ASC;"
set rs = conn.execute(sql)
response.write sql
firstLetter = ""
Do until RS.EOF
contentHeader = RS("contentHeader")
IF firstLetter <> Left(contentHeader,1) THEN
firstLetter = Left(contentHeader, 1)
Response.Write("<br>" & firstLetter & "<BR>")
END IF
Response.write contentHeader & "<br>"
RS.MoveNext
LOOP
RS.Close
%>
<%
sql = "SELECT contentHeader FROM content order by contentHeader ASC"
set rs = conn.execute(sql)
response.write sql
firstLetter = ""
Do until RS.EOF
contentHeader = RS("contentHeader")
IF firstLetter <> Left(contentHeader,1) THEN
if firstLetter <> "" then response.write "<br>"
firstLetter = left(contentHeader,1)
Response.Write firstLetter & "<BR>"
END IF
response.write contentHeader & "<br>"
RS.MoveNext
LOOP
RS.Close
%>
A
Alkohol och graviditet
Amning - teorin
Amniotiskt band (Amniotic band syndrome)
Andfåddhet
Att köpa babykläder
Att köpa babysäng
Att köpa babyskydd (bilbarnstol)
Att köpa barnvagn
---
Alla de andra bokstäverna funkar fint
---
U
Ultraljud
u
ultraljud , ultraljudsbilder
ultraljud, vaginalt ultraljud, ultraljudsbilder
U
Urinprov
u
urinvägsinfektion, blåskatarr och njurbäckeninflammation
U
Utebliven Ägglossning (PCO)
Utebliven mens
Utomkvedshavandeskap (extrauterin graviditet)
A och Ä och Å om vartannat och en massa U?
Är det nån distinct som måste till...plus något mer?
