%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim RSNews Dim RSNews_cmd Dim RSNews_numRows Set RSNews_cmd = Server.CreateObject ("ADODB.Command") RSNews_cmd.ActiveConnection = MM_ConnNews_STRING RSNews_cmd.CommandText = "SELECT * FROM News ORDER BY Data_Inserimento DESC" RSNews_cmd.Prepared = true Set RSNews = RSNews_cmd.Execute RSNews_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RSNews_numRows = RSNews_numRows + Repeat1__numRows %>
|
|||||||||||||||||||||||||||||||||||||||||||
|
![]()