<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_editAction 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 Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "input") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_PreciousDoe_STRING MM_editCmd.CommandText = "INSERT INTO Events (FirstName, LastName, Organization, HomeAddress, Phone, Mobile, Email, VolunteerOpportunities) VALUES (?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 200, Request.Form("FirstName")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 200, Request.Form("LastName")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 200, Request.Form("Organization")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 200, Request.Form("HomeAddress")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 50, Request.Form("Phone")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, Request.Form("Mobile")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 200, Request.Form("Email")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 50, MM_IIF(Request.Form("Volunteer"), "Y", "N")) ' adVarWChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "events_thankyou.html" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> Precious Doe - Erica Green's Story : Events

Events


On April 25th, 2009, the Precious Doe Committee will hold a unity march and a metropolitan day of prayer for our children.   The march will conclude with the dedication of the Precious Doe Memorial Park, located at 59th & Kensington.   This event will begin at 10:00am in the parking facilities of the Kansas City, Missouri Water Services Department located at 4800 E. 63rd Street.   We encourage members of our community from every region to join with us on that day as we march to the park as a show of unity, and to participate in a time of prayer for our missing, abused and unidentified children.   Please sign up, using the form below, to join us.   Donations are appreciated.


March Route

Click here for the march route.


Register with the Precious Doe Committee


Please register for the march as well as other volunteer opportunities.


First name:*


Last name:*


Organization: (if applicable)


Home Address:


Phone:


Mobile:


Email:*


  Please consider me and/or my organization for volunteer opportunities.




*required information