<%@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

<% While ((Repeat1__numRows <> 0) AND (NOT Tipologie.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Tipologie.MoveNext() Wend %>
Cerca nel nostro database
"><%=(Tipologie.Fields.Item("Tipologia").Value)%>

Scarica i plugin necessari
UTENTI WINDOWS XP.

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)
 
<% Tipologie.Close() %>