UNKNOWN '************************************** ' for :Anonymous Mailer '************************************** Ido Diamant © 2000 '************************************** ' Name: Anonymous Mailer ' Description:With this code, you can se ' nd mail thrugh the web with ASP, with th ' e CDONTS object. it is very simple script, I wrote it in 10 minutes and I am just a beginner (one month). ' By: Ido Diamant ' ' ' Inputs:None ' ' Returns:None ' 'Assumes:You just need to put this file ' in directory which you can run scripts f ' rom it, and you should install the SMTP ' add-on in the Option Pack 4. ' 'Side Effects:None 'This code is copyrighted and has limite ' d warranties. 'Please see http://www.Planet-Source-Cod ' e.com/xq/ASP/txtCodeId.6158/lngWId.4/qx/ ' vb/scripts/ShowCode.htm 'for details. '************************************** <% if request.form("flag")=""then %> <html> <h1>Welcome to Anonymous Mailer by Ido Diamant</h1> <h4>** Please enter all the required fields or it won't be send...</h4> <form action="/" method="post"> <table border="0" cellpadding="1" cellspacing="1" style="HEIGHT: 184px; WIDTH: 457px" width="75%"> <tr> <td>From: </td> <td><input name="From" size="30" style="HEIGHT: 22px; WIDTH: 321px"></td></tr> <tr> <td>To: </td> <td><input name="To" size="30" style="HEIGHT: 22px; WIDTH: 321px"></td></tr> <tr> <td>Subject: </td> <td><input name="Subject" size="50" style="HEIGHT: 22px; WIDTH: 321px"></td></tr> <tr> <td>Body of Message: <br></td> <td><textarea cols="30" name="Body" rows="5" style="HEIGHT: 86px; WIDTH: 322px" wrap="virtual">Message Body</textarea></td></tr></table>  <br>  <br> <br><br> <input type="submit" value="Send Mail"> <input type="hidden" name="flag" value="1"> </html> <% Else Dim anonFrom,anonTo,anonSubj,anonBody anonFrom = request.form("From") anonTo = request.form("To") anonSubj = request.form("Subject") anonBody = request.form("Body") Set objMail = CreateObject("CDONTS.NewMail") objMail.From=anonFrom objMail.To=anonTo objMail.Subject=anonSubj objMail.Body=anonBody intReturn=objMail.Send() %> <html> <h1>The message sent successfully</h1> <input type="button" value="Back" onclick="history.back()"> </html> <% End if %>