Mod til nyhedsbrev system
Hejsa.Jeg har et "lille" problem.
Jeg har et nyhedsbrev system som sender til ALLE i databasen..
Men jeg vil gerne have gjort det sådan at:
Når jeg afkrydser et felt der hedder "kun til medlemmer" så sender den kun til dem der har "medlem" i [Type]
Min access database ser sådan her ud.
db.mdb
nyhedsmail
[id][navn][email][type]
i type er der både "bruger" og "medlem".. jeg skal ha lavet sådan at systemet kun sender til "medlem" når man afvinkler et felt.
\\\\ Koden til system ////
<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<%
if request.form("mode") = "send" then
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"\db.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * from nyhedsmail"
set send = conn.execute( SQL )
do while not send.eof
on error resume next
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
' This is my local SMTP server
Mailer.RemoteHost = "smtp.nordit.dk"
' mail config settings
Mailer.FromName = "Foderstoffen.dk"
Mailer.FromAddress= "lars@media4.dk"
Mailer.Subject = request.form("header")
Mailer.AddRecipient send("email")
Mailer.BodText = request.form("tekst")
' Send it...
Mailer.SendMail
set Mailer = nothing
if Mailer.SendMail then
response.write "E-mail er sendt til : "& send("email") &"<BR>"
else
Response.Write "Der skete en fejl: " & Mailer.Response
end if
send.movenext
loop
conn.close
else %>
<CENTER>
<TABLE BORDER="0">
<form action="mailadmin.asp" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
<TR>
<TD ALIGN="LEFT">
Overskrift:
</TD>
<TD ALIGN="LEFT">
<INPUT TYPE="TEXT" NAME="header" SIZE="50">
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT" VALIGN="TOP">
Tekst:
</TD>
<TD ALIGN="LEFT">
<TEXTAREA COLS="45" ROWS="15" NAME="tekst"></TEXTAREA>
</TD>
</TR>
<TR>
<TD ALIGN="LEFT">
</TD>
<TD ALIGN="RIGHT">
<input type="submit" value="SEND">
</TD>
</TR>
<TR>
<TD><A HREF="slet.asp">Slet tilmeldte</a></TD>
</TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>
\\\\\\ slut //////
I må gerne selv tilføje krydsfeltet som ikke skal være "checekd" som standard..
