<% @Language=VBScript %> <% Option Explicit %> <% PreventPageCaching dim ID, sTitolo, sContenuto ID = 2 sSQL = "SELECT * FROM tblCms WHERE ID = "&ID set oRS = getRS( sSQL, connstring ) if not oRS.eof then sTitolo = fixDblQuotes(oRS("sTitolo")) sContenuto = oRS("sContenuto") if not oRS("bEnabled") then sContenuto = ".. sezione in fase di aggiornamento .." end if else sTitolo = "Servizi Per Privati" sContenuto = ".. sezione in fase di aggiornamento .." end if set oRS = Nothing %> Servizi Per Privati - MEDIAGLOBAL Vendite Immobiliari & Aziendali s.a.s
 
<%=uCase(sTitolo) %>  

<%= checkForImgsAndReplacePagesText(ID, false, "nPagina", sContenuto, "tblCmsImmagini", dirCmsTextImg, dirCmsTextImgZoom, connstring)%>