home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 September / PCWorld_2000-09_cd.bin / Software / Topware / aspedit / _SETUP.1 / sendmail.asp < prev    next >
Text File  |  1999-09-20  |  444b  |  18 lines
  1. <%
  2.  
  3.  rem sendmail.asp belongs to the email wizard shipped with asp-edit!
  4.  rem do not alter the code
  5.  
  6.  Dim objCDO
  7.  Set objCDO = Server.CreateObject("CDONTS.NewMail")
  8. %>
  9. <%
  10.  objCDO.To         = session("toname")
  11.  objCDO.Importance = 2
  12.  objCDO.From       = request.querystring("address")
  13.  objCDO.Subject    = request.querystring("subject")
  14.  objCDO.Body       = request.querystring("body")
  15.  objCDO.Send
  16.  Set objCDO = Nothing
  17. %>  
  18.