<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../db/data.mdb")
SQL = "SELECT DISTINCT LEFT(Datum,4) as strDatum FROM Tävlingar"
Set rsDatum = db.Execute(SQL)
intAktuelltAr = 0
if not rsDatum.EOF then
do
response.write "" & rsDatum("strDatum") & "" & " "
if rsDatum("strDatum") = LEFT(Date,4) then
intAktuelltAr = 1
end if
rsDatum.movenext
loop until rsDatum.eof
if intAktuelltAr = 0 then
response.write "" & LEFT(Date,4) & ""
end if
response.write "