> Jeg tror jeg ville trække alle datoer ud og så bruge (clientside)
> JavaScript til at styre, hvilke der skal vises.
>
> Udtræk, hvis det er en Access db:
> SELECT DISTINCT
> DateSerial(Year([dinDato]),Month([dinDato]),Day([dinDato])) AS minDato
> FROM tblTabel
> ORDER BY DateSerial(Year([dinDato]),Month([dinDato]),Day([dinDato]));
>
> Det kan gøres simplere, hvis ikke der er en Time-del med i
> dato-angivelsen:
> SELECT DISTINCT dinDato
> FROM tblTabel
> ORDER BY dinDato;
Der skal ingen timedel med, men jeg har fundet en mulig løsning.
> Hmmm, hvis du bruger SELECT DISTINCT i SQL'en bliver det sikkert
> kun til et par hundrede datoer.
Det jeg har fundet frem til er føldende sql sætning og funktion:
strSQL = "Select distinct dato from tblBilleder order by dato"
Set rs = Conn.Execute(strSQL)
'' Gem data som kommasepareret liste
Do while not rs.eof
arrDato = arrDato & "," & rs("dato")
rs.MoveNext
Loop
'' Lav arrays med data
arrDato = Split(arrDato,",")
qtemp = 0
'' Funktion som undersøger for svar
Function ThreadsDate(intID)
For m = 1 to Ubound(arrDato)
if len(arrDato(m)) > 0 then
if not qTempYear = year(arrDato(m)) then
if qTempYearOn = true then
response.write "</div>" & vbcrlf
qTempYearOn = false
end if
if qTempMonthOn = true then
response.write "</div>" & vbcrlf
qTempMonthOn = false
end if
response.write year(arrDato(m)) & vbcrlf
qTempYear = year(arrDato(m))
response.write "<div style='display:none' id='y" & qtemp & "'>"
qTempYearOn = true
qtemp = qtemp +1
end if
if not qTempMonth = month(arrDato(m)) then
if qTempMonthOn = true then
response.write "</div>" & vbcrlf
qTempMonthOn = false
end if
response.write maanedlang(month(arrDato(m))) & vbcrlf
qTempMonth = month(arrDato(m))
response.write "<div style='display:none' id='y" & qtemp & "'>"
qTempMonthOn = true
qtemp = qtemp +1
end if
if not qTempDay = day(arrDato(m)) then
response.write ugedag(Weekday(arrDato(m),VbMonday)) &
day(arrDato(m)) & ". " & maaned(month(arrDato(m))) & vbcrlf
qTempDay = day(arrDato(m))
qtemp = qtemp +1
end if
end if
Next
if qTempMonthOn = true then
response.write "</div>" & vbcrlf
qTempMonthOn = false
end if
if qTempYearOn = true then
response.write "</div>" & vbcrlf
qTempYearOn = false
end if
End Function
response.write ThreadsDate(0)
Jeg har selvfølgeling funktionerne "maanedlang", "maaned" og "ugedag"
øverst til at vælge det rigtige format for mig.
Christian
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials