Mailliste problemer (loop)
For at sende et nyhedsbrev ud i 2 sprog har jeg prøvet at gøre det med en simpel if sætning, men Jmail vil ikke sende det ud. Det funker hvis jeg kun har en mail adresse...jmail.Message error '8000ffff'
The message was undeliverable. All servers failed to receive the message
/admin/view.asp, line 380
'************ FORM FELT TIL MAIL ****************************
If Request.ServerVariables("content_length") = 0 Then
Response.Write vbCrLf &_
"<table cellpadding=""3"" cellspacing=""2"">" &_
"<form action=""view.asp?act=mail"" method=""post"" autocomplete = ""off"">" &_
"<tr>" & vbCrLf &_
"<td>Subject DK* </td>" &_
"<td><input type=""txt"" size=""35"" name=""headDK""></td>" &_
"</tr>" &_
"<tr>" & vbCrLf &_
"<td>Subject UK*</td>" &_
"<td><input type=""txt"" size=""35"" name=""headUK""></td>" &_
"</tr>" &_
"<tr>" & vbCrLf &_
"<td valign=""top"">Txt DK*</td>" &_
"<td><textarea cols=""60"" rows=""10"" name=""txtDK""></textarea>" &_
"</tr>" &_
"<tr>" & vbCrLf &_
"<td valign=""top"">Txt UK*</td>" &_
"<td><textarea cols=""60"" rows=""10"" name=""txtUK""></textarea>" &_
"</tr>" &_
"<tr>" & vbCrLf &_
"<td colspan=""2"" align=""right""><br>" &_
"<i>* skal udfyldes..!</i> " &_
"<input type=""submit"" value=""Send""></td>" &_
"</tr>" &_
"<tr>" & vbCrLf &_
"<td colspan=""2"" align=""center""><br>" &_
"<a href=""view.asp?act=maillist"">Se/redigere mail-liste</a>" &_
"</tr>" &_
"</form></table>"
Else
SQL = "SELECT * FROM mail"
SET RS = Conn.Execute(SQL)
FrmSubjectDK = Request.Form("headDK")
FrmTxtDK = Replace(Trim(Request.Form("txtDK")),vbCrLf,"<br>")
FrmSubjectUK = Request.Form("headUK")
FrmTxtUK = Replace(Trim(Request.Form("txtUK")),vbCrLf,"<br>")
Do Until RS.EOF
MailAdd = RS("mail")
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient MailAdd
jmail.From = "news@thesevenmilejourney.dk"
If RS("Lang") = "UK" Then
jmail.Subject = FrmSubjectUK
jmail.HTMLBody = "<html><head><style>" &_
".broed {font-family: verdana, helvetica, arial, sans serif;font-size: 11px;color: #000000;line-height: 14px}" &_
".kom {font-family: verdana, helvetica, arial, sans serif;font-size: 10px;color: #000000;line-height: 12px}" &_
"a:active {font-family: verdana, helvetica, arial, sans serif;font-size: 11px;color: #000000;line-height: 14px}" &_
"a:hover {font-family: verdana, helvetica, arial, sans serif;font-size: 11px;color: #000000;line-height: 14px}" &_
"a:link {font-family: verdana, helvetica, arial, sans serif;font-size: 11px;color: #000000;line-height: 14px}" &_
"a:visited {font-family: verdana, helvetica, arial, sans serif;font-size: 11px;color: #000000;line-height: 14px}" &_
"</style></head>" &_
"<body bottomMargin=""0"" leftMargin=""0"" rightMargin=""0"" topMargin=""0"" bgcolor=""#FFFFF7"">" &_
"<table height=""98%"" width=""100%"" cellpadding=""4"" cellspacing=""0"" border=""0""><tr>" &_
"<td valign=""top""><div class=""broed""><br>" & FrmTxtUK & "</div></td>" &_
"<td valign=""bottom"" align=""right"" width=""130""><img src=""http://www.thesevenmilejourney.dk/pic/mail_logo.jpg""></td>" &_
"</tr><tr>" &_
"<td colspan=""2"" height=""20""><hr color=""#000000"">" &_
"<div class=""kom"">(Don't reply this mail, you can unsubscribe on " &_
"<a href=""http://www.thesevenmilejourney.dk"" target=""_blank"">www.thesevenmilejourney.dk</a>)</div></td>" &_
"</tr></table></body>"
jmail.Body = FrmTxtUK
ElseIf RS("Lang") = "DK" Then
jmail.Subject = FrmSubjectDK
jmail.HTMLBody = "<html><head><style>" &_
".header {font-family: verdana, helvetica, arial, sans serif;font-size: 20px;color: #000000;line-height: 24px}" &_
".broed {font-family: verdana, helvetica, arial, sans serif;font-size: 11px;color: #000000;line-height: 14px}" &_
".kom {font-family: verdana, helvetica, arial, sans serif;font-size: 10px;color: #000000;line-height: 12px}" &_
"a:active {font-family: verdana, helvetica, arial, sans serif;font-size: 11px;color: #000000;line-height: 14px}" &_
"a:hover {font-family: verdana, helvetica, arial, sans serif;font-size: 11px;color: #000000;line-height: 14px}" &_
"a:link {font-family: verdana, helvetica, arial, sans serif;font-size: 11px;color: #000000;line-height: 14px}" &_
"a:visited {font-family: verdana, helvetica, arial, sans serif;font-size: 11px;color: #000000;line-height: 14px}" &_
"</style></head>" &_
"<body bottomMargin=""0"" leftMargin=""0"" rightMargin=""0"" topMargin=""0"" bgcolor=""#FFFFF7"">" &_
"<table height=""98%"" width=""100%"" cellpadding=""4"" cellspacing=""0"" border=""0""><tr>" &_
"<td valign=""top""><div class=""broed""><br>" & FrmTxtDK & "</div></td>" &_
"<td valign=""bottom"" align=""right"" width=""130""><img src=""http://www.thesevenmilejourney.dk/pic/mail_logo.jpg""></td>" &_
"</tr><tr>" &_
"<td colspan=""2"" height=""20""><hr color=""#000000"">" &_
"<div class=""kom"">(Besvar ikke denne mail, du kan afmelde dig på " &_
"<a href=""http://www.thesevenmilejourney.dk"" target=""_blank"">www.thesevenmilejourney.dk</a>)</div></td>" &_
"</tr></table></body>"
jmail.Body = FrmTxtDK
End If
jmail.Send("Fjernet") !!!!!!! DETTE ER LINIE 380
RS.MoveNext
Loop
End If
