%@LANGUAGE="VBSCRIPT"%>
<%
set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = MM_SundayNights_STRING
RS.Source = "SELECT Rid, ResDescrEng, RLink FROM Resources"
RS.CursorType = 0
RS.CursorLocation = 2
RS.LockType = 3
RS.Open()
RS_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
RS_numRows = RS_numRows + Repeat1__numRows
%>
Resources
The following are resources for available...
<%
While ((Repeat1__numRows <> 0) AND (NOT RS.EOF))
%>
- <%=(RS.Fields.Item("ResDescrEng").Value)%>">

<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RS.MoveNext()
Wend
%>
