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