Home | Advertising Info69 USERS CURRENTLY ONLINE   
   Site Search Contact Us Wednesday, October 22, 2014  
 
 


 
ASPProtect
User Management Application with web based screens that allow you to manage users.
www.ASPProtect.com
 
ASPBanner
Banner Rotation system. Advertisers can monitor online statistical reports via their web browsers.
www.ASPBanner.com
 
ASP Photo Gallery
Upload an unlimited amount of albums. Set up categories.Image resizing thumbnail creation.
www.ASPPhotoGallery.com
 
ASPClassifieds
Classifieds system. Set up categories. Users can register themselves. Supports picture uploads.
www.ASPClassifieds.com



DISCUSSION ARCHIVES
 
Try a free httpZip trial now and compress for less!


We didn't realize
the site was so popular.

Other Stuff
 

 
 
Active Server Pages asp search engine active server page asp application components tutorial CJWSoft ASPProtect ASPBanner ASPClassifieds



(Advanced)  (Components)  (Database)  (General)  (Vbscript)




ASPProtect

 
Subject: Send Multiple Emails To Multiple Users
From: Ryan Chandler
Date: 9/13/2000 2:48:45 PM
IP: 209.104.69.161



 

I tried to write a code that can send multiple emails to multiple users. I want that each user will recieve different email message. Could anyone help me with this. Thanks a lot in advance.
Ryan

This is my code:<HTML>
<!-- DATE DE CREATION: 31/08/00 -->
<HEAD>
<TITLE></TITLE>
<META NAME="Description" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Author" >
<META NAME="Generator" CONTENT="WebExpert">
</HEAD>
<BODY>

<%
Dim oConn, request, strsql
%>

<%
strSQL = "SELECT * From tblMemo Where tblmemo.datesend Like %" & date & "% Order By id asc"
strSQL = "SELECT * From tblMemo Order By id asc"

Set oConn = CreateObject("ADODB.Connection")
oConn.Open "memo"

Set rq = oConn.Execute(strSQL)
%>


<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "smtp.mlink.net:25"
%>

<%

JMail.Sender = "PLanete Quebec"



Do While Not rq.EOF


JMail.Subject = rq("title")
JMail.AddRecipient rq("nameto")

JMail.AddRecipient rq("emailto")

JMail.Body = rq("message")

JMail.Execute

%>

<%
rq.movenext

loop

if JMail.Execute then
Response.Write("Les messages sont envoyés")
else if rq("datesend") <> date then
Response.Write("Ily a pas de message à envoyer")
en


 

   Active Server Pages Rule The World
Contact Us  
All artwork, design & content contained in this site are Copyright © 1998 - 2014 PowerASP.com and Christopher J. Williams
Banner ads ,other site logos, etc are copyright of their respective companies.
STATS Unless otherwise noted - All Rights Reserved.

Active Server Pages ASP control controls class classes module script Scripts applet CJWSoft ASPProtect ASPBanner ASPClassifieds www.aspclassifieds.com, www.powerasp.com,www.cjwsoft.com,www.aspphotogallery.com,www.codewanker.com,www.aspprotect.com,www.aspbanner.com