|
Aftel nieuwjaars script
Dit is leuk om de bezoeker voor het jaar 2005 te laten herinneren hoe lang het nog duurt. Je kan natuurlijk ook het script zo maken voor ander bijzondere gebeurtenis.
greetz
MEEUW
<%@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>
download het script
Reacties van leden
|
