<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim RS_IVCF__MMColParam RS_IVCF__MMColParam = "IVCM" If (Request("MM_EmptyValue") <> "") Then RS_IVCF__MMColParam = Request("MM_EmptyValue") End If %> <% Dim RS_IVCF Dim RS_IVCF_numRows Set RS_IVCF = Server.CreateObject("ADODB.Recordset") RS_IVCF.ActiveConnection = MM_Conn_Diocesi_STRING RS_IVCF.Source = "SELECT * FROM Comunita WHERE Tipo = '" + Replace(RS_IVCF__MMColParam, "'", "''") + "' ORDER BY Congregazione ASC" RS_IVCF.CursorType = 0 RS_IVCF.CursorLocation = 2 RS_IVCF.LockType = 1 RS_IVCF.Open() RS_IVCF_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RS_IVCF_numRows = RS_IVCF_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim RS_IVCF_total Dim RS_IVCF_first Dim RS_IVCF_last ' set the record count RS_IVCF_total = RS_IVCF.RecordCount ' set the number of rows displayed on this page If (RS_IVCF_numRows < 0) Then RS_IVCF_numRows = RS_IVCF_total Elseif (RS_IVCF_numRows = 0) Then RS_IVCF_numRows = 1 End If ' set the first and last displayed record RS_IVCF_first = 1 RS_IVCF_last = RS_IVCF_first + RS_IVCF_numRows - 1 ' if we have the correct record count, check the other stats If (RS_IVCF_total <> -1) Then If (RS_IVCF_first > RS_IVCF_total) Then RS_IVCF_first = RS_IVCF_total End If If (RS_IVCF_last > RS_IVCF_total) Then RS_IVCF_last = RS_IVCF_total End If If (RS_IVCF_numRows > RS_IVCF_total) Then RS_IVCF_numRows = RS_IVCF_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (RS_IVCF_total = -1) Then ' count the total records by iterating through the recordset RS_IVCF_total=0 While (Not RS_IVCF.EOF) RS_IVCF_total = RS_IVCF_total + 1 RS_IVCF.MoveNext Wend ' reset the cursor to the beginning If (RS_IVCF.CursorType > 0) Then RS_IVCF.MoveFirst Else RS_IVCF.Requery End If ' set the number of rows displayed on this page If (RS_IVCF_numRows < 0 Or RS_IVCF_numRows > RS_IVCF_total) Then RS_IVCF_numRows = RS_IVCF_total End If ' set the first and last displayed record RS_IVCF_first = 1 RS_IVCF_last = RS_IVCF_first + RS_IVCF_numRows - 1 If (RS_IVCF_first > RS_IVCF_total) Then RS_IVCF_first = RS_IVCF_total End If If (RS_IVCF_last > RS_IVCF_total) Then RS_IVCF_last = RS_IVCF_total End If End If %> Documento senza titolo

ISTITUTI DI VITA CONSACRATA MASCHILE: <%=(RS_IVCF_total)%>

HomePage Comunità Religiose

<% While ((Repeat1__numRows <> 0) AND (NOT RS_IVCF.EOF)) %>
<%=(RS_IVCF.Fields.Item("Congregazione").Value)%>
Comunità:<%=(RS_IVCF.Fields.Item("Comunita").Value)%>
 <%=(RS_IVCF.Fields.Item("Responsabile").Value)%>
Via: <%=(RS_IVCF.Fields.Item("Via").Value)%> Città: <%=(RS_IVCF.Fields.Item("Citta").Value)%>
Telefono:<%=(RS_IVCF.Fields.Item("Tel").Value)%> Fax:<%=(RS_IVCF.Fields.Item("Fax").Value)%>
Annotazioni:<%=(RS_IVCF.Fields.Item("Annotazioni").Value)%>
Scheda Informativa:
" target="_blank"><%=(RS_IVCF.Fields.Item("Link").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RS_IVCF.MoveNext() Wend %> <% RS_IVCF.Close() Set RS_IVCF = Nothing %>