Emailliste og Jmail
Jeg har prøvet med nedstående kode, men det virker ikke, er der nogen der kan se fejlen, så jeg kan få det til at virke._______________________
Case \"1\" %>
<br>
<div align=\"center\">
<center>
<form method=\"POST\" action=\"index.asp?valg=login_ok&id=1&mode=sendnyhb\">
<table border=\"0\" width=\"90%\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"0\">
<tr>
<td width=\"100%\" colspan=\"2\" bgcolor=\"#FFFFFF\" height=\"20\"><font size=\"4\" color=\"#FFFFFF\" face=\"Arial Rounded MT Bold\"> </font><font face=\"Arial Rounded MT Bold\" size=\"4\" color=\"#C33333\">S</font><font face=\"Arial Rounded MT Bold\" color=\"#C33333\" size=\"3\">end
nyhedsbrev til kunderne</font></td>
</tr>
<tr>
<td width=\"9%\" bgcolor=\"#FFFFFF\"> Afsender :</td>
<td width=\"91%\" bgcolor=\"#FFFFFF\">
<p><input type=\"text\" name=\"sender\" size=\"48\" value=\"nyhedsbrev@blaesbjerg-design.dk\"></p>
</td>
</tr>
<tr>
<td width=\"9%\" bgcolor=\"#FFFFFF\"> Emne :</td>
<td width=\"91%\" bgcolor=\"#FFFFFF\"><input type=\"text\" name=\"subject\" Value=\"Blæsbjerg Design - Nyhedbrev Nr <% =FormatDateTime(Now, vbShortDate) %>\" size=\"48\"></td>
</tr>
<tr>
<td width=\"9%\" bgcolor=\"#FFFFFF\" valign=\"top\" rowspan=\"2\"> Tekst :
<p> </p>
</td>
<td width=\"91%\" bgcolor=\"#FFFFFF\" align=\"center\"><textarea rows=\"10\" name=\"body\" cols=\"40\"></textarea></td>
</tr>
<tr>
<td width=\"91%\" bgcolor=\"#FFFFFF\" height=\"26\" valign=\"middle\"> <input type=\"submit\" value=\"Send Nyhedsbrev\" name=\"sendmail\" class=flatbutton>
<input type=\"reset\" value=\"Slet\" name=\"Slet\" class=flatbutton></td>
</tr>
</table>
</form>
</center>
</div>
<%
\'*******************************************************************
\' I´m gona mail this bugger to the admin i JMail format
\' 6/2 - 2001 by design@jagt-hunden.dk
\'*******************************************************************
Private sub SendMailTonyhg()
\' ADODB connection objektet
Set Conn = Server.CreateObject(\"ADODB.Connection\")
\' Husk at angive den rigtige sti til din database
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"/db/items.mdb\")
\' Åben databaseforbindelsen
Conn.Open DSN
\' SQL forespørgsel
strSQL = \"SELECT * FROM nyhedsbrev\"
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
If rs.eof And rs.bof Then
Response.Write \"<center><font color=yellow size=\'3\'>Ingen email adresser i databasen</font></center><BR>\"
Else
Do
on error resume next
strMailBody = strMailBody & \"<html><body bgcolor=\'#FFFFED\'>\"
strMailBody = strMailBody & \"<h2><font color=\'#000000\'>Ordre bestilling</font></h2>\"
strMailBody = strMailBody & \"<p><font color=\'#000000\'><pre>\"
strMailBody = strMailBody & \"<br>afsender: \" & Request.Form(\"Sender\") & \"<br>\"
strMailBody = strMailBody & \"<br>Emne :\" & Request.Form(\"Subject\") & \"<br>\"
strMailBody = strMailBody & \"<br> Tekst: \" & Request.Form(\"Body\") & \"<br>\"
strMailBody = strMailBody & \"</pre>\" & chr(10)
strMailBody = strMailBody & \"</font></p>\"
strMailBody = strMailBody & \"<font face=\'Arial Rounded MT Bold\' size=\'1\'>\"
strMailBody = strMailBody & \"Design af hjemmeside - kontakt os : <a href=\'mailto:design@jagt-hunden.dk\' style=\'color: #000000\'>design@jagt-hunden.dk?subject=Design af hjemmeside</a> - <a href=\'http://www.jagt-hunden.dk\' target=\'_blank\' style=\'color: #000000\'>http://www.jagt-hunden.dk</a></font>\"
strMailBody = strMailBody & \"</body></html>\"
Set objMail = server.CreateObject(\"JMail.SMTPMail\")
objMail.ContentType = \"text/html\"
\' ## MAILPROG OPSÆTNING
modtager = rs(\"Email\")
objMail.ServerAddress = modtager
objMail.Sender = Request.Form(\"Sender\")
objMail.ReplyTo = \"nyhedbrev@blaesbjerg-design.dk\"
objMail.Sendername = \"Blæsbjerg Design\"
objMail.subject = \"Nyhedsbrev nr \" & Date(Now)
\' ## MODTAGER PÅ EMALEN
Modtager = rs(\"Email\")
objMail.AddRecipient(Modtager)
objMail.body = strMailBody
objMail.Priority = 1
\' ## SENDER
objMail.Execute
Set objMail = nothing
If err.Number < 0 Then
Response.Redirect(\"index.asp?valg=fejlemailnyhb&fejl=\" & rs(\"Email\") & \"\")
End If
rs.MoveNext
Loop While Not rs.EOF
end if
\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
End sub
mode = request.Querystring(\"mode\")
If mode = \"sendnyhb\" Then
SendMailTonyhg
End If
