<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Mail form as HTML format SYS *** If (CStr(Request("FX_sendForm")) = "form1") Then names = "" top = "Dear " + Request.Form("addressee") + ",

You received a visitor from the contact page at RCF. They have asked that this message be forwarded to you, and it appears below.
" body = "
" exclude = "submit,submit_x,submit_y,null,FX_sendForm,MM_insert,MM_update" reqArray = split(CStr(Request.Form),"&") For i=0 To UBound(reqArray) name = Left(reqArray(i),InStr(reqArray(i),"=")-1) if (InStr(exclude,name) = 0) Then if (InStr(names,name & ",") = 0) Then body = body & UCase(name) & ": " & CStr(Request.Form(name)) & "

" names = names & name & "," End If End If Next bottom = "

Faithfully submitted,

Your RCF mailman" message = Replace(top & body & bottom, "\n", vbCrLf) ' send all set objCDO = Server.CreateObject("CDO.Message") objCDO.From = CStr(Request.Form("email")) objCDO.To = "webservant@rcf.org" objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "You have received a contact from the RCF Web Site" objCDO.HTMLBody = message objCDO.Send set objCDO = Nothing ' redirecting body = Server.URLEncode(Replace(body, "\n", "
")) redirect = "thankyou.htm" If (redirect <> "") Then Response.Redirect(redirect) End If End If %> The Roman Catholic Faithful
Thank you for taking the time to share your comments and concerns.

HOW TO CONTACT THE ROMAN CATHOLIC FAITHFUL:

By phone or fax: 217-632-7054    (toll-free: 800-880-7430)

By US Mail: P.O. Box 109, Petersburg, IL 62675

Please send your email to:

We will respond to your email as soon as possible.

 

Copyright 1996-2009, The Roman Catholic Faithful, Inc.
All rights reserved.
Web site hosting and maintenance by Catholic Web Services.