include i JMail
HejJeg forsøger at lave en include-fil i JMail, hvor jeg henter e-mail adresser fra tabellen Users.
Det ser således indtil videre....
send_email.asp:
---------------
<html>
<head>
<title>Send e-mail (test)</title>
<link rel="stylesheet" href="layout/3.css" type="text/css" media="screen">
<link rel="stylesheet" href="layout/3p.css" type="text/css" media="print">
</head>
<body>
<h1>Send e-mail (test)</h1>
<%
Session.LCID = 1030
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Logging = True
JMail.Silent = True
JMail.ServerAddress = "smtpserver.get2net.dk"
JMail.Sender = "dummy@dummy.dk"
JMail.Subject = "OVERSKRIFT"
%>
<!--#include file="z_get_email.inc"-->
<%
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' ********** Her starter selve email-en
JMail.Body = "INDHOLD"
' ********** Her slutter selve email-en
JMail.Execute
Set JMail = Nothing
Conn.Close
set Conn = Nothing
%>
</body>
</html>
---------
include-filen (z_get_email.asp):
--------------
<%
' z_get_email.inc
Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("baser/dummy.mdb")&";"
Conn.Open strConnect
strSQL = "SELECT * FROM users WHERE (init = 'FE' or init = 'PEL')"
Set rsMail = Conn.Execute(strSQL)
if Not rsMail.EOF then
Do Until rsMail.EOF
if rsMail("email") <> "" then
JMail.AddRecipient
Response.Write " " & rsMail("email")
end if
rsMail.MoveNext
Loop
end if
%>
-------------
Meeeeen.....det virker sgu ikke rigtigt!
