<%@LANGUAGE="VBSCRIPT"%>
<%
Dim RS__MMColParam
RS__MMColParam = "Gallery"
If (Request("MM_EmptyValue") <> "") Then
RS__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim RS
Dim RS_numRows
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = MM_con_lariso_STRING
RS.Source = "SELECT * FROM tMenu WHERE pagina = '" + Replace(RS__MMColParam, "'", "''") + "' ORDER BY ordinemn DESC"
RS.CursorType = 0
RS.CursorLocation = 2
RS.LockType = 1
RS.Open()
RS_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 5
Repeat1__index = 0
RS_numRows = RS_numRows + Repeat1__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
' set the record count
RS_total = RS.RecordCount
' set the number of rows displayed on this page
If (RS_numRows < 0) Then
RS_numRows = RS_total
Elseif (RS_numRows = 0) Then
RS_numRows = 1
End If
' set the first and last displayed record
RS_first = 1
RS_last = RS_first + RS_numRows - 1
' if we have the correct record count, check the other stats
If (RS_total <> -1) Then
If (RS_first > RS_total) Then RS_first = RS_total
If (RS_last > RS_total) Then RS_last = RS_total
If (RS_numRows > RS_total) Then RS_numRows = RS_total
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (RS_total = -1) Then
' count the total records by iterating through the recordset
RS_total=0
While (Not RS.EOF)
RS_total = RS_total + 1
RS.MoveNext
Wend
' reset the cursor to the beginning
If (RS.CursorType > 0) Then
RS.MoveFirst
Else
RS.Requery
End If
' set the number of rows displayed on this page
If (RS_numRows < 0 Or RS_numRows > RS_total) Then
RS_numRows = RS_total
End If
' set the first and last displayed record
RS_first = 1
RS_last = RS_first + RS_numRows - 1
If (RS_first > RS_total) Then RS_first = RS_total
If (RS_last > RS_total) Then RS_last = RS_total
End If
%>
Lariso - Cooperativa Sociale Onlus
Nell’archivio fotografico di Lariso vengono pubblicate le immagini degli eventi e delle attività maggiormente significative che la Cooperativa ha svolto in questi anni.
<%
While ((Repeat1__numRows <> 0) AND (NOT RS.EOF))
%>