<%
    Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
    'Mailer.FromName = "Tech Test"
    Mailer.FromAddress = Request.Form("email")
    Mailer.Subject = "Ebook Order"
    'Mailer.BodyText = Request.Form("testdata")
    Mailer.RemoteHost = "mail-fwd.dulles19-verio.com" 

    'Mailer.AddRecipient "", "thecoach@claimcoach.com"
    Mailer.AddRecipient  "", "sheldon@apltd.com"
    'Mailer.AddRecipient "", Request.Form("testdata")


  strMsgHeader = "An E-Book has been emailed to: " & Request.Form("Email")
  Mailer.BodyText = strMsgHeader 



    if Mailer.SendMail then
     ' Message sent Ok, redirect to a confirmation page 
     'Response.Redirect ("http://claimcoach.com/ebthanks.htm")
     'response.write ("Your message was sent")      
    else
        ' Message send failure
        'response.write ("Your message was not sent. ")
        'response.write ("The error was: " & Mailer.Response)
    end if
Set Mailer = Nothing 
%>
<%
    Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
    'Mailer.FromName = "Tech Test"
    Mailer.FromAddress = "info@claimcoach.com"
    Mailer.Subject = "ClaimCoach-Ebook"
    'Mailer.BodyText = Request.Form("testdata")
    Mailer.RemoteHost = "mail-fwd.dulles19-verio.com" 

    'Mailer.AddRecipient "", "info@claimcoach.com"
    'Mailer.AddRecipient "", "sheldon@apltd.com"
    Mailer.AddRecipient "", Request.Form("Email")

 
  strMsgHeader = "Thank you for ordering your E-Book... Guard Your Safety on the Road.  We hope you'll find it helpful!  It has been sent to you as an attached PDF file.  To open it, click on attached file and follow the directions.  To view it you will need the Adobe Acrobat Reader Application http://www.adobe.com/products/acrobat/readstep.html." & vbCrLf & "Remember, if you need a friend to help you through the claim's process and to get you the maximum settlement possible, visit us at ClaimCoach http://www.claimcoach.com." & vbCrLf & "Respectfully,"  & vbCrLf & "ClaimCoach, Inc."  & vbCrLf & "ClaimCoach-Protecting YOU after an accident."  & vbCrLf & "ClaimCoach is not affiliated with any law firm or involved in the personal injury claim process.  We all pay for automobile insurance.  ClaimCoach ensures that you get what you pay for."

  Mailer.BodyText = strMsgHeader

    Mailer.AddAttachment (Server.Mappath("/pdf/ebook.pdf"))


    if Mailer.SendMail then
     ' Message sent Ok, redirect to a confirmation page 
     Response.Redirect ("ebthanks.htm")
     'response.write ("Your message was sent")      
    else
        ' Message send failure
        'response.write ("Your message was not sent. ")
        'response.write ("The error was: " & Mailer.Response)
    end if
Set Mailer = Nothing 
%>