Dato script!!!

Hjælp! Jeg vil gerne have et script der kan regne ud hvor mange Dage, Timer, Minutter og Sekunder der er til næste Onsdag... Også når det er Torsdag efter Onsdagen nulstiller den og starter forfra... Nogen der ved hvordan man kan de???

________________________________
www.ssjpride.dk

Kode 

<%
Ugedagen = ",Mandag,Tirsdag,Onsdag,Torsdag,Fredag,Lørdag,Søndag"
Ugedagen = Split(Ugedagen,",")
Maaneder = "31,28,31,30,31,30,31,31,30,31,30,31"
Maaneder = Split(Maaneder,",")
Tidspunkt = FormatDateTime(Date & " 0:0:0 AM ",0)
if Ugedagen(Weekday(Tidspunkt,VBMonday)) = "Onsdag" then
 Response.Write "Det er onsdag!"
else
 Dagextra = 1
 Do until Ugedagen(Weekday(Tidspunkt,VBMonday)) = "Onsdag"
  Tidspunkt = FormatDateTime(Date+Dagextra & " 0:0:0 AM ",0)
  Dagextra = Dagextra+1
 loop
 Sekunder = Second(Tidspunkt)-Second(Now)
 Minuter = Minute(Tidspunkt)-Minute(Now)
 if Sekunder < 0 then
  Minuter = Minuter-1
  Sekunder = Sekunder + 60
 end if
 Timerne = Hour(Tidspunkt)-Hour(Now)
 if Minuter < 0 then
  Timerne = Timerne-1
  Minuter = Minuter + 60
 end if
 Dage = Day(Tidspunkt)-Day(Now)
 if Timerne < 0 then
  Dage = Dage-1
  Timerne = Timerne + 24
 end if
 Response.Write "Til " & Ugedagen(Weekday(Tidspunkt,VBMonday)) & " er der " & Dage & " Dage," & Timerne & " Timer," & Minuter & " Minuter og " & Sekunder & " Sekunder!"
end if
%>