nyhedsbrev, script melder fejl?
<%Set conn = Server.CreateObject("ADODB.connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From Bruger"
rs.open SQL, conn, 1, 3
if rs.eof then
response.redirect ("?tjek=ikkesend")
Else
do until rs.eof
Set JMail = Server.CreateObject("JMail.SMTPMail")
Response.Expires = 0
' Følgende linier henter dataen fra form-mailen.
brugeremail = rs("brugeremail")
brugernavn = rs("brugernavn")
overskrift = Request("overskrift")
brev = Request("brev")
dato = date
'Konfiguration: Her skal du angive din JMAIL server, afsenderen (Her skal normalt stå din e-mail),
'Titlen på e-mailen samt modtagerne (Hvis du vil have flere modtagere adskiller du blot modtagernes e-mail addresser med et komma.)
JMail.ServerAddress = "mail.ditdomæne.dk"
JMail.SenderName = "SENDER"
JMail.Sender = "mail@ditdomæne.dk"
JMail.ReplyTo = "mail@ditdomæne.dk"
JMail.subject = "NYHEDSBREV"
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.AddRecipient "" & brugeremail & ""
JMail.AddRecipientCC ""
JMail.AddRecipientBCC ""
JMail.ContentType = "text/html"
'Her bliver e-mailen til et "ENTER" bliver angivet med: "& VbCrLF"
JMail.Body = JMail.Body & "<html>"
JMail.Body = JMail.Body & "<body bgcolor='#C0C0C0' background='http://marqs.dk/markus/images/hp/bg.png'>"
JMail.Body = JMail.Body & "<table border='0' width='100%' id='table1' height='100%'>"
JMail.Body = JMail.Body & "<tr>"
JMail.Body = JMail.Body & "<td align='center' valign='top'>"
JMail.Body = JMail.Body & "<table border='1' width='500' cellspacing='10' cellpadding='0' bgcolor='#f3f3f3' bordercolor='#C0C0C0' id='table2'>"
JMail.Body = JMail.Body & "<tr>"
JMail.Body = JMail.Body & "<td bgcolor='#FFFFFF'>"
JMail.Body = JMail.Body & "<table border='0' width='100%' cellspacing='0' cellpadding='0' id='table3'>"
JMail.Body = JMail.Body & "<tr>"
JMail.Body = JMail.Body & "<td><img border='0' src='images/hp/banner.png' width='555' height='68'></td>"
JMail.Body = JMail.Body & "</tr>"
JMail.Body = JMail.Body & "<tr>"
JMail.Body = JMail.Body & "<td><img border='0' src='images/hp/topmenu.png' width='555' height='22'></td>"
JMail.Body = JMail.Body & "</tr>"
JMail.Body = JMail.Body & "<tr>"
JMail.Body = JMail.Body & "<td><img border='0' src='images/hp/bil.png' width='555' height='172'></td>"
JMail.Body = JMail.Body & "</tr>"
JMail.Body = JMail.Body & "<tr>"
JMail.Body = JMail.Body & "<td><img border='0' src='images/hp/bil2.png' width='387' height='36'></td>"
JMail.Body = JMail.Body & "</tr>"
JMail.Body = JMail.Body & "<tr>"
JMail.Body = JMail.Body & "<td>"
JMail.Body = JMail.Body & "<table border='0' width='100%' cellspacing='10' cellpadding='0' id='table4'>"
JMail.Body = JMail.Body & "<tr>"
JMail.Body = JMail.Body & "<td>"
JMail.Body = JMail.Body & "<table border='0' width='100%' cellspacing='0' cellpadding='0' id='table5'>"
JMail.Body = JMail.Body & "<tr>"
JMail.Body = JMail.Body & "<td><p><font face='Tahoma'><b>"
JMail.Body = JMail.Body & "" & overskrift & VbCrLF
JMail.Body = JMail.Body & "</b></font></p><br></td>"
JMail.Body = JMail.Body & "</tr>"
JMail.Body = JMail.Body & "<tr>"
JMail.Body = JMail.Body & "<td><p><font face='Tahoma' size='2'>"
JMail.Body = JMail.Body & "" & (Replace(brev,vbCrLf,"<br>")) & "<br>" & VbCrLF
JMail.Body = JMail.Body & "<br>" & dato & "." & VbCrLF
JMail.Body = JMail.Body & "</font></p></td>"
JMail.Body = JMail.Body & "</tr>"
JMail.Body = JMail.Body & "</table>"
JMail.Body = JMail.Body & "</td>"
JMail.Body = JMail.Body & "</tr>"
JMail.Body = JMail.Body & "</table>"
JMail.Body = JMail.Body & "<td>"
JMail.Body = JMail.Body & "</tr>"
JMail.Body = JMail.Body & "<tr>"
JMail.Body = JMail.Body & "<td><img border='0' src='images/hp/bund2.png' width='555' height='47'></td>"
JMail.Body = JMail.Body & "</tr>"
JMail.Body = JMail.Body & "<tr>"
JMail.Body = JMail.Body & "<td><img border='0' src='images/hp/bund3.png' width='555' height='10'></td>"
JMail.Body = JMail.Body & "</tr>"
JMail.Body = JMail.Body & "</table>"
JMail.Body = JMail.Body & "</td>"
JMail.Body = JMail.Body & "</tr>"
JMail.Body = JMail.Body & "</table>"
JMail.Body = JMail.Body & "</td>"
JMail.Body = JMail.Body & "</tr>"
JMail.Body = JMail.Body & "</table>"
JMail.Body = JMail.Body & "</body>"
JMail.Body = JMail.Body & "</html>"
JMail.Body = JMail.Body & "" & strCv
'Her bliver form-mailens prioritet bestemt
' 1 - højeste (Haster / Vigtigt)
' 3 - normal
' 5 - lavest
JMail.Priority = 1
JMail.Execute
rs.movenext
loop
rs.close
set rs = nothing
response.redirect ("?tjek=send")
end if
end if
%>
