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
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table18">
<tr>
<td>
<!-- overskrift.tabel-->
<table width="100%">
<tr>
<td style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #C0C0C0; ">
<h1 align="left">
<img border="0" src="images/hp/rodpil.png" width="8" height="7" hspace="2" vspace="1">
NYHEDSBREV</td>
</tr>
</table>
<!-- brodtekst.tabel-->
<% if Request.QueryString("tjek") = "send" then %>SENDT<%end if%>
<% if Request.QueryString("tjek") = "ikkesend" then %>IKKE SENDT<%end if%>
<table width="100%">
<tr>
<td>
<form method="post" action="nyhedsbrev.asp">
<p> </p>
<table border="0" bordercolor="#000000" width="100%" id="table9" cellspacing="5" cellpadding="5">
<tr>
<td align="right" colspan="2" width="100%">
</td>
</tr>
<tr>
<td align="right" width="20%">OVERSKRIFT</td>
<td width="76%">
<input name="overskrift" size="68" style="font-weight: 700"></td>
</tr>
<tr>
<td align="right" width="20%">BREV</td>
<td width="76%">
<textarea rows="15" name="brev" cols="71"></textarea></td>
</tr>
<tr>
<td align="center" width="100%" colspan="2">
<input type="submit" value="SEND NYHEDSBREV ››" style="font-weight: 700"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
