<%@ Language=VBScript %>
<%
dim rs
dim comuni
dim pIdCom
dim IdComune
dim Utente
set rs = server.CreateObject("ADODB.recordset")
set comuni=server.CreateObject ("ICIComuni.comuni")
pCom=Request.QueryString("idComune")
idcomune= comuni.CheckComuneAttivo (cint(pcom))
if idcomune=0 then
idcomune= comuni.CheckComuneAliquote (cint(pcom))
if idcomune=0 then
Response.Redirect ("/iciweb/Spiacenti.htm")
end if
end if
%>
CALCOLOICI - INFOICI
<![CDATA[
<body bgcolor="#FFFFFF" text="#000000">
</body>
]]>
<%
set rs = nothing
set comuni=nothing
%>