%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs_info Dim rs_info_numRows Set rs_info = Server.CreateObject("ADODB.Recordset") rs_info.ActiveConnection = MM_calend_db_STRING rs_info.Source = "SELECT * FROM t_infohome WHERE web=-1" rs_info.CursorType = 0 rs_info.CursorLocation = 2 rs_info.LockType = 1 rs_info.Open() rs_info_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 rs_info_numRows = rs_info_numRows + Repeat1__numRows %>