Nyhedsmail hjælp virker ikke?
er der nogen her der ved hvorfor det her ikke virker? det skal kunne sende html text??<html>
<head>
<title>Mailliste</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%
if (request.servervariables("REQUEST_METHOD") = "POST") then
Dim rs, email, overskrift, indhold, Conn, DSN
mailertype = 2
Response.Buffer = True
on error resume next
SQLserveradr="hemlig"
SQLdatabase="hemlig"
SQLlogin="hemlig"
SQLpassword="hemlig"
Set rs = Server.CreateObject("ADODB.Connection")
rs.Open "hemlig
if rs.errors.count <> 0 then
response.redirect("fejl.asp")
end if
on error goto 0
SQL = "SELECT * from webmaster where brev = 1"
set rs = conn.execute( SQL )
do while not rs.eof
email = rs("email")
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 = "landsten@stegenet.dk"
JMail.Subject = request("overskrift")
JMail.AddRecipientEx email, "Izzo kunde"
JMail.Body = request("indhold")
JMail.Priority = 3
JMail.Execute
set JMail = nothing
elseif mailertype = 2 then
Set Mailer = Server.CreateObject("Jmail.Message")
JMail.ContentType = "text/html"
Mailer.RemoteHost = "mail.hemlig.dk"
Mailer.FromName = "mig"
Mailer.FromAddress = "landsten@stegenet.dk"
Mailer.AddRecipient "Webmaster", rs("email")
Mailer.Subject = request("overskrift")
Mailer.BodyText = request("indhold")
Mailer.ContentType = "text/html"
Mailer.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
else
end if
%>
</head>
<body>
<p>Send Emails</p>
<form name="form1" method="post" action="">
<p>Oveskrift
<input name="overskrift" type="text" id="overskrift">
</p>
<p>
<textarea name="indhold" cols="50" rows="15" id="indhold"></textarea>
</p>
<p>
<input name="reset" type="reset" id="reset" value="Reset">
<input name="send" type="submit" id="send" value="Send">
</p>
</form>
<p> </p>
</body>
</html>
