home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / revelationindia / postmail1.asp < prev    next >
Text File  |  2004-09-27  |  731b  |  38 lines
  1. <!--#include file = "increvelation.asp"-->
  2. <%
  3.     dim BlnFlag
  4.     dim strFrom
  5.     dim strTo
  6.     dim strSub
  7.     dim strMsg
  8.     dim Mailer
  9.         
  10.         
  11.     strFrom = "info@revelationindia.com"
  12.     strTo = Request.Form("to")
  13.     strSub = Request.Form("subject")
  14.     strMsg = Request.Form("message")
  15.     
  16.     Set Mailer = server.CreateObject("CDONTS.NewMail") 
  17.     
  18.     Mailer.From = strFrom
  19.     Mailer.To = strTo
  20.     Mailer.Subject = strSub
  21.     Mailer.Body = strMsg
  22.     'Mailer.AttachFile "d:\sample.txt" 
  23.     Mailer.Send 
  24.      
  25.     
  26.     BlnFlag = SendMail(strFrom,strTo,strSub,strMsg)
  27.     
  28.     'Response.Write BlnFlag
  29.     'Response.End
  30.     
  31.     
  32.     if BlnFlag = True then
  33.         Response.Redirect "mail1.asp?postreply=success"
  34.     else
  35.         Response.Redirect "mail1.asp?postreply=fail"
  36.     end if
  37.  
  38. %>