Når dato er større end nu - afsend en mail

Dette kunne være en løsning:

<%
Dim sSidsteSalgsDato
Dim sDatoCheck
Dim objSendEmailAdm

If isDate(sSidsteSalgsDato) then       
    sSidsteSalgsDato = cDate(SidsteSalgsDato)
    sDatoCheck = cDate(sDatoCheck)
   
    If sSidsteSalgsDato < sDatoCheck Then
        Set objSendEmailAdm = CreateObject("CDONTS.NewMail")
        Server.CreateObject("CDONTS.NewMail")

        With objSendEmailAdm
        .From = "VareRobot@CheckSystemet.Dk"
        .to = ###TIL EMAIL ADRESSE###
        .Subject = "Vareinformation"
        .Body = "Varen er for gammel"
         
        .Send
        End With
        Set objSendEmailAdm = Nothing
    End If
End If
%>

ok, dette system sender det ikke kun en mail hvis man kommer ind på siden?

Kan godt ske det er et dumt spøgsmål, men jeg er ikke den store programmeringsørn. :D

Det kommer jo egentligt an på hvor du ligger scriptet. Du kan jo altid lave det som en inkluderingsfil så den hentes i de situationer, hvor det er nødvendigt.

Men naturligvis skal scriptet aktiveres af et eller andet, enten når en side aktiveres, eller ved døgnsskifte, eller andet.

Hvis nu at den skal aktiveres en gang om ugen - hvordan gør man så det?

Et scripts speciale er aktiveringen. En aktivering der som oftest skal ske fra en klient. Hvis du har behov for en løsning der kører tidsbestemt, bør du kikke på en windows baseret løsning (Visual Basic, Delphi, Visual C++ eller andet).

lukker