....forse ho capito:

ERRORE

Riga: 78
Carattere: 7
Errore: previsto "("


PAGINA ASP

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>



<script language="JavaScript">

function torna_menu_princ()
{
document.elenco.action = "SchedeProgetto.asp";
document.elenco.submit();
}

function inserisci_obj()
{
document.elenco.action = "InsModCanObjInt.asp?operazione=inserimento";
document.elenco.submit();
}

function elimina_obj(cod_sp,cod_obj,origine)
{
if confirm("Attenzione: sto per eliminare l'obiettivo intermedio e tutti i dati correlati ad esso.\n\nVuoi continuare?")
{
document.elenco.action = "EliminaOBJ_DB.asp?codid=cod_sp&codidobj=cod_obj&o perazione=origine";
document.elenco.submit();
}
}
</script>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Ins/Mod/Can area selezionata</title>

</head>

<body>

<%
codid = Request.Form("codid")
id_area = Request.Form("id_area")
%>

<%if (id_area="1") then%>

<%
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.mappath("SchedeProgetto.mdb")
set connobj = Server.CreateObject( "ADODB.Connection" )
connobj.Open url_DB
str_obj = "select CODIDOBJ,DENOMINAZIONE,DATAINIZIO,DATAFINE,INDICAT ORERISULTATO from SchedaOBJ where CODID='" &codid& "'"
set rs_obj = server.createobject("adodb.recordset")
rs_obj.open str_obj, connobj, 3, 3
elenco_obj_vuoto = false
if rs_obj.eof then elenco_obj_vuoto = true
%>

<form name="elenco" method="post">
<table width="930" border="0" align="center">
<tr bgcolor="#66FF99"><td colspan="7"><div align="center"><span class="Stile19">Progetti attivati in ambito SME</span> </div></td></tr>
<tr>
<td colspan="7"><h2></h2></td>
</tr>
<tr bgcolor="#999999">
<td colspan="7"><div align="center"><span class="Stile2">
<% if (elenco_obj_vuoto=false) then %>
INSERIMENTO/MODIFICA/ELIMINAZIONE
<% else %>
INSERIMENTO
<% end if %>
</span></div></td>
</tr>
<tr>
<td colspan="7"></td>
</tr>
<tr bgcolor="#999999"><td colspan="7"><div align="center"><span class="Stile21">ELENCO OBIETTIVI INTERMEDI </span></div></td></tr>
<tr>
<td colspan="7"></td>
</tr>
<tr>
<td colspan="7">Codice progetto:
<input name="codid" type="text" id="codid" value="<%=Server.HTMLEncode(codid)%>" size="30" maxlength="20" readonly></td>
</tr>
<tr>
<td colspan="7">
</td>
</tr>
<tr>
<td colspan="7"></td>
</tr>
<% if (elenco_obj_vuoto=false) then %>
<tr>
<td><div align="center"></div></td>
<td><div align="center"></div></td>
<td><div align="center">Denominazione</div></td>
<td width="71" colspan="-1"><div align="center">Inizio</div></td>
<td width="73" colspan="-1"><div align="center">Fine</div></td>
<td width="250" colspan="-1"><div align="center">Indicatore risultato</div></td>
<td width="129" colspan="-1"><div align="center">Totale Budget </div></td>
</tr>
<tr>
<td colspan="7"></td>
</tr>
<% end if %>
<%
while not rs_obj.eof

str_budget = "SELECT Sum(Scheda_Budget.IMP_ASS) AS SommaDiIMP_ASS FROM Scheda_Budget GROUP BY Scheda_Budget.CODIDOBJ, Scheda_Budget.CODID, Scheda_Budget.ANNO HAVING (((Scheda_Budget.CODID)='" &codid& "') AND ((Scheda_Budget.CODIDOBJ)='" &rs_obj("CODIDOBJ")& "'))"
set rs_budget = server.createobject("adodb.recordset")
rs_budget.open str_budget, connobj, 3, 3

totale_budget = 0
while not rs_budget.eof
totale_budget = totale_budget + cint(rs_budget("SommaDiIMP_ASS"))
rs_budget.movenext
wend
totale_budget_obj = totale_budget
%>
<tr>
<td width="32"><div align="center">&operazione=modifica">[img]Lente.jpg[/img]</div></td>
<td width="29">
<div align="center">,'da_elenco')">[img]cestino.gif[/img]</div></td>
<td width="316"><div align="center">
<% contenuto = rs_obj("DENOMINAZIONE")
if len(contenuto)>0 then contenuto = server.htmlEncode(contenuto)
%>
<input name="Denominazione" type="text" id="Denominazione" value="<%=contenuto%>" size="50" maxlength="100" readonly>
</div>
<div align="center"></div></td>
<td colspan="-1"><div align="center">
<% contenuto = rs_obj("DATAINIZIO")
if len(contenuto)>0 then contenuto = server.htmlEncode(contenuto)
%>
<input name="Inizio" type="text" id="Inizio" value="<%=contenuto%>" size="8" maxlength="10" readonly>
</div></td>
<td colspan="-1"><div align="center">
<% contenuto = rs_obj("DATAFINE")
if len(contenuto)>0 then contenuto = server.htmlEncode(contenuto)
%>
<input name="Fine" type="text" id="Fine" value="<%=contenuto%>" size="8" maxlength="10" readonly>
</div></td>
<td colspan="-1"><div align="center">
<% contenuto = rs_obj("INDICATORERISULTATO")
if len(contenuto)>0 then contenuto = server.htmlEncode(contenuto)
%>
<input name="Ind_risultato" type="text" id="Ind_risultato" value="<%=contenuto%>" size="40" maxlength="100" readonly>
</div></td>
<td colspan="-1"><div align="center">
<input name="Tot_budget" type="text" id="Tot_budget" value="<%=Server.HTMLEncode(totale_budget_obj)%>" size="20" maxlength="20" readonly>
</div></td>
</tr>
<%
rs_obj.movenext
wend
%>

<tr>
<td height="88" colspan="7">
<p align="center">
<input name="Annulla" type="button" id="Annulla" value="ANNULLA" onClick="javascript: torna_menu_princ()">
<input name="Aggiungi_OBJ" type="button" id="Aggiungi_OBJ" value="INSERISCI" onClick="javascript: inserisci_obj()">
</p>
</td>
</tr>

</table>

</form>

<%
rs_obj.Close
Set rs_obj = Nothing
if (elenco_obj_vuoto=false) then
rs_budget.Close
Set rs_budget = Nothing
end if
connobj.Close
set connobj = nothing
%>

<%end if%>

<%if (id_area="2") then%>
<%end if%>

<%if (id_area="3") then%>
<%end if%>

<%if (id_area="4") then%>
<%end if%>

<%if (id_area="5") then%>
<%end if%>

</body></html>

Grazie