home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 July / Chip_2000-07_cd.bin / internet / CSSM / mail.asp < prev    next >
Text File  |  2000-05-29  |  566b  |  25 lines
  1. <html>
  2. <head>
  3. </head>
  4. <body>
  5. <%
  6.     Dim CR
  7.     Dim MyBody
  8.     Dim MyCDONTSMail
  9.     CR = Chr(10) & Chr(13)
  10. %>
  11. Posilam Mail
  12. <%
  13.     Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
  14.     MyCDONTSMail.From= "hrachovm@vscht.cz"
  15.     MyCDONTSMail.To= "hanusm@vscht.cz"
  16.     MyCDONTSMail.Subject="This is a Test"
  17.     MyBody = "Thank you for ordering that stuff" & CR
  18.     MyBody = MyBody & "We appretiate your business" & CR
  19.     MyBody = MyBody & "Your stuff will arrive within 7 business days"
  20.     MyCDONTSMail.Body= MyBody
  21.     MyCDONTSMail.Send
  22.     set MyCDONTSMail=nothing
  23. %> 
  24. </body>
  25. </html>