home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2001 March
/
PCWorld_2001-03_cd.bin
/
Software
/
Topware
/
aspedit
/
_SETUP.1
/
sendmail.asp
< prev
next >
Wrap
Text File
|
1999-09-20
|
444b
|
18 lines
<%
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
%>