Met de onderstaande code wordt er de datum van vandaag vergeleken met de datum die in de tabel klant hieruit komt het verschil in het aantal dagen uit. Als er bijv 60 uitkomt dan wordt er automatisch een mailtje gestuurd, dit werkt wel, behalve als er meer datums zijn die uitkomen op 60. Want dan werkt de onderstaande code niet. Ik heb zelf geen idee wat het kan zijn?? De foutmelding geeft hier CDO.to = ""& recordset("Email") &"" een fout aan. Maar als ik dat hele CDO gebeuren vervangen met response.write recordset("Email") geeft die wel netjes alle email adressen aan. Het lijkt erop dat er niet nog een 2de email kan worden gestuurd. Misschien ligt het aan de do while.... loop. Maar ik kan daarover niks vinden.
Heeft iemand advies/tip waaraan het eventueel aan kan liggen.
ps. ik maak gebruik van een mysql database.
Heeft iemand advies/tip waaraan het eventueel aan kan liggen.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
| <%
Set connectionToDatabase = Server.CreateObject("ADODB.Connection")
connectionToDatabase.ConnectionTimeout=60
connectionToDatabase.Open "DSN=test"
dim CDO
Set CDO=Server.CreateObject("CDONTS.Newmail")
Set recordSet = Server.CreateObject("ADODB.recordSet")
recordset.Open "SELECT * FROM klant", connectionToDatabase
Do while not recordset.eof
if DateDiff ("d",recordset("lid"),date) <> 60 then
recordset.movenext
elseif DateDiff ("d",recordSet("lid"),date) = 70 then
verwijder= "delete from klant where lid = '" & recordset("lid")
& "' "
connectionToDatabase.Execute(verwijder)
recordset.movenext
elseif DateDiff ("d",recordSet("lid"),date) = 60 then
CDO.to = ""& recordset("Email") &""
CDO.from = "No_reply@no_reply.nl"
dim HTML
HTML = "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Waarschuwing</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
HTML = HTML & "<center><h1>Let Op</h1></center><br>"
HTML = HTML & "U bent al een lange tijd niet ingelogd op onze
webbased database met de gebruikersnaam "
HTML = HTML & recordSet("gebruikersnaam")
HTML = HTML & "<br>"
HTML = HTML & "Als u binnen 10 dagen niet inlogd dan wordt uw
account verwijderd"
HTML = HTML & "<center>Met vriendelijke groeten</center><br>"
HTML = HTML & "<center> TBK</center>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
CDO.Subject = "Waarschuwing e-mail"
CDO.Bodyformat = 0
CDO.Mailformat = 0
CDO.body = HTML
CDO.Send
recordset.movenext
end if
loop
response.write "Klaar!!!!"
connectionToDatabase.Close
Set connectionToDatabase=Nothing
%> |
ps. ik maak gebruik van een mysql database.
:strip_icc():strip_exif()/u/7418/the_hat_icon.jpg?f=community){kind=icon}
Dit topic is gesloten.