home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 40 / IOPROG_40.ISO / SOFT / asp / SEARCH.ZIP / addmail.asp < prev    next >
Encoding:
Text File  |  2000-02-23  |  1.4 KB  |  46 lines
  1. <%
  2. response.buffer="true"
  3. %>
  4. <!---#INCLUDE FILE="data/config/config.asp"--->
  5.  
  6. <%
  7.      ' ASPMail(tm) from www.serverobjects.com
  8.      ' is not part of ASP per se, 
  9.      ' but a third party utility from serverobjects.com
  10.      Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
  11.  
  12.      Mailer.RemoteHost = mailserver
  13.      Mailer.FromName = mailfromname
  14.      Mailer.FromAddress = mailfromaddress
  15.      Mailer.AddRecipient mailrecipientname, mailrecipientaddress
  16.      'Mailer.AddBCC mailbccname, mailbccaddress
  17.      Mailer.Subject = mailsubject
  18.      Mailer.BodyText = mailbodytext1
  19.      Mailer.BodyText = mailbodytext2
  20.      Mailer.BodyText = mailbodytext3
  21.      Mailer.BodyText = mailbodytext4
  22.      Mailer.BodyText = mailbodytext5
  23.      Mailer.BodyText = mailbodytext6
  24.      Mailer.BodyText = mailbodytext7
  25.      Mailer.BodyText = mailbodytext8
  26.      Mailer.BodyText = mailbodytext9
  27.      Mailer.BodyText = mailbodytext10
  28.      Mailer.BodyText = mailbodytext11
  29.      Mailer.BodyText = mailbodytext12
  30.      Mailer.BodyText = mailbodytext13
  31.      Mailer.BodyText = mailbodytext14
  32.      Mailer.BodyText = mailbodytext15
  33.      If  Mailer.SendMail then
  34.  
  35.     response.redirect "addcfrm.asp"
  36.       
  37.  Else
  38.         Msg = "mail was not sent sucessfully"
  39. response.write Msg
  40. 'or you could do this
  41. 'response.redirect "../addcfrmerror.asp"
  42.  
  43.      End If
  44.  
  45.      %>
  46.      </body></html>