ASPmail

De skal adskilles med et komma.

ja men hvordan for man hentet dem alle ud og stil op såen at de bliver adskilt med et komma

Du skal tage en post af gangen om tilføje et komma mellem hver post.

Hvordan henter man så en post af gange, jeg er helt blank, kan du ikke rettet scriptet så det passer, du kan godt få flere point hvis det er det du vil have.

Du skal bruge en while sætning efter din Select statement.

siger mig igenting

Du skal også bruge to variabler.

Den ene variabel kommer til at indeholde alle posterne adskilt med et \";\"
Den anden er i første omgang = \"\"
Altså en variabel kaldet f.eks.:Emailliste
Og en variabel kaldet Semi

while ( !RecordSet.EOF )
Semi er = \"\"

Emailliste = Semi + RecordSet ( 0 )

Semi = \";\"

RecordSet.MoveNext ( )

Til sidst er emailliste fyldt med alle posterne og så sender du bare til den liste.

Prøv:
sendmail.asp:
<!-- #include file=\"../conn.asp\" -->
<%
sql=\"Select * from speakopret.speakkommentar where ident=\'\"&request.querystring(\"id\")&\"\'\"
set RS=Conn.Execute(sql)%>

<% mail=\"&RS(\"&\"email\"&\")&\"%>
<% id=\"&request.querystring(\"id\")&\"%>
<%
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.RemoteHost = \"mail.mit.dk\"
Mailer.FromName = \"mitsite\"
Mailer.FromAddress = \"navn@mit.dk\"

Mailer.Subject = \"Bestilling\"
Mailer.BodyText = \"mail\"
Mailer.ContentType = \"text/html\"
Mailer.CharSet = 2

do while not rs.eof

Mailer.AddRecipient rs(\"navn\"),rs(\"e-mail\")

if not Mailer.SendMail then
  Response.Write \" Mailing Failed... Error is: <br>\"
  Response.Write Mailer.Response
else
  Response.Write \" sent successfully...<p>\"
end if
mailer.ClearAllRecipients

rs.movenext
loop
Set Mailer = nothing
%>

<!-- #include file=\"../conn.asp\" -->
<%
sql=\"Select * from speakopret.speakkommentar where ident=\'\"&request.querystring(\"id\")&\"\'\"
set RS=Conn.Execute(sql)%>
<%do while not RS.EOF%>

<%if not send(\"email\")=Request.session(email) then%>
<%
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.RemoteHost = \"mail.scannet.dk\"
Mailer.FromName = \"codewizards.dk Speakers Corner\"
Mailer.FromAddress = \"noreply@codewizards.dk\"

Mailer.Subject = \"Bestilling\"
Mailer.BodyText = \"Der er en der har svare på Speakers Corner\"
Mailer.ContentType = \"text/html\"
Mailer.CharSet = 2

do while not rs.eof

Mailer.AddRecipient RS(\"navn\"),RS(\"email\")

if not Mailer.SendMail then
Response.Redirect(\"default.asp\")
else
Response.Redirect(\"default.asp\")
end if
mailer.ClearAllRecipients

rs.movenext
loop
Set Mailer = nothing
end if
%>
gir denne fejl:
Microsoft VBScript compilation error \'800a03fb\'

Expected \'Loop\'

/vardedk/speak/sendmail.asp, line 33

Linie 5:
<%do while not RS.EOF%>

Hvad bruger du den til ? det er den der mangler et loop, så hvis den ikke bliver brugt, skal den bare fjernes.

okeee nu har jeg fået smækket følgende kode sammen:
<!-- #include file=\"conn.asp\" -->
<%mail=request.querystring(\"mail\")%>
<%
sql=\"SELECT * FROM speakopret, speakkommentar WHERE speakopret.ident=\'\"&request.querystring(\"id\")&\"\' and speakkommentar.ident=\'\"&request.querystring(\"id\")&\"\'\"
set RS=Conn.Execute(sql)%>
<%do while not RS.eof
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.RemoteHost = \"mail.scannet.dk\"
Mailer.FromName = \"none\"
Mailer.FromAddress = \"noreply@nisser.dk\"
Mailer.AddRecipient RS(\"navn\"),RS(\"email\")
Mailer.Subject = \"Bestilling\"
Mailer.BodyText = \"nope\"
Mailer.ContentType = \"text/html\"
Mailer.CharSet = 2
if not Mailer.SendMail then
  Response.Write \" Mailing Failed... Error is: <br>\"
  Response.Write Mailer.Response
else
  Response.Write \" sent successfully...<p>\"
end if

Set Mailer = nothing
RS.movenext
loop
%>

Hvordan gør man så sådan at hvis der er to email adresser i db\'en der er den samme, så bliver der kun sendt en mail

og hvordan gør sådan at der ikke bliver send ten mail til den adresse der er i variablen mail ?

--
Mic

Hej
Det kunne være at skulle oprette det som nyt spørgsmål, da det er din sql forespørgelse der skal tilrettes, ikke asp-mailen.
--
Mvh

jamen så gør vi da det