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