%@LANGUAGE="VBSCRIPT"%> <% Dim objRSBlogs Dim objRSBlogs_cmd Dim objRSBlogs_numRows Set objRSBlogs_cmd = Server.CreateObject ("ADODB.Command") objRSBlogs_cmd.ActiveConnection = MM_strCon_STRING objRSBlogs_cmd.CommandText = "SELECT * FROM tblJournal" objRSBlogs_cmd.Prepared = true Set objRSBlogs = objRSBlogs_cmd.Execute objRSBlogs_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 objRSBlogs_numRows = objRSBlogs_numRows + Repeat1__numRows %>