Kindlings™: E-Mail Newsletter Registration

<% Err_Msg = "" if Request.Form("Email") = "" then Err_Msg = Err_Msg & "
  • Please fill in your Email Address
    • " If Request.ServerVariables ("HTTP_METHOD") = "POST" Then if not Err_Msg ="" then %>
      <%= Err_Msg %>
    <% end if End if If Err_Msg="" then Call DoMail Else Call ShowForm Sub ShowForm %>

    Welcome to Kindlings!

    To sign up to receive our free monthly ezine with tips on:
    stress management, marketing, effective communication, and relationships,
    all you need to do is complete the information section below and submit.

    Privacy Statement: We at Fired Up! will never sell or reveal your name and contact information to anyone outside of our company, ever. We consider your data as confidential ALWAYS.

    Free Email Products for Signing Up!
    Once you have signed up for the newsletter and we have confirmed your subscription,
    you have a choice of one of 5 FREE EMAIL Products.

    Choose from:
    1. The Fired Up Creed
    2. The Fired Up Acronym
    3. 10 Tips for Overcoming Burnout
    4. 10 Tips for Effective Meeting Planning
    5. Fired Up! Success Affirmations

    Email Newsletter Registration Form

    " name="">
    Name: " size="20" MaxLength="100">
    Title: " size="20" MaxLength="100">
    Company: " size="20" MaxLength="100">
    Address: " size="20" MaxLength="100">
    City: " size="20" MaxLength="100">
    St./Prov:
    Zip/Post: " size="20" MaxLength="100">
    Phone Number: " size="20" MaxLength="100">
    Email: " size="27" MaxLength="100">
    Free Email Product You Want:
    <% End Sub%> <% End if%> <% Sub Domail Dim objNewMail Set objNewMail = Server.CreateObject("CDONTS.NewMail") MailServer = "smtp.dagnetsolutions.com" Recipients = "info@firedup-takeaction-now.com" From = Request("First") From = From & " " From = From & Request("Last") From = From & "<" From = From & Request("Email") From = From & ">" objNewMail.To = Recipients objNewMail.CC = "" objNewMail.Bcc = "" objNewMail.From = From objNewMail.Subject = "Email List Opt-In" objNewMail.BodyFormat = 1 objNewMail.MailFormat = 1 objNewMail.Importance = 2 BodyText = "First Name: " & Request("First") & vbCrLf & _ "Title: " & Request("Title") & vbCrLf & _ "Company: " & Request("Company") & vbCrLf & _ "Address1: " & Request("Address1") & vbCrLf & _ "City: " & Request("City") & vbCrLf & _ "State: " & Request("State") & vbCrLf & _ "Zip: " & Request("Zip") & vbCrLf & _ "DayTel: " & Request("DayTel") & vbCrLf & _ "Email: " & Request("Email") & vbCrLf & _ "Comments: " & Request("Comments") & vbCrLf & _ "" objNewMail.Body = BodyText objNewMail.Send() Response.Write "

    " &_ "Thank you. Your Form has been submitted." End sub 'End if %>

    Please notify us immediately if you change email addresses. Thank you! You may cancel your subscription at any time and be removed from the list, simply by sending us an email at info@firedup-takeaction-now.com and writing "Cancel Newsletter." We hope you enjoy Kindlings!™

    About Snowden McFall   Motivational Products   Executive Coaching   Britghtwork Advertising
    Books: Fired Up!, etc.   Women in Business   Fired Up! Order Form   
    Published Articles   Fired Up! Quote of the Month  Fired Up! Tip of the Month  International Fired Up! Month

    Taken from "Fired Up! How to Succeed by Making Your Dreams Come True!" All Rights Reserved.
    © 2001, 1997 Snowden McFall, Fired Up!, 74 Northeastern Blvd. Unit 20, Nashua, NH 03062, 603-882-0600