Home | Advertising Info52 USERS CURRENTLY ONLINE   
   Site Search Contact Us Monday, November 30, 2015  

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

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 programs help tutorial tutorials routine routines jobs listserve mailinglist bulletin board bulletin boards programming snippet snippets CJWSoft ASPProtect ASPBanner ASPClassifieds

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


Subject: A problem with the code
From: Yiftach
Date: 4/18/1999 7:45:56 AM



I'm trying to build a mailing list so I built a database and everything
else. Some how there is a problem with the loop that goes through
everyone registered. Each time the recordset goes one record further and
each time it sends it to somewhere else. The following page is for the
administrator. Why isn't it working?

If Request.form("m") = "" Then
<form action="send.asp" method="Post">
<textarea cols=30 rows=15 name=m></textarea><br>
<input type=submit value=Send><br>
<% Else
Set A = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Dim myMail
Set myMail = Server.CreateObject("CDONTS.NewMail")
Newln = Chr(10) & Chr(13)
Dim m
m = Request.form("m")
Dim I
I = 1
A.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Set RS = A.Execute("SELECT * from ml WHERE uid = 1")
If Not RS.EOF Then
Do While Not RS.EOF
Set RS = A.Execute("SELECT * from ml WHERE uid = " & I & "")
myMail.from = "yiftach@callmanage.co.il"
myMail.To = RS("email")
myMail.Subject = "Mailing List"
myMail.Body = m & Newln & "-------------------------------"
I = I + 1
End If
Set myMail = Nothing
End If

Thank you in advance.

Follow Up - Re: A problem with the code - Chad 4/19/1999 1:30:33 PM


   Active Server Pages Rule The World
Contact Us  
All artwork, design & content contained in this site are Copyright 1998 - 2015 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.

vbscript active server pages ASP vbscript SQL database informix oracle SQL Server Perl CGI Delphi PHP source code code sample samples program 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