Du kan vel køre det som en VBS-fil i stedet for (kræver måske at koden modificeres en lille smule). Den burde du uden problemer kunne eksekvere fra scheduleren.
Her har jeg så følgende kode som kører perfekt i IE, som asp-format.
Men der kommer fejl hvis jeg kører det som en vbs-fil!
Hvad kan fejlen være? Her er koden:
<!-- #include file="../ADOVBS.inc" --> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../DataB.mdb") strSQL = "select * from users WHERE online=1" set rs = Conn.execute(strSQL) Do Until rs.EOF tid = "" & rs("time") & "" ton = "" & cdate("" & tid & "") & "" fors = "" & (DateDiff("h", ton, Now())) & "" if fors > "4" then Dim rsSave Set rsSave = Server.CreateObject("ADODB.RecordSet") strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../dataB.mdb") rsSave.open "users", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable rsSave.find "ID=" & rs("ID") & "" rsSave("online") = "0" rsSave.update rsSave.close set rsSave = Nothing end if RS.MoveNext Loop Conn.Close Set Conn = Nothing %>
fejlen der kommer ser sådan her ud:
Linie = 1 Tegn = 1 Fejl = En sætning var ventet
\Dan
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.