Home | Advertising Info91 USERS CURRENTLY ONLINE   
   Site Search Contact Us Wednesday, July 30, 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 control controls class classes module script Scripts applet CJWSoft ASPProtect ASPBanner ASPClassifieds



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




ASPProtect

 
Subject: Re: A problem with the code
From: Chad
Date: 4/19/1999 1:30:33 PM
IP: 208.229.240.131



 

Just taking a wuick glance at the code -- here is what I would change. I think that you a going about it a litte strange .... too many DB hits. Just do it once and Loop.

<%
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>
</form>
<% 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")
A.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.Mappath("./Oded.mdb")
Set RS = A.Execute("SELECT * from ml)
If Not RS.EOF Then
RS.Movefirst
Do While Not RS.EOF
myMail.from = "yiftach@callmanage.co.il"
myMail.To = RS("email")
myMail.Subject = "Mailing List"
myMail.Body = m & Newln & "-------------------------------"
myMail.Send
RS.MoveNext
Loop
End If
Set myMail = Nothing
RS.Close
Set RS = Nothing
End If
%>

Previous Message


 

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