Photo Gallery Member List Search Calendars FAQ Ticket List Log Out


Serious problem......loop

  		Logged in as: Guest
arrSession:exec spGetSession 2,2,548
Active Users: There are 0 members and 0 guests.
Users viewing this topic: none
 

 

  
 
  Printable Version
All Forums >> [Scripting] >> WSH & Client Side VBScript >> Serious problem......loop
  Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks! 		Page: [1]
Login
Message << Older Topic   Newer Topic >>
Serious problem......loop - 1/7/2002 9:37:36 AM   
  eferey

 

Posts: 2
Score: 0
Joined: 1/7/2002
From: Estonia
Status: offline 		Ok I tried to make a mass mailer :P but everytime it sends out like 500mails even when i specify that it would send only 2 mails:

sendmail.htm
<html>
<head>
<title>::.Saada mail.::</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>
<!--
INPUT
{
BORDER-RIGHT: black 1px outset;
BORDER-TOP: black 1px outset;
BORDER-LEFT: black 1px outset;
WIDTH: 160pt;
BORDER-BOTTOM: black 1px outset;
TEXT-ALIGN: center
}
SELECT
{
BORDER-RIGHT: black 1px outset;
BORDER-TOP: black 1px outset;
BORDER-LEFT: black 1px outset;
WIDTH: 160pt;
BORDER-BOTTOM: black 1px outset;
TEXT-ALIGN: center
}
TEXTAREA
{
BORDER-RIGHT: black 1px outset;
BORDER-TOP: black 1px outset;
BORDER-LEFT: black 1px outset;
WIDTH: 160pt;
BORDER-BOTTOM: black 1px outset;
TEXT-ALIGN: center
}

-->
</style>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<p>saada e-mail</p>
<form name="mail" method="post" action="sendmail.asp">

<p> </p>
<table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>kellelt</td>
<td>
<input type="text" name="from">
</td>
</tr>
<tr>
<td>kellele</td>
<td>
<input type="text" name="to">
</td>
</tr>
<tr>
<td>cc</td>
<td>
<input type="text" name="textfield">
</td>
</tr>
<tr>
<td>bcc</td>
<td>
<input type="text" name="bcc">
</td>
</tr>
<tr>
<td>teema</td>
<td>
<input type="text" name="subject">
</td>
</tr>
<tr>
<td>kirja formaat</td>
<td>
<select name="bodyformat" size="1">
<option value="0">HTML</option>
<option value="1" selected>Text</option>
</select>
</td>
</tr>
<tr>
<td>mime formaat</td>
<td>
<select name="mimeformat" size="1">
<option value="0" selected>MIME</option>
<option value="1">Text</option>
</select>
</td>
</tr>
<tr>
<td>kirja sisu</td>
<td>
<textarea name="body" rows="4"></textarea>
</td>
</tr>
<tr>
<td>kirja tähtsus</td>
<td>
<select name="importance">
<option value="0">Low</option>
<option value="1" selected>Normal</option>
<option value="2">High</option>
</select>
</td>
</tr>
<tr>
<td>mitu kirja(spam option)</td>
<td>
<input type="text" name="spam" maxlength="2">
</td>
</tr>
<tr>
<td> </td>
<td>
<input type="submit" name="Submit" value="saada">
</td>
</tr>
</table>
</form>
<p>  </p>
</body>
</html>
 
 
Post #: 1
 
Re: Serious problem......loop - 1/7/2002 9:38:41 AM   
  eferey

 

Posts: 2
Score: 0
Joined: 1/7/2002
From: Estonia
Status: offline 		sendmail.asp
<%
'spam code
spam = request.form("spam")
sp4m = 0
do until sp4m = spam
'/spam code
dim objCDOMail
Set objCDOMail = Server.CreateObject ("CDONTS.NewMail")
objCDOMail.From = request.form ("from")
objCDOMail.To = request.form ("to")
objCDOMail.Cc = request.form ("cc") 'vahedesse ";"
objCDOMail.Bcc = request.form ("bcc") 'vahedesse ";"
objCDOMail.Subject = request.form ("subject")
objCDOMail.BodyFormat = request.form ("bodyformat") ' 0 = HTML ; 1 = Text
objCDOMail.MailFormat = request.form ("mimeformat") ' 0 = MIME ; 1 = Text
objCDOMail.Body = request.form ("body")
objCDOMail.Importance = request.form ("importance") ' 0 = Low ; 1 = Normal ; 3 = High
'objCDOMail.Send
objCDOMail.send
loop
'---------------/spam test----------------------
Set objCDOMail = Nothing
%>
Sinu kiri on saadetud -
<br>Kirja sisu : <br>
<b>saatja</b> - <%= request.form("from")%><br>
<b>kellele</b> - <%= request.form("to")%><br>
<b>cc</b> - <%= request.form("cc")%><br>
<b>bcc</b> - <%= request.form("bcc")%><br>
<b>teema</b> - <%= request.form("subject")%>
<b>formaat</b> - <%if request.form("bodyformat") = 0 then response.write("HTML") else response.write("Tekst") end if%><br>
<b>mimeformaat</b> - <%if request.form("mimeformat") = 0 then response.write("MIME") else response.write("Tekst") end if%><br>
<b>kirja sisu</b> - <%= request.form("body")%><br>
<b>tahtsus</b> - <%if request.form("importance") = 0 then response.write("Low - Madal") else if request.form("importance") = 1 then response.write("Normal - Normaalne") else response.write("High - Korge") end if%><br>
kirju - <%=request.form("spam")%><br><br>

Kliki <a href="sendmail.htm">siia</a>, et saata veel uks kiri


---------------------
it's in estonian because i'm from estonia

(in reply to eferey)
 
 
Post #: 2
 
 
 
 

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.
All Forums >> [Scripting] >> WSH & Client Side VBScript >> Serious problem......loop Page: [1]
Jump to:





New Messages No New Messages
Hot Topic w/ New Messages Hot Topic w/o New Messages
Locked w/ New Messages Locked w/o New Messages
 Post New Thread
 Reply to Message
 Post New Poll
 Submit Vote
 Delete My Own Post
 Delete My Own Thread
 Rate Posts




Forum Software © ASPPlayground.NET Advanced Edition 2.5.5 ANSI