I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Lav en side hvor den laver et udtræk af alle mails i en db, og sender en mail, via et loop. Den kører du så bare hver mandag, og skriver din tekst ind ;)
Du har selvfølgelig din database i den laver du nu endnu en kolonne, det skal være en JA/NEJ kolonne(du bestemmer selv navnet jeg kalder den bare brugt i mit eksempel, ok)
Nu skal du høre.
Dette gør at det sker hver mandag
<% If (Weekday = vbMonday) Then
'Husk lige at ændre database.mdb til din egen databases navn. Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("database.mdb") Conn.Open DSN
strSQL = "Select * From Tabellen Where (Brugt = False )" Set rs = Conn.Execute(strSQL)
'her henter jeg artiklens info osv.(du kan selv bygge mere på hvis du vil) strTitel = rs("Titel") strInfo = rs("Info") %>
Denne her stump kan sættes ind hvor som helst på siden. <% Response.write " & strTitel & " <br>" & strInfo & " %>
Sidst på siden inden for body'en sætter du denne stump her ind:
<% strSQL = "Insert into Tabellen(Brugt) values("True") Where(Brugt = False)" Set Conn.Execute(strSQL)
rs.Close Conn.Close Set Conn = Nothing %>
Kan det her hjælpe, Jeg er ikke helt sikker på det med uge dagene endnu, men tror det virker. Prøv.
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.