%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%> <% Dim rsobb1 Dim rsobb1_numRows Set rsobb1 = Server.CreateObject("ADODB.Recordset") rsobb1.ActiveConnection = webdb1 rsobb1.Source = "SELECT aktualno.lawprop_ID, obb_title,law_id, lawdoc, DataSize, lawprop_txt FROM aktualno ORDER BY law_id DESC" rsobb1.CursorType = 0 rsobb1.CursorLocation = 2 rsobb1.LockType = 1 rsobb1.Open() rsobb1_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 50 Repeat2__index = 0 rsobb1_numRows = rsobb1_numRows + Repeat2__numRows %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||
| |
|
|||||||||||||||||||||||||||||||||||||||||||||||||||
| |
||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||