automatutskrift av månader och år (nyhetsscript)

sql = "select distinct year(date),month(date) from nyhet order by 1,2"
set rs = connect.execute(sql)
pyear = 0
months = ""
while not rs.eof
 if  pyear <> clng(rs(0)) then
     if  months <> "" then 
         response.write months & "<br>"
          months = ""
     end if
     pyear = clng(rs(0))
     response.write pyear & "<br>"
     response.write "-------" & "<br"
 end if
  if  months <> "" then months = months & ", "
  months = months & monthname(cint(rs(1)))
  rs.movenext
wend
  if  months <> "" then response.write months & "<br>"
rs.close
set rs = nothing

Beroende på DBMS så får du kanske ändra på funktionerna year och month

Det är onödigt att lagra år och månad separat.

Åren listas upp snyggt, men månaderna saknas. Troligen är det olika DBMS. Jag kör access med jet. Tips?

Om det är access så får du skriva så här istället (date är inget bra namn på en kolumn.)

ql = "select distinct year([date]),month([date]) from nyhet order by 1,2"

Kan du lägga till en utskrift på vilka värden du får tillbaka från databasen?

while not rs.eof
  response.write "Debug: " & rs(0) & ":" rs(1) & "<br>"

Tog och ändrade date till datum istället.

Resultat av debug:

Debug: 2001:8

2001
-------Debug: 2001:10
Debug: 2001:11
Debug: 2001:12
Debug: 2002:1
August, September, October, November, December

2002
-------Debug: 2002:3
Debug: 2002:4
Debug: 2002:5
Debug: 2002:6
Debug: 2002:7
Debug: 2002:8
Debug: 2002:9
Debug: 2002:10
Debug: 2002:11
Debug: 2002:12
Debug: 2003:1
January, February, March, April, May, June, July, August, September, October, November, December

2003
-------Debug: 2003:3
Debug: 2003:4
Debug: 2003:5
Debug: 2003:6
Debug: 2003:7
Debug: 2003:9
Debug: 2003:10
Debug: 2003:11
Debug: 2003:12
January, February, March, April, May, June, July, September, October, November, December

Om du lägger till följande

session.lcid = 1053

så skall du få svenska månadsnamn.

Får passa på att tacka för all hjälp hittills. Har fungerat skitbra, språket blev rätt nu också. Men... om jag tar bort debugen så syns inte månaderna längre. Varför kommer de bara upp när man väljer att skriva ut rs(0) och rs(1) ?

Det förstår jag inte riktigt. Jag tyckte också att du fick upp för många månader i förhållande till debugutskriften. T.ex. så borde inte september 2001 ha kommit med.

Kan du posta din nuvarande kod?

Koden är snarlik din, har inte ändrat nåt knappt:

sql = "select distinct year(datum),month(datum) from tblNews order by 1,2"
set rs = connect2.execute(sql)
pyear = 0
months = ""

while not rs.eof
response.write "Debug: " & rs(0) & ":" & rs(1) & "<br>"
if pyear <> clng(rs(0)) then
if months <> "" then
response.write months & "<br>"
months = ""
end if
pyear = clng(rs(0))
response.write "<br>" & pyear & "<br>"
response.write "-------" & "<br"
end if

if months <> "" then months = months & ", "
months = months & monthname(cint(rs(1)))
rs.movenext
wend
if months <> "" then response.write months & "<br>"
rs.close
set rs = nothing

och sen håller jag med om att debugen inte stämmer riktigt, men månaderna som skrivs ut är helt rätt. Det finns data i alla de månaderna.

Här är det nog.

 response.write "-------" & "<br"

 response.write "-------" & "<br>"

GULD!

Alltid ska det vara något litet "fel" som ställer till det...

Jag lade även till:

months = months & "<a href='nyheter.asp?month=" & rs(1) & "&year=" & rs(0) & "'>" & monthname(cint(rs(1))) & "</a>"

istället för:

months = months & monthname(cint(rs(1)))

för att kunna göra länkar av det.

En utseendegrej jag tänkte på bara... är det svårt att ändra ordning på åren så att 2003 kommer överst istället för 2001? Det kanske blir mer logiskt så ur användarperspektiv?

Nej då

ql = "select distinct year(datum),month(datum) from nyhet order by 1 desc,2"

aha, så enkelt det var. jag lade desc sist och fick det inte att fungera..

Jättetack för all hjälp!