%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsArticles
Dim rsArticles_numRows
Set rsArticles = Server.CreateObject("ADODB.Recordset")
rsArticles.ActiveConnection = MM_ADMSubs_STRING
rsArticles.Source = "SELECT * FROM FreeArticles ORDER BY Title"
rsArticles.CursorType = 0
rsArticles.CursorLocation = 2
rsArticles.LockType = 1
rsArticles.Open()
rsArticles_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsArticles_numRows = rsArticles_numRows + Repeat1__numRows
%>
Free ADM Articles
<%
rsArticles.Close()
Set rsArticles = Nothing
%>