Ma prima di qst condizione nn fa altro ke caricare dei vettori e leggerre delle variabili ke gli arrivano dalla parte asp! COSI
dim objFrame
dim Fltr_Gen_CodiceAUA, CodAUA, PaginaChiamante
dim Fltr_Gen_CodIns, CodIns

dim vetCodProduttore(), vetDesProduttore(), vetCodInsProduttore()

if len(trim("<%=sParam%>")) > 0 then
sStringa="../MessaggioErrore.asp?CD_Errore=<%=Esito%><%=sParam% >"
call window.showModalDialog(sStringa,,"dialogWidth:30;d ialogHeight:28;dialogTop:30;dialogLeft:30")
end if

set objWindow = parent
set objFrame = ObjLivelloFrame()

Fltr_Gen_CodiceAUA = <%=ConvFlagValori(Fltr_Gen_CodiceAUA)%>
Fltr_Gen_CodIns = <%=ConvFlagValori(Fltr_Gen_CodIns)%>
CodAUA = "<%=CodAUA%>"
CodIns = "<%=CodIns%>"
PaginaChiamante = <%=ConvApiciValori(PaginaChiamante)%>

redim vetCodInsProduttore(<%=ubound(vetCodInsProduttore) %>)
redim vetCodProduttore(<%=ubound(vetCodProduttore)%>)
redim vetDesProduttore(<%=ubound(vetDesProduttore)%>)

if PaginaChiamante = "NAVIGATOREAUSILIARIO" then
set objFrame = top.main.main_aua.frmEvento
set objVariabili = top.variabili
else
set objFrame = top.maincontenitore.frmEvento
set objVariabili = top.opener.top.variabili
end if