Hvis dato/tid er overskredet?

Jeg er ikke sikker på jeg forstår, men man kan altid sætte computterens ur tilbage hvis et program er udløbet og man lige skal bruge det en sidste gang... ;-)

Hvis jeg forstår hvad du vil:

Så lave en IF dato = Now() THEN EtEllerAndet Else NogetAndet
Dato = den dato som ikke må overskrides...

Håber det var det du skulle bruge ellers uddyb spørgsmålet.

Altså:

If dato > Now() then
blablabla

Men sådan kan man vel ikke lave det? (det virker i hvert fald ikke)

Det kommer an på hvad dato indeholder, erd et kun dato så bruge Date er det dato og tid så brug Now dog konvertere med CDate så det er ens dato format i både dato og now

dato = "31-12-2002 13:45:22"
if CDate(dato) > Now then
  'Dato er større end Now
else
  'Dato er mindre end Now
end if

det er sikkert en database hvor du har nogle felter vedr. Dato og Tid. man kan sætte en tid eller antal dage for at klare dette. Her har jeg valgt -7 dage.

<!-- #include file="adovbs.inc" --><%
   
        ' Defineres variabler
        Dim objConn, objRS
        Dim dtmSkaerDato
        Dim strSkaerDato
   
        ' Tjek din dato format, her vælges antal dage -7
        dtmSkaerDato = DateAdd("d",-7,Date)
        strSkaerDato= Day(dtmSkaerDato) & " " & MonthName(Month(dtmSkaerDato)) & _
            " " & Year(dtmSkaerDato)
   
        ' Opret connection objekt
        Set objConn = Server.CreateObject("ADODB.Connection")
        objConn.Open "MyDSN"
   
        ' Valg de felter som er valid (gyldigt)
        Set objRS = Server.CreateObject("ADODB.RecordSet")
        objRS.Open "SELECT * FROM tblMin WHERE Dato < #" & strSkaerDato & _
            "#;", objConn, adOpenKeyset, adLockOptimistic, adCmdText

så kan du gå videre med at sætte felterne på din side.