<%@LANGUAGE="VBSCRIPT"%> <% Dim rsNews Dim rsNews_cmd Dim rsNews_numRows Set rsNews_cmd = Server.CreateObject ("ADODB.Command") rsNews_cmd.ActiveConnection = MM_dbConn_STRING rsNews_cmd.CommandText = "SELECT * FROM tblNews WHERE nwsHome ORDER BY nwsData ASC" rsNews_cmd.Prepared = true Set rsNews = rsNews_cmd.Execute rsNews_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsNews_numRows = rsNews_numRows + Repeat1__numRows %> Consulting & Management Partners S.r.l.

La missione, i valori

Comprendere i comportamenti delle aziende, analizzare i loro mercati e la loro concorrenza; incentivarne lo sviluppo; diffondere la cultura d’impresa; selezionare le risorse migliori; essere, di fatto, accanto ai nostri clienti dei veri e propri co-imprenditori, richiede un costante impegno nella ricerca e nello studio di metodologie

innovative. Noi di Consulting & Management Partners dedichiamo con entusiasmo ogni risorsa a queste attività, perché capire l’ambiente e le esigenze dei nostri clienti significa poter affrontare le sfide del futuro con la tranquillità di coloro che conoscono i mezzi per vincerle.

News

<% If (rsNews.EOF) Then Response.Write("

Al momento non ci sono news da segnalare.

") Else While ((Repeat1__numRows <> 0) AND (NOT rsNews.EOF)) %>

<%=(dbData((rsNews.Fields.Item("nwsData").Value),0,0))%>"><%=(rsNews.Fields.Item("nwsTitolo").Value)%> - <%=(rsNews.Fields.Item("nwsAbstract").Value)%>

" class="newsbox">
<%If (Not isNull((rsNews.Fields.Item("nwsImmagine").Value)) And (rsNews.Fields.Item("nwsImmagine").Value) <> "") Then%> " style="float: right; margin: 0 0 10px 10px;" /> <%End If%>

<%=(dbData((rsNews.Fields.Item("nwsData").Value),0,0))%>

<%=(rsNews.Fields.Item("nwsTitolo").Value)%>

<%=(rsNews.Fields.Item("nwsDescrizione").Value)%>

 

<%If (Not isNull((rsNews.Fields.Item("nwsAllegato").Value)) And (rsNews.Fields.Item("nwsAllegato").Value) <> "") Then%> <%End If%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsNews.MoveNext() Wend End If %>
<% rsNews.Close() Set rsNews = Nothing %>