%@LANGUAGE="VBSCRIPT"%> <% Dim rs Dim rs_numRows Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_ztstores_STRING rs.Source = "SELECT * FROM dbo.ex_book" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() rs_numRows = 0 %> <% Dim rsbk Dim rsbk_numRows Set rsbk = Server.CreateObject("ADODB.Recordset") rsbk.ActiveConnection = MM_ztstores_STRING rsbk.Source = "SELECT * FROM dbo.hw" rsbk.CursorType = 0 rsbk.CursorLocation = 2 rsbk.LockType = 1 rsbk.Open() rsbk_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 3 Repeat1__index = 0 rs_numRows = rs_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 3 Repeat2__index = 0 rs_numRows = rs_numRows + Repeat2__numRows %>
|
||||||||||||||||||||||||||||||||
| |
||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||