%@LANGUAGE="VBSCRIPT"%> <% set autori = Server.CreateObject("ADODB.Recordset") autori.ActiveConnection = MM_DS_STRING autori.Source = "SELECT * FROM ConsiglieriPD ORDER BY ID ASC" autori.CursorType = 0 autori.CursorLocation = 2 autori.LockType = 3 autori.Open() autori_numRows = 0 %> <% set aree = Server.CreateObject("ADODB.Recordset") aree.ActiveConnection = MM_DS_STRING aree.Source = "SELECT * FROM AreeTematiche ORDER BY AreaTematica ASC" aree.CursorType = 0 aree.CursorLocation = 2 aree.LockType = 3 aree.Open() aree_numRows = 0 %> <% set TipoDocumento = Server.CreateObject("ADODB.Recordset") TipoDocumento.ActiveConnection = MM_DS_STRING TipoDocumento.Source = "SELECT * FROM TipiDocumento" TipoDocumento.CursorType = 0 TipoDocumento.CursorLocation = 2 TipoDocumento.LockType = 3 TipoDocumento.Open() TipoDocumento_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 PrimoPiano_numRows = PrimoPiano_numRows + Repeat1__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = 10 Dim Repeat3__index Repeat3__index = 0 News_numRows = News_numRows + Repeat3__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = 12 Dim Repeat2__index Repeat2__index = 0 Ultime_numRows = Ultime_numRows + Repeat2__numRows %> <% function formatdata(dta) formatdata = day(dta) & "/" & month(dta) & "/" & year(dta) end function %>
![]() |
||||||||||||||
|
||||||||||||||
![]() |