home *** CD-ROM | disk | FTP | other *** search
- <%
-
- rem sendmail.asp belongs to the email wizard shipped with asp-edit!
- rem do not alter the code
-
- Dim objCDO
- Set objCDO = Server.CreateObject("CDONTS.NewMail")
- %>
- <%
- objCDO.To = session("toname")
- objCDO.Importance = 2
- objCDO.From = request.querystring("address")
- objCDO.Subject = request.querystring("subject")
- objCDO.Body = request.querystring("body")
- objCDO.Send
- Set objCDO = Nothing
- %>
-