%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsLinks Dim rsLinks_numRows Set rsLinks = Server.CreateObject("ADODB.Recordset") rsLinks.ActiveConnection = MM_oviatt_STRING rsLinks.Source = "SELECT * FROM tbl_links" rsLinks.CursorType = 0 rsLinks.CursorLocation = 2 rsLinks.LockType = 1 rsLinks.Open() rsLinks_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsLinks_numRows = rsLinks_numRows + Repeat1__numRows %>
|
|
© Copyright 2004 all rights reserved wanttorentspain.com - design and hosting www.pipm.com |
||||||||||||||||||||||||||||||||||||||