<%@LANGUAGE="VBSCRIPT"%> <% Dim RS Dim RS_numRows Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = MM_con_lariso_STRING RS.Source = "SELECT tMenu.*, tArticoli.titolo, tArticoli.ID FROM tMenu INNER JOIN tArticoli ON tMenu.IDmenu = tArticoli.IDmenu WHERE tMenu.pagina='Professioni' OR tMenu.pagina='Servizi e interventi' OR tMenu.pagina='Politiche di sviluppo' OR tMenu.pagina='Ricerca' ORDER BY tMenu.pagina ASC, ordinemn DESC" RS.CursorType = 0 RS.CursorLocation = 2 RS.LockType = 1 RS.Open() RS_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RS_numRows = RS_numRows + Repeat1__numRows %> Lariso - Cooperativa Sociale Onlus

Mappa del sito

- Homepage

<% voceprinc="" While ((Repeat1__numRows <> 0) AND (NOT RS.EOF)) %> <% if voceprinc <>(RS.Fields.Item("pagina").Value) then%>

- "><%=(RS.Fields.Item("pagina").Value)%>

<%end if%> <% if voceprinc2 <>(RS.Fields.Item("sottomenu").Value) AND (RS.Fields.Item("sottomenu").Value) <> "Introduzione"then%> <%=(RS.Fields.Item("sottomenu").Value)%>
<%end if if (RS.Fields.Item("sottomenu").Value) <> "Introduzione" then %>

- &ID=<%=(RS.Fields.Item("ID").Value)%>"><%=(RS.Fields.Item("titolo").Value)%>

<% end if Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 voceprinc=(RS.Fields.Item("pagina").Value) voceprinc2=(RS.Fields.Item("sottomenu").Value) RS.MoveNext() Wend %>

- News

- Comunicati stampa

- Progetti

- Appunti

- Download

- Immagini

- Partner

- Lavora con noi

- Link

- Newsletter

<% RS.Close() Set RS = Nothing %>