%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim l Dim l_numRows Set l = Server.CreateObject("ADODB.Recordset") l.ActiveConnection = connection l.Source = "SELECT * FROM Links" l.CursorType = 0 l.CursorLocation = 2 l.LockType = 1 l.Open() l_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 3 Repeat1__index = 0 l_numRows = l_numRows + Repeat1__numRows %> <% set conn=server.createobject("ADODB.Connection") conn.open connection %>
|
||||||||||||||||||||||
|
||||||||||||||||||||||
|
||||||||||||||||||||||