<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' HTTP="false" ' Catalog="" ' Schema="" MM_connpadrebob_STRING = "Data Source=\\boswinfs01\home\users\web\b1409\ez.snigrelli\db\seeker.mdb;Provider=Microsoft.Jet.OLEDB.4.0" %> <% set rsMasses = Server.CreateObject("ADODB.Recordset") rsMasses.ActiveConnection = MM_connpadrebob_STRING rsMasses.Source = "SELECT * FROM MassDates" rsMasses.CursorType = 0 rsMasses.CursorLocation = 2 rsMasses.LockType = 3 rsMasses.Open() rsMasses_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsMasses_numRows = rsMasses_numRows + Repeat1__numRows %> List Masses For Fr. Bob

Masses To Be Said In Fr. Bob's Memory On March 17th, 2005

For it was on March 17th, 2004 that Robert J. Schwenker laid down his earthly toil and entered the Kingdom of Heaven. If you are planning to have a Mass said in his honor on March 17th, please list it here.

Add a Mass
<% While ((Repeat1__numRows <> 0) AND (NOT rsMasses.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsMasses.MoveNext() Wend %>
City State Country Church Date Time Submitted By
<%=(rsMasses.Fields.Item("City").Value)%> <%=(rsMasses.Fields.Item("State").Value)%> <%=(rsMasses.Fields.Item("Country").Value)%> <%=(rsMasses.Fields.Item("Church").Value)%> <%=(rsMasses.Fields.Item("MassDate").Value)%> <%=(rsMasses.Fields.Item("MassTime").Value)%> <%=(rsMasses.Fields.Item("YourName").Value)%>


Home
<% rsMasses.Close() %>