Kør side autimatisk hver dag

Du kan enten gå igang med at kode en service til det, men det er nu lidt af et arbejde. Eller du kan lægge koden i et vb script og køre dette som en schetuled task i windows.

Jeg har prøvet at smide det ind i en VBS fil men det virker sku ikke den melder allerede fejl ved den første linje. Min kode ser således ud.

set strConnect = server.createobject(\"ADODB.Connection\")
strCon = \"provider=SQLOLEDB;driver=(SQL Server);server=dd01s01;database=DD_OT_Gavekasse;uid=otgaveuser;pwd=ddotgave\"
strConnect.Open strCon

SET RS = Server.CreateObject(\"ADODB.Recordset\")\' Define the recordset object
SQL = \"SELECT * FROM [TotalView]\"
RS.Open SQL, strConnect, 2, 1




SET RS3 = Server.CreateObject(\"ADODB.Recordset\")\' Define the recordset object
SQL3 = \"SELECT * FROM [Gavekasse] ORDER BY Last_Name\"
RS3.Open SQL3, strConnect, 2, 1

SET EMail = Server.CreateObject(\"ADODB.Recordset\")\' Define the recordset object
SQL4 = \"SELECT * FROM [email]\"
EMail.Open SQL4, strConnect, 2, 1

SET RS1 = Server.CreateObject(\"ADODB.Recordset\")\' Define the recordset object
SQL1 = \"SELECT * FROM [Alert]\"
RS1.Open SQL1, strConnect, 2, 1
Days = RS1(\"Days\")
\'Response.Write \"Days = \" & Days &\"<br>\"


    Do While Not rs.EOF



If Days = DateDiff(\"d\", Now, RS(\"EventDate\")) Then

User = RS(\"Employee_Number\")





HTML = \"<html>\"
HTML = HTML & \"<head>\"
HTML = HTML & \"<h1 align=\"\"center\"\"><b>\"
HTML = HTML & \"Checkliste</b></h1>\"
HTML = HTML & \"<p align=\"\"center\"\">\"

HTML = HTML & \"I anledning af \" & RS(\"First_Name\") & \"&nbsp;\" & RS(\"Last_Name\") &\"\'s \"
If trim(RS(\"Event\")) = \"Birthday\" Then
HTML = HTML & \"Fødselsdag\"
else
HTML = HTML & \"Jubilæum\"
end if
HTML = HTML & \" den. \" & RS(\"EventDate\") & \"<br>\"

Head =  \"I anledning af \" & RS(\"First_Name\") & \" \" & RS(\"Last_Name\") &\"\'s \"
If trim(RS(\"Event\")) = \"Birthday\" Then
Head = Head & \"Fødselsdag\"
else
Head = Head & \"Jubilæum\"
end if
Head = Head & \" den. \" & RS(\"EventDate\") & \"\"


HTML = HTML & \"Listen afkrydses og videresendes hurtigst muligt.<br><br>\"


HTML = HTML & \"<div align=\"\"center\"\">\"
HTML = HTML & \"<center>\"
HTML = HTML & \"<table border=\"\"1\"\" cellpadding=\"\"0\"\" cellspacing=\"\"0\"\" width=\"\"309\"\">\"
HTML = HTML & \"    <tr>\"
HTML = HTML & \"<td width=\"\"40\"\">Check</td>\"
HTML = HTML & \"      <td >Last Name</td>\"
HTML = HTML & \"      <td >First Name</td>\"
HTML = HTML & \"    </tr>\"
Do While Not rs3.EOF
if cint(User) = RS3(\"Employee_Number\") Then
rs3.MoveNext
end if

HTML = HTML & \"    <tr>\"
HTML = HTML & \"      <td width=\"\"40\"\">&nbsp;</td>\"
HTML = HTML & \"      <td >\"& RS3(\"Last_Name\")&\"</td>\"
HTML = HTML & \"      <td >\"& RS3(\"First_Name\")& \"</td>\"
HTML = HTML & \"    </tr>\"
rs3.MoveNext
Loop

HTML = HTML & \"  </table>\"
HTML = HTML & \"  </center>\"
HTML = HTML & \"</div>\"

Do While Not Email.EOF
    Dim MyCDONTSMail2
    Dim HTML
    Set MyCDONTSMail2 = CreateObject(\"CDONTS.NewMail\")
     
   
    MyCDONTSMail2.From= \"xxxxx@danfoss.com\"
    MyCDONTSMail2.To=Email(\"email\")
    MyCDONTSMail2.Subject=Head\'
    MyCDONTSMail2.BodyFormat=0
    MyCDONTSMail2.MailFormat=0
    MyCDONTSMail2.Body=HTML
    MyCDONTSMail2.Send
    set MyCDONTSMail2=nothing
   
    Email.MoveNext
    Loop

Email.movefirst

    rs3.Movefirst
end if
rs.MoveNext
  Loop

Prøv at erstatte

set strConnect = server.createobject(\"ADODB.Connection\")

med

set strConnect = CreateObject(\"ADODB.Connection\")

Du kan også bruge Pil.dk\'s produkt WebAlert lidt kreativt:
http://www.pil.dk/produkter/webalert/

Den henter en den asp side du vil have en gang i timen, 24 timer i døgnet. Altså kan du bare lægge din kode i en ASP fil som du så sætter WebAlert til at hente... Samtidig har du god overvågelse over dit site.

Mvh Mark

Jeg fandt en anden løsning ved at bruge nogle AT komandåer til at kalde en side med.

centauri.. Du er sku weird.. Nu har jeg siddet og læst et pr. af dine spm. igennem. Det ender for det meste med at du giver dig selv point.. Er det smart ?