Nåja, så värst seriöst var det inte.
Fyra bilder (line_g.gif, line_r.gif, line_b.gif & end.gif)
och en lite databas med fyra fält (start, stopp, vid & bes).
Du kan ju se om du kan anväda det till något.
start="2000-05-06" '//Startdatum
stopp="2000-12-24" '//Stoppdatum
vid="xx" '//Första delen av vecko-id
bes="julafton." '//Rubrik
weeks= DatePart("ww", DateSerial(year(date),12,31), 2, 3) '//antal veckor för innevarande år
nowweek=DatePart("ww", date, 2, 3) '//nuvarande vecka
startweek=DatePart("ww", DateSerial(year(start),month(start),day(RecSet("start"))), 2, 3)
stoppweek=DatePart("ww", DateSerial(year(stopp),month(stopp),day(RecSet("stopp"))), 2, 3)
for i = 1 to startweek '//vecka 1 till startveckan
Response.write "<img src='line_b.gif'alt='det unika id´t: "&vid&i&"'>"
next
for i = 1 to nowweek-startweek '//startveckan till nuvarande vekca
Response.write "<img src='line_g.gif'alt='det unika id´t: "&vid&startweek+i&"'>"
next
for i = 1 to stoppweek-nowweek '//nuvarande vecka till slutveckan
Response.write "<img src='line_r.gif' alt='det unika id´t: "&vid&nowweek+i&"'>"
next
for i = 1 to weeks-stoppweek '//slutveckan till resten av året
Response.write "<img src='line_b.gif' alt='det unika id´t: "&vid&stoppweek+i&"'>"
next
Response.write "<img src='end.gif'><br>" '//avslutnings bild
Response.write DateDiff("d", Date, stopp)&" dagar kvar till "&bes &"<br>"
Response.write "Mätningen startade "&start&" och avslutas "&stopp&".<hr>"
------------------
Oderint dum metuant
