The Asylum House

<%@LANGUAGE="VBSCRIPT"%> <% Dim rsgrave Dim rsgrave_numRows Set rsgrave = Server.CreateObject("ADODB.Recordset") rsgrave.ActiveConnection = MM_grave_STRING rsgrave.Source = "SELECT * FROM qryfilter ORDER BY datedied DESC" rsgrave.CursorType = 0 rsgrave.CursorLocation = 2 rsgrave.LockType = 1 rsgrave.Open() rsgrave_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsgrave_numRows = rsgrave_numRows + Repeat1__numRows %> The Asylum House

d

<% While ((Repeat1__numRows <> 0) AND (NOT rsgrave.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsgrave.MoveNext() Wend %>

<%=(rsgrave.Fields.Item("first").Value)%>.....<%=(rsgrave.Fields.Item("last").Value)%>

<%=(rsgrave.Fields.Item("datedied").Value)%>

<%= LCase((rsgrave.Fields.Item("remarks").Value)) %>

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