home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / NutCracker2083939192007.psc / AnonEmail / mailall.asp < prev    next >
Text File  |  2000-01-03  |  1KB  |  50 lines
  1. <%@ Language=VBScript %>
  2. <%
  3.     Dim objMail, strBody, strSalutation, strSubject, strSend
  4.     
  5.     Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
  6.     
  7.     'strSalutation = "Dear Administrator"
  8.     strSubject = Request.Form("txtSubject")
  9.     strBody = Request.Form("txtMessage")
  10.     strTo= Request.form("txtTo")
  11.     objMail.To = strTo 
  12.     objMail.From = Request.Form("txtEmail")
  13.     objMail.Subject = strSubject
  14.     objMail.Body = strBody
  15.     
  16.         
  17.     objMail.Send
  18.     set objMail = Nothing
  19.  
  20.  
  21. %>
  22.  
  23. <HTML>
  24. <HEAD>
  25. <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
  26. </HEAD>
  27. <BODY  background="ame.jpg">
  28. Your mail has been sent.<br>
  29. Name:  <% = Request.Form("txtName") %> <br>
  30. Subject:  <% = Request.Form("txtSubject") %> <br>
  31. From:  <% = Request.Form("txtEmail") %> <br>
  32. To:  <% = Request.Form("txtTo") %> <br>
  33. Message:  <% =Request.Form("txtMessage") %><br>
  34.  
  35. <P> </P>
  36. <hr>
  37.  
  38. <P>
  39. Please do not remove this line or the following:<br>
  40. Code 
  41. Revision by Michael Heath. Original concept and code by Tim Butler </P>
  42. <P>
  43.             
  44. <hr>
  45.  
  46. <P></P>
  47. <P><!--#include file="Readme.txt"--></P>
  48. </BODY>
  49. </HTML>
  50.