Här följer en liten kodsnutt som skriver ut hur lång tid det är kvar till något. Det är säkert många som vill ha en "nedräknare" på sin sida.
När det händer och vad ska hända styrs av två variabler som hittas under "Settings".
Lycka till.
<% @language = vbscript LCID = 1053 %>
<% Option Explicit
'[ Copyright 2002 - Quid | https://www.quakenexus.nu | quid@quakenexus.nu ]
'Variables
Dim DateAndTime, NameOfEvent, Font, FontSize, DaysLeft, HoursLeft, MinutesLeft, SecondsLeft
'Settings
DateAndTime = #2020-12-12 16:32:15#
NameOfEvent = "Quid fyller 40"
Font = "verdana"
FontSize = 2
Response.Write "<FONT FACE="& Font &" SIZE="& FontSize &">"
DaysLeft = DateDiff("d", now(), DateAndTime)
If DaysLeft < 2 Then
HoursLeft = DateDiff("h", now(), DateAndTime)
If HoursLeft < 2 Then
MinutesLeft = DateDiff("n", now(), DateAndTime)
If MinutesLeft < 2 Then
SecondsLeft = DateDiff("s", now(), DateAndTime)
If SecondsLeft < 1 Then
Response.Write NameOfEvent &" pågår nu."
Else
IF SecondsLeft = 1 Then
SecondUnit = " sekund"
Else
SecondUnit = " sekunder"
End If
Response.Write "Det är "& SecondsLeft & SecondUnit &" kvar till "& NameOfEvent &"."
End If
Else
Response.Write "Det är "& MinutesLeft &" minuter kvar till "& NameOfEvent &"."
End If
Else
Response.Write "Det är "& HoursLeft &" timmar kvar till "& NameOfEvent &"."
End If
Else
Response.Write "Det är "& DaysLeft &" dagar kvar till "& NameOfEvent &"."
End If
Response.Write "</FONT>"
%>