kan nogen finde fejl her
hejsa jeg har den her kode når jeg sender ud.den ene gang jeg sendte ud fik jeg en mail tibage om at de ikke havde tilleldt sig og ikke ønskede sådan mail igen.
i min database der stå folk som vil have mail med et 1 tal og dem der ikke vil stå med et 2 tal og så er der nogen der stå med et 0 dem med 0 er fodi jeg har lavet det her lidt senere da der var brugere i database.
<html>
<head>
<title>Mailliste</title>
<%
if request.QueryString("mode") = "send" then
'Dim rs, email, overskrift, indhold, Conn, DSN
mailertype = "2"
SQLserveradr="hemlig"
SQLdatabase="hemlig"
SQLlogin="hemlig"
SQLpassword="hemlig"
Set rs = Server.CreateObject("ADODB.Connection")
rs.Open "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase &";uid="& SQLlogin &";pwd="& SQLpassword
sql = "SELECT * from bruger where tilb = 1"
'sql = "select * from bruger where id = 2"
set rs = rs.execute(sql)
email = rs("email")
do while not rs.eof
on error resume next
if mailertype = "1" then
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.hemlig.dk"
JMail.Charset = "iso-8859-1"
JMail.ContentTransferEncoding = "8bit"
JMail.Sender = "mailrobot@hemlig.dk"
JMail.Subject = request.form("overskrift")
JMail.AddRecipientEx email, "hemlig's Tilbudsmail"
JMail.Body = request.form("indhold")
JMail.Priority = 3
JMail.Execute
set JMail = nothing
elseif mailertype = "2" then
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient rs("email"), "bruger"
jmail.From = "mailrobot@hemlig.dk"
jmail.Subject = request.form("overskrift")
jmail.HTMLBody = request.form("indhold")
jmail.Send( "mail.hemlig.dk" )
end if
response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& rs("email") &"</STRONG></FONT><BR>"
rs.movenext
loop
conn.close
end if
%>
<script language="Javascript1.2"><!-- // load htmlarea
_editor_url = "http://www.hemlig.dk/smukke1623tihi/editor/"; // URL to htmlarea files
var win_ie_ver = parseFloat(navigator.appVersion.split("MSIE")[1]);
if (navigator.userAgent.indexOf('Mac') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Windows CE') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Opera') >= 0) { win_ie_ver = 0; }
if (win_ie_ver >= 5.5) {
document.write('<scr' + 'ipt src="' +_editor_url+ 'editor.js"');
document.write(' language="Javascript1.2"></scr' + 'ipt>');
} else { document.write('<scr'+'ipt>function editor_generate() { return false; }</scr'+'ipt>'); }
// --></script>
<script language="JavaScript1.2" defer>
editor_generate('indhold');
</script>
</head>
<body>
Send Emails<br>
<br>
<form name="form" method="post" action="nyheds_mail.asp?mode=send">
Oveskrift
<input name="overskrift" type="text">
<br>
<textarea name="indhold" style="width:100%; height:350" rows="1" cols="20"></textarea>
<br>
<input name="reset" type="reset" value="Reset">
<input name="send" type="submit" value="Send">
</form>
</body>
</html>
