<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_ctnMAPCSQLServer_STRING MM_editTable = "yasso.PewCards" MM_editRedirectUrl = "contact_thank_you.asp" MM_fieldsStr = "txtFirstName|value|hdnDate|value|txtLastName|value|txtAddress1|value|txtAddress2|value|txtCity|value|mnuState|value|txtZipCode|value|mnuCountry|value|txtDayPhone|value|txtEveningPhone|value|txtEmailAddress|value|mnuContact|value|chkWorshiped|value|chkSermons|value|chkMembership|value|chkFriend|value|chkNYTimes|value|chkInternet|value|chkRadio|value|chkNeighborhood|value|chkYellowPages|value|txtFoundOther|value|chkInwoodHouse|value|chkLEAP|value|chkSeniorLunch|value|chkShelterDinner|value|chkYCP|value|chkSunAdultEd|value|chkSundaySchool|value|chkChildWorshipClass|value|chkWomensBibleStudy|value|chkConfirmationClass|value|chkYouthFellowship|value|chkChancelChoir|value|chkYouthChoir|value|chkStAndrew|value|chkGreeter|value|chkWedding|value|chkFuneral|value|chkKidsClub|value|chkDaySchool|value|chk20s30s|value|chkSeniors|value|chkSmallGroups|value|txtOtherInformation|value" MM_columnsStr = "FirstName|',none,''|Date|',none,NULL|LastName|',none,''|Address1|',none,''|Address2|',none,''|City|',none,''|State_Province|',none,''|ZipCode|',none,''|Country|',none,''|PhoneDay|',none,''|PhoneEvening|',none,''|E_mail_address|',none,''|PreferredCommunication|',none,''|Worshiped_at_MAPC|none,1,0|Sermons|none,1,0|Membership|none,1,0|Found_Friend|none,1,0|Found_NYTimes|none,1,0|Found_Internet|none,1,0|Found_Radio|none,1,0|Found_Neighborhood|none,1,0|Found_YellowPages|none,1,0|Found_Other|',none,''|InwoodHouse|none,1,0|LEAP|none,1,0|SeniorLunch|none,1,0|ShelterDinner|none,1,0|YorkvilleCommonPantry|none,1,0|SundayMorningAdultEd|none,1,0|SundaySchool|none,1,0|ChildrenWorshipClass|none,1,0|WomensBibleStudy|none,1,0|ConfirmationClass|none,1,0|YouthFellowship|none,1,0|ChancelChoir|none,1,0|YouthChoir|none,1,0|StAndrewChorale|none,1,0|Greeter|none,1,0|Weddings|none,1,0|Funerals|none,1,0|KidsClub|none,1,0|DaySchool|none,1,0|_20s30s|none,1,0|SeniorsMinistries|none,1,0|SmallGroupMinistries|none,1,0|Other|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% set rsCountryList = Server.CreateObject("ADODB.Recordset") rsCountryList.ActiveConnection = MM_ctnMAPCSQLServer_STRING rsCountryList.Source = "SELECT * FROM yasso.Countries" rsCountryList.CursorType = 0 rsCountryList.CursorLocation = 2 rsCountryList.LockType = 3 rsCountryList.Open() rsCountryList_numRows = 0 %> <% set rsStateProvinceList = Server.CreateObject("ADODB.Recordset") rsStateProvinceList.ActiveConnection = MM_ctnMAPCSQLServer_STRING rsStateProvinceList.Source = "SELECT * FROM yasso.States" rsStateProvinceList.CursorType = 0 rsStateProvinceList.CursorLocation = 2 rsStateProvinceList.LockType = 3 rsStateProvinceList.Open() rsStateProvinceList_numRows = 0 %> Madison Avenue Presbyterian Church | Welcome
Search Our Site:   

MADISON AVENUE
PRESBYTERIAN CHURCH

Presbyterian Church USA | Presbytery of New York City

921 Madison Avenue
(at East 73rd Street)
New York, NY 10021
Tel: 212- 288-8920
Fax: 212-249-1466
 

Contact Us

We're glad that you are interested in obtaining more information about MAPC. Please fill out this form so we may know how to be in contact with you. For any confidential matters, please contact a member of our pastoral staff directly at (212) 288-8920 or through e-mail; you can find their addresses through the staff biographies.

Please provide us with an e-mail address so that we can respond to you quickly.

E-mail Address

First Name

Last Name

Address

City

State

Zip/Postal Code

Country

Daytime Phone

Evening Phone

Preferred Method of Contact

Have you worshipped with us before?  Yes

I am interested in obtaining copies of Dr. Anderson's sermons.  Yes

I would like more information on becoming a member of MAPC.  Yes

How did you find us? (Please check all that apply)
A Friend
New York Times
Internet
Radio
Live/Work in the neighborhood
Yellow Pages
Other:

Check the boxes to request further information:

Outreach Ministries

Inwood House (Unwed pregnant teenagers)
LEAP (Reading and activities with the children of East Harlem)
Senior Lunch
Shelter Dinner
Yorkville Common Pantry

Christian Education

Sunday Morning Adult Education
Sunday School (Nursery-High School)
Children's Worship Class
Women's Bible Study
Confirmation Class
Youth Fellowship

Worship

Chancel Choir
Youth Choir
St. Andrew Chorale
Greeter
Weddings
Funerals

Family and Childrens' Ministries

Kids' Club (Wednesday afternoons)
Madison Avenue Presbyterian Church Day School

Congregational Life

20s/30s Group
Seniors' Ministries
Small Group Ministries

Other Questions or Requests

 

 

 

 

 

Back to Top

 

<% rsCountryList.Close() %> <% rsStateProvinceList.Close() %>