<%@LANGUAGE="VBSCRIPT"%>
<%
Dim mydatum
Dim bericht
bericht = "typ hier jouw bericht"
mydatum = #31/12/2005 0:00:00AM#
If Date >= mydatum Then
Response.Write ("bericht")
Response.End
End If
DeDatum = Now
dagenover = DateDiff("d",Dedatum,mydatum) - 1
Dedatum = DateAdd("d",dagenover,Dedatum)
urenover = DateDiff("h",Dedatum,mydatum) - 1
Dedatum = DateAdd("h",urenover,Dedatum)
minover = DateDiff("n",Dedatum,mydatum) - 1
Dedatum = DateAdd("n",minover,Dedatum)
secover = DateDiff("s",Dedatum,mydatum) - 1
Dedatum = DateAdd("s",secover,Dedatum)
%>
<HTML>
<BODY>
De server datum is nu : <%= Now %>
<p>
Er zijn nog <%= dagenover%> dagen, <%= urenover %> uren,
<%= minover %> Minuten, <%= secover %> Secondes
over voor <%= bericht %>
</BODY>
</HTML>