det der med at den skal køres kun en gang, det behøver det jo ikke.. SÅ skal den blot putte datoen ind i en database, og så tjekker om den findes, før den gør det...
du bliver jo nødt til at gemme den variabel et eller andet sted, men, du kan selvfølgelig gøre det i en textfil og så evt. en txt til hvilken dato det sidst er opdateret !?
<% if Weekday(date) = 2 then Set fso = CreateObject(\"Scripting.FileSystemObject\") Set f = fso.OpenTextFile(Server.MapPath(\"dato.txt\"), 1, True) ReadLineTextFile = f.ReadLine f.Close
if not ReadLineTextFile = date then
Set fso = CreateObject(\"Scripting.FileSystemObject\") Set MyFile = fso.CreateTextFile(Server.MapPath(\"dato.txt\"), True) MyFile.WriteLine(date) MyFile.Close
\'udfør det der skal køres om mandagen
end if end if
%>
tja noget i denne stil, ved ikke helt om det virker... men det burde... så skal du blot lige huske at oprette dato.txt, før du kører scriptet...
Det kan - og skal da - gøres simplere. I denne uge returnerer denne funktion et 0, på mandag et 1 tal, og i næste uge et 2 tal, og .... fortsæt selv. Man kan evt. ændre datoformatet til at passe til sin server
function ihatemondays d = Date ihatemondays = DateDiff(\"ww\",DateValue(\"4 juni 2001\"),d) end function
kan sikkert gøres mere simpel.. Men min måde, vist nok også op på om det er udført mere end en gang, og da han ikke vil bruge database...hvis det ellers virker
han sætter det jo blot ind på hans hjemmeside, således at det er hans besgøende, som kører scriptet, altså den først besøgende som kommer derind om mandagen kører script, færdigt med det.
Tak for hjælpen. Planerne blev lavet om, så vi bruger bare ugenumre.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.