<%@ language="JavaScript" %> <% /************************************************************ * AUTHOR: Kevin K. Nelson * * DOMAIN: www.flashfiredesigns.com * * [DESCRIPTION] * * * * Copyright 2002, Kevin K. Nelson. All Rights Reserved. * * *** NOT TO BE USED WITHOUT EXPRESS PERMISSION *** * ************************************************************/ /******************************* USER SET VARIABLES *********************************/ /////////////////////////// YOU MAY MODIFY THIS SECTION ////////////////////////////// g_strPageURL = "email.asp"; g_strContactName = "Annie Nelson"; g_strContactEmail = "dearannie@sandf.org"; g_strPOPServer = "mail.sexualabuse.org"; ///////////////////////////// DO NOT MODIFY BELOW HERE /////////////////////////////// /******************************** GLOBAL VARIABLES **********************************/ l_strHTML = ""; g_strAction = "" + Request.QueryString("action"); /******************************** GENERIC FUNCTIONS *********************************/ function sendASPEmail( p_strPOPServer, p_strFrom, p_strFromName, p_strTo, p_strToName, p_strSubject, p_strBody ) { var oMail = Server.CreateObject("Persits.MailSender"); oMail.Host = p_strPOPServer; oMail.From = p_strFrom; oMail.FromName = p_strFromName; oMail.Subject = p_strSubject; oMail.Body = p_strBody; oMail.IsHTML = false; oMail.AddAddress(p_strTo, p_strToName); oMail.Send(); } function removeHTMLTags(p_string) { // do nothing } /******************************* FORM BUILD FUNCTIONS ********************************/ function buildEmailForm() { l_strHTML += ("

Send an E-mail

" + "

To: " + g_strContactName + "


" + "
" + "

Name:

" + "
" + "

E-mail:

" + "
" + "

Subject:

" + "
" + "

Comments

" + "
" + "
"); } function buildSendPage() { var strName = "" + Request.Form("txtName"); var strEmail = "" + Request.Form("txtEmail"); var strSubject = "" + Request.Form("txtSubject"); var strComments = "" + Request.Form("txtComments"); var bSubmit = true; var l_strError = ""; if(strName == "undefined") { l_strError += "
  • This is an e-mail sending page. You have likely linked to this accidentally after sending an e-mail earlier.
    • "; bSubmit = false; } if(strName == "") { l_strError += "
  • Please enter your name
    • "; bSubmit = false; } if(strEmail == "") { l_strError += "
  • Please enter a valid e-mail address
    • "; bSubmit = false; } if(strSubject == "") { l_strError += "
  • Please enter an e-mail subject
    • "; bSubmit = false; } if(strComments == "") { l_strError += "
  • Please enter some information in the comments
    • "; bSubmit = false; } if(!bSubmit) { l_strHTML += "

    Please click your browser's back button and fix the following

    "; l_strHTML += ""; } else { sendASPEmail( g_strPOPServer, strEmail, strName, g_strContactEmail, g_strContactName, strSubject, strComments ) l_strHTML += "

    Thank-you

    "; l_strHTML += "

    Your e-mail has been sent:

    "; l_strHTML += ""; } } /*********************************** BUILD PAGE *************************************/ if(g_strAction == "undefined") { buildEmailForm(); } if(g_strAction == "send") { buildSendPage(); } %> Through My Eyes Workbook, for Survivors of Sexual Abuse
     
      Home About Order Contact
     

    "I highly recommend Annie and her ministry to you. You will find her to be a capable and warm-hearted woman who will speak the truth into difficult situations."

    Nate Hettinga
    Senior Pastor
    Cascade CC

     

    Through My Eyes Workbook

    <%= l_strHTML %>