Nu är jag här med en annan del av ett script, likväl som problemet var med det förra att det inte gick och maila från min sida så är detta problem ett likadant, men med detta ska man kunna maila alla medlemmar samtidigt men nu går det ju inte och skulle behöva hjälp med detta också.

Den börjar med att hämta in 2 st. include-filer varav den ena är till databaserna som är rätt och den andra include-filen är denna:

<code>
<!--#include virtual="/script/_send.asp"-->
den koden är följande:

sub SendCDOMail(sTo, sSubject, sBody, sFrom)
Set NewMailObj = CreateObject("CDONTS.NewMail")
NewMailObj.From = sFrom
NewMailObj.To = sTo
NewMailObj.Subject = sSubject
NewMailObj.BOdy = sBOdy
NewMailObj.Send
Set NewMailObj = Nothing
end sub

och denna kod är det inget fel på men sen kommer mailkoden och den är:

<%
if request("cmdSend") <> "" then
sSubject = request("txtSubject")
sFrom = request("txtFrom")
sGetBody = request("txtBody")
if request("chkNotification") <> "" then sFilter = " WHERE subNotifications = True"
if request("chkNewsletter") <> "" then
if len(sFilter) <> 0 then
sFilter = sFilter & " OR subNewsletter = True"
else
sFilter = " WHERE subNewsletter = True"
end if
end if

if request("chkAllUsers") <> "" then sFilter = ""

OpenDB sConnUsers

sSQL = "SELECT * FROM Users" & sFilter
rs.Open sSQL,,,adCmdTable

response.write "<br>Beginning MailSender Sequence...<br><br>"

do while not rs.eof or rs.bof
sFirstName = rs("FirstName")
sTo = rs("eMail")
sBody = replace(sGetBody, "*FirstName*", sFirstName)

SendCDOMail sTo, sSubject, sBody, sFrom

response.write "Mail har skickats till:: " & rs("UserName") & ":: " & sTo & "<br>"
rs.movenext
loop

response.write "<br>Alla mail har skickats! Klicka här för att återgå till MailSender."
%><br>
<%
response.end
end if
%>

<br>

<p class="smallaction">MailSender</p>

<br><br>
<strong>Ordet "*Förnamn*" kommer att
bytas till medlemmens användarnamn i emailet.</strong>

<form action="sendmail.asp" method="post">
<table border=0>
<tr>
<td class="smallerheader">&Auml;mne</td>
<td><input type="text" name="txtSubject" class="tbflat" value="<%=sSubject%>"></td>
</tr>
<tr>
<td class="smallerheader">Från</td>
<td><input type="text" name="txtFrom" class="tbflat" value="<%=sFrom%>"></td>
</tr>
<tr>
<td class="smallerheader">Body</td>
<td><textarea cols=40 rows=5 name="txtBody" class="tbflat"><%=sBody%></textarea></td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="cmdSend" value="Skicka" class="cmdflat"></td>
</tr>
<tr>
<td></td>
<td><br><br><input type="checkbox" name="chkNotification" value="1"<%=bNotification%>>
Uppdaterade nyheter</td>
</tr>
<tr>
<td></td>
<td><input type="checkbox" name="chkNewsletter" value="1"<%=bNewsletter%>> Nyhetsbrev</td>
</tr>
<tr>
<td></td>
<td><input type="checkbox" name="chkAllUsers" value="1"<%=bAllUsers%>> Skicka till alla medlemmar</td>
</tr>
</table>
</form>
</code>

Men detta fungerar inte alls, någon som kan hjälpa mig?

/Micke