ingen post, når jeg sender fra mit nyhedsbrev
Jeg har dette nyhedsbrev script write_send.asp men det funger ikke helt, når jeg har skrevet min tekst og klikker send, ser det ud som den sender men jeg modtager ingen mails, fra nyhedsbrevet. Hvem kan hjælpe mig, da jeg ikke er så stærk i ASPkoden:
<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<%
if request.form("mode") = "send" then
'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
'1 = JMAIL
'2 = CDONTS
mailertype = 1
'**********************************************
if request.form("testmail") = "" then
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"../wml.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * from mailingliste"
set send = conn.execute( SQL )
do while not send.eof
'on error resume next
if mailertype = 1 then
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/plain; charset=iso-8859-1"
msg.MimeVersion = "1.0"
msg.Logging = true
msg.silent = true
msg.From = "remo@pc.dk"
msg.FromName = "remo"
msg.AddRecipient modtager
msg.Subject = emne
msg.Body = besked
if not msg.Send("smtp.tele.dk") then
else
end if
elseif mailertype = 2 then
' importance = 0 ' lav
importance = 1 ' normal
' importance = 2 ' høj
Set mailObj = CreateObject("CDONTS.NewMail")
' send email med parametre : fra email, til email, header, besked, importance
mailObj.Send "afsenders emailadresse", send("email"), request.form("header"), request.form("tekst"), importance
' slet reference til CDONTS object
Set mailObj = Nothing
end if
response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send("email") &"</STRONG></FONT><BR>"
send.movenext
loop
conn.close
response.redirect("/wml/default.asp?emne=admin")
else
'Send Test mail
'on error resume next
if mailertype = 1 then
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/plain; charset=iso-8859-1"
msg.MimeVersion = "1.0"
msg.Logging = true
msg.silent = true
msg.From = "remo@pc.dk"
msg.FromName = "Remo"
msg.AddRecipient modtager
msg.Subject = emne
msg.Body = besked
if not msg.Send("smtp.tele.dk") then
else
end if
elseif mailertype = 2 then
' importance = 0 ' lav
importance = 1 ' normal
' importance = 2 ' høj
Set mailObj = CreateObject("CDONTS.NewMail")
' send email med parametre : fra email, til email, header, besked, importance
mailObj.Send "afsenders emailadresse", "rmo@pc.dk", request.form("header"), request.form("tekst"), importance
' slet reference til CDONTS object
Set mailObj = Nothing
end if
response.write("Test mail sendt")
End if
End if
if request.form("mode") <> "send" or request.form("testmail") <> "" then
%>
<CENTER>
<TABLE BORDER="0">
<form action="/wml/default.asp?emne=admin&emne2=nybrev" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
<TR>
<TD ALIGN="LEFT" class="nyhed">Overskrift: </TD>
<TD ALIGN="LEFT">
<INPUT TYPE="TEXT" NAME="header" SIZE="50" value="<%=request.Form("header")%>">
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT" VALIGN="TOP" class="nyhed">Tekst: </TD>
<TD ALIGN="LEFT">
<TEXTAREA COLS="45" ROWS="15" NAME="tekst"><%=Request.Form("tekst")%></TEXTAREA>
</TD>
</TR>
<TR>
<TD ALIGN="LEFT">
</TD>
<TD ALIGN="RIGHT"> <input type="submit" value="-- SEND --"><input type="submit" value="TEST MAIL" name="testmail"> </TD>
</TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>
