%@LANGUAGE="VBSCRIPT"%> <% Dim rsSpanPub Dim rsSpanPub_numRows Set rsSpanPub = Server.CreateObject("ADODB.Recordset") rsSpanPub.ActiveConnection = MM_dbConn_STRING rsSpanPub.Source = "SELECT * FROM Publications WHERE SpanishInclude = Yes ORDER BY Title ASC" rsSpanPub.CursorType = 0 rsSpanPub.CursorLocation = 2 rsSpanPub.LockType = 1 rsSpanPub.Open() rsSpanPub_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsSpanPub_numRows = rsSpanPub_numRows + Repeat1__numRows %>