% @Language=VBScript %> <% Option Explicit %> <% PreventPageCaching bHome = true %>
Rif.: <%="MG"&right("00000"&oRS("IdPratica"), 5)%>
Tipo: <%=uCase(oRS("sCategoria"))%>
Zona: <%=uCase(oRS("sCOMUNE")) & " ("&oRS("sPROVINCIA")&")"%>
Mq.: <% if oRS("nMq") <> "0" then response.Write(formatNumber(oRS("nMq"), 2, -1, 0, 0 )) else response.Write("---") end if %>
News
<% dim elencoNews, sAbstract : elencoNews = "" sSQL = "SELECT TOP 3 * FROM tblNews WHERE bEnabled = -1 ORDER BY nPosizView" set oRS = getRS(sSQL, connstring) if not oRS.eof then %> <% do while not oRS.eof sAbstract = replace(trim(RemoveHTML(oRS("sAbstract"))), vbCrLf, " ") elencoNews = elencoNews & ""&compDate2ITA(oRS("dData"))&" "
if len(sAbstract)>50 then elencoNews = elencoNews & left(sAbstract, 50) & " ..." else elencoNews = elencoNews & sAbstract end if
elencoNews = elencoNews & "
"
elencoNews = elencoNews & ""
if oRS("iHomeImg") <> "" and not isNull(oRS("iHomeImg")) then
elencoNews = elencoNews & ""
end if
elencoNews = elencoNews & ""&oRS("sTitolo")&"
"
elencoNews = elencoNews & "
sezione in fase di aggiornamento
<% end if set oRS = Nothing %>