<%@ LANGUAGE = VBSCRIPT %>
<%
    Referer = Request.ServerVariables("HTTP_REFERER")
	Response.Buffer = true
	Response.Redirect( "http://www.wholefamily.com/ask_an_expert/index.asp?URL=" & Referer )
   Response.End
%>

<%
 BodyStatic = Request.Form("BodyStatic")
 If not (len(BodyStatic) > 0) then
%>
   <!-- #include file = "mailform.html" -->
<%
   Response.End
 End If

 Dim MailSent
 Dim MailResponse
   
  Dim Mailer
  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
  Mailer.RemoteHost  = "209.213.96.47"	'VirtualScape POP3 Mail Server
  Mailer.FromName    = Request.Form("FromName")
  Mailer.FromAddress = Request.Form("FromAddress")
  Mailer.AddRecipient  Request.Form("ToName"), Request.Form("ToAddress")
  Mailer.AddCC         Request.Form("CCName"), Request.Form("CCAddress")
  Mailer.AddBCC        Request.Form("BCCName"), Request.Form("BCCAddress")
  Mailer.Subject     = Request.Form("Subject")

  Mailer.WordWrapLen = 76
  Mailer.WordWrap    = False
  Mailer.BodyText    = BodyStatic
  Mailer.WordWrap    = True
  Mailer.BodyText    = VBCRLF & Request.Form("Body")

  MailSent = Mailer.Sendmail
  MailResponse = Mailer.Response
  set Mailer=Nothing

  Referer = Request.Form("Referer")
  if MailSent then
%>
    <!-- #include file = "mailsent.html" -->
<%
    Response.End
  else
%>
    <!-- #include file = "mailnotsent.html" -->
<%
  End If
%>