%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
[an error occurred while processing this directive]
<%
Dim resources
Dim resources_numRows
Set resources = Server.CreateObject("ADODB.Recordset")
resources.ActiveConnection = MM_rcdb_STRING
resources.Source = "SELECT * FROM Resources ORDER BY RName ASC"
resources.CursorType = 0
resources.CursorLocation = 2
resources.LockType = 1
resources.Open()
resources_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
resources_numRows = resources_numRows + Repeat1__numRows
%>