%@LANGUAGE="VBSCRIPT"%> <% Dim Download Dim Download_numRows Set Download = Server.CreateObject("ADODB.Recordset") Download.ActiveConnection = MM_Biodiversity_STRING Download.Source = "SELECT * FROM Pdf" Download.CursorType = 0 Download.CursorLocation = 2 Download.LockType = 1 Download.Open() Download_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Download_numRows = Download_numRows + Repeat1__numRows %>
|