JohannIcon
Programmer
Dear All,
I am building a mailing list component, and I am giving the user the option to receive either HTML or Plain mail. With HTML mail, I have no problems, the problems arise with the Plain mail. My problem is that it is only sending the last article I add instead of all the articles in the database. This is my code:-
'if Plain Text
sqlSelectPlain="select * from Articles where issueID=" & issueID & " order by articleid"
set rsEmailsPlain=cnnMail.execute(sqlSelectPlain)
do while not rsEmailsPlain.eof
Title = rsEmailsPlain("articletitle"
Text = KillBr(rsEmailsPlain("articletext")
Line = "-------------------------------------------------------------------------------------------------------------------------------"
PlainText = Title & "<p>" & Text & "<p>" & Line
rsEmailsPlain.movenext
PlainText = KillBr(PlainText)
PlainText = KillP(PlainText)
loop
set rsEmailsPlain=nothing
How can I make it to retreive all the titles and articles which are relevant to this issue and send them?
Thanks for your help
I am building a mailing list component, and I am giving the user the option to receive either HTML or Plain mail. With HTML mail, I have no problems, the problems arise with the Plain mail. My problem is that it is only sending the last article I add instead of all the articles in the database. This is my code:-
'if Plain Text
sqlSelectPlain="select * from Articles where issueID=" & issueID & " order by articleid"
set rsEmailsPlain=cnnMail.execute(sqlSelectPlain)
do while not rsEmailsPlain.eof
Title = rsEmailsPlain("articletitle"
Text = KillBr(rsEmailsPlain("articletext")
Line = "-------------------------------------------------------------------------------------------------------------------------------"
PlainText = Title & "<p>" & Text & "<p>" & Line
rsEmailsPlain.movenext
PlainText = KillBr(PlainText)
PlainText = KillP(PlainText)
loop
set rsEmailsPlain=nothing
How can I make it to retreive all the titles and articles which are relevant to this issue and send them?
Thanks for your help