<%@LANGUAGE="VBSCRIPT"%>
<%
set Tipologie = Server.CreateObject("ADODB.Recordset")
Tipologie.ActiveConnection = MM_AMFioreDB_STRING
Tipologie.Source = "SELECT DISTINCT Servizi.Tipologia FROM Servizi ORDER BY Servizi.Tipologia;"
Tipologie.CursorType = 0
Tipologie.CursorLocation = 2
Tipologie.LockType = 3
Tipologie.Open()
Tipologie_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = 10
Dim Repeat1__index
Repeat1__index = 0
Ultimi_servizi_numRows = Ultimi_servizi_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Repeat2__numRows = 2
Dim Repeat2__index
Repeat2__index = 0
Architettura_numRows = Architettura_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Repeat3__numRows = 2
Dim Repeat3__index
Repeat3__index = 0
Storia_numRows = Storia_numRows + Repeat3__numRows
%>
<%
Dim Repeat4__numRows
Repeat4__numRows = 2
Dim Repeat4__index
Repeat4__index = 0
Religione_numRows = Religione_numRows + Repeat4__numRows
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
Tipologie_numRows = Tipologie_numRows + Repeat1__numRows
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
Top_page
Cerca
nel nostro database
Inserire
una parola da ricercare
Cerca
nel nostro database
<%
While ((Repeat1__numRows <> 0) AND (NOT Tipologie.EOF))
%>
IPIX. Alcune immagini di realtà virtuale sono
state realizzate con la tecnologia IPIX. Per visualizzarle
sarà necessario scaricare il plugin SCARICA
IL PLUGIN (1 min circa)
IPIX.
Alcune immagini di realtà virtuale sono state realizzate
con la tecnologia IPIX. Per visualizzarle sarà necessario
scaricare il plugin SCARICA
IL PLUGIN (1 min circa)
