Florin Funeral Service, Inc.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim RsServices__MMColParam RsServices__MMColParam = "1" If (Request.QueryString("ID") <> "") Then RsServices__MMColParam = Request.QueryString("ID") End If %> <% Dim RSsdetails Dim RSsdetails_numRows Set RsServices = Server.CreateObject("ADODB.Recordset") RsServices.ActiveConnection = MM_florin_STRING RsServices.Source = "SELECT * FROM ffs.deceased WHERE ID = " + Replace(RsServices__MMColParam, "'", "''") + "" RsServices.CursorType = 0 RsServices.CursorLocation = 2 RsServices.LockType = 1 RsServices.Open() RsServices_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RSsdetails_numRows = RSsdetails_numRows + Repeat1__numRows %> Florin Funeral Service, Inc.

Dey- Florin Chapel 2506 Niles Avenue St. Joseph, MI 49085 (269) 983-1514
		Lakeshore Chapel 5767 Red Arrow Highway Stevensville, MI 49127 (269) 429-6161
Davidson Chapel 249 East Center Street Coloma, MI 49038 (269) 468-3181
		Fairplain Chapel 1053 East Napier Avenue Benton Harbor, MI 49022 (269) 926-7222

<% RsServices.Close() Set RsServices = Nothing %>