Tidsstyrt script

sig hvad???

For at kunne sende email's via ASP script .. anbefaler jeg dig at bruge en ASPMail komponent ..
Komponenten kan downloades her (shareware):
http://activedeveloper.dk/komponenter/default.asp?mode=komponent&id=19

/Curriculum

När klockan är till exempel 8, så ska scriptet utföras. och så ska det göra en gång, varje dag klockan 8.

ok... emailkomponenten är ju inget problem... däremot att utföra scriptet varje dag på ett bestämt klockslag

Det kan ikke lade sig gøre med et ASP script. Du skal have opsat en opgave i scheduled task før at det kan lade sig gøre, så med mindre du har din egen server, kan du godt glemme det.

netsrac... har egen server... berätta mer

Okay, lav dit script om til et vbs script istedet og opsæt det som en fast opgave hver dag, så er den sag klaret. Hvis du skal have lidt hjælp til at lave vbs så må du lige smide dit asp script her.

netsrac... ok återkommer så snart jag gjort aspscriptet

Hm..det forstod jeg ikke rigtigt ? Kommer du igen når du har lavet asp scriptet eller ?

japps... har inte gjort det färdigt än...

här kommer det färdiga aspscriptet som behöver konverteras till vbs...

-----scriptstart-----

<%

function DateToStr(dtDateTime)
    DateToStr = year(dtDateTime) & doublenum(Month(dtdateTime)) & doublenum(Day(dtdateTime)) & ""
end function
function doublenum(fNum)
    if fNum > 9 then
        doublenum = fNum
    else
        doublenum = "0" & fNum
    end if
end function


datum=DateToStr(now())

set fs=Server.CreateObject("Scripting.FileSystemObject")
set folder=fs.GetFolder("d:\web\kunder\axelsons\katalogbestallningar\")

If folder.Size > 0 Then

  Set objMail = Server.CreateObject("CDONTS.NewMail")

  set fss=Server.CreateObject("Scripting.FileSystemObject")
set file=fss.GetFile("d:\web\kunder\axelsons\katalogbestallningar\kat_best.txt")

fss.MoveFile ("d:\web\kunder\axelsons\katalogbestallningar\kat_best.txt"), _
("d:\databas\axelsons\katbest\kat_best"&datum&".txt")

    objMail.From = "webmaster@modernmedia.nu"
    objMail.Subject = "Dagens katalogbeställningar"
    objMail.AttachFile("d:\databas\axelsons\katbest\kat_best"&datum&".txt")
    objMail.To = "bengt.horgerud@markarydsgrafiska.se"
    objMail.Body = "Här kommer dagens katalogbeställningar..."
    objMail.Send

  set objMail = nothing

set file=nothing
set fss=nothing

else

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "webmaster@modernmedia.nu"
    objMail.Subject = "Dagens katalogbeställningar"
    objMail.To = "bengt.horgerud@markarydsgrafiska.se"
    objMail.Body = "Idag fanns det inga beställningar..."
    objMail.Send

  set objMail = nothing
 
set folder=nothing
set fs=nothing

end if
%>

----scriptslut-----

Læg følgendende i en .vbs fil:

function DateToStr(dtDateTime)
    DateToStr = year(dtDateTime) & doublenum(Month(dtdateTime)) & doublenum(Day(dtdateTime)) & ""
end function
function doublenum(fNum)
    if fNum > 9 then
        doublenum = fNum
    else
        doublenum = "0" & fNum
    end if
end function


datum=DateToStr(now())

set fs=CreateObject("Scripting.FileSystemObject")
set folder=fs.GetFolder("d:\web\kunder\axelsons\katalogbestallningar\")

If folder.Size > 0 Then

  Set objMail = CreateObject("CDONTS.NewMail")

  set fss=CreateObject("Scripting.FileSystemObject")
set file=fss.GetFile("d:\web\kunder\axelsons\katalogbestallningar\kat_best.txt")

fss.MoveFile ("d:\web\kunder\axelsons\katalogbestallningar\kat_best.txt"), _
("d:\databas\axelsons\katbest\kat_best"&datum&".txt")

    objMail.From = "webmaster@modernmedia.nu"
    objMail.Subject = "Dagens katalogbeställningar"
    objMail.AttachFile("d:\databas\axelsons\katbest\kat_best"&datum&".txt")
    objMail.To = "bengt.horgerud@markarydsgrafiska.se"
    objMail.Body = "Här kommer dagens katalogbeställningar..."
    objMail.Send

  set objMail = nothing

set file=nothing
set fss=nothing

else

Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = "webmaster@modernmedia.nu"
    objMail.Subject = "Dagens katalogbeställningar"
    objMail.To = "bengt.horgerud@markarydsgrafiska.se"
    objMail.Body = "Idag fanns det inga beställningar..."
    objMail.Send

  set objMail = nothing
 
set folder=nothing
set fs=nothing

end if