<%@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 rsMemory = Server.CreateObject("ADODB.Recordset") rsMemory.ActiveConnection = MM_connpadrebob_STRING rsMemory.Source = "SELECT * FROM irish" rsMemory.CursorType = 0 rsMemory.CursorLocation = 2 rsMemory.LockType = 3 rsMemory.Open() rsMemory_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsMemory_numRows = rsMemory_numRows + Repeat1__numRows %> Your Favorite Memories of Fr. Bob
This Web Site Is Dedicated To Father Robert Schwenker,OMI
Memories of Father Bob

 

Add A Memory


<% While ((Repeat1__numRows <> 0) AND (NOT rsMemory.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsMemory.MoveNext() Wend %>
Our Favorite Memories Date By
<%=(rsMemory.Fields.Item("Field1").Value)%> <%=(rsMemory.Fields.Item("Field2").Value)%> <%=(rsMemory.Fields.Item("Field3").Value)%>
Home
<% rsMemory.Close() %>