Progetto

<% ' -------------- VOCI MENU if request("vci_id") <> "" then vci_id = Cint(request("vci_id")) else strsql = "SELECT mcr_nome, mcr_testo FROM Macroaree WHERE mcr_id = 1;" rs.open(strsql) if not rs.eof then titolo_princ = rs("mcr_nome") testo = rs("mcr_testo") end if rs.close vci_id = 1 end if ' -------------- SOTTOVOCI MENU if request("sttvci_id") <> "" then if vci_id > 0 then sttvci_id = Cint(request("sttvci_id")) else sttvci_id = 0 end if else sttvci_id = 0 end if if sttvci_id > 0 then ' SOTTOVOCE DEL MENU strsql = "SELECT * FROM Sottovoci WHERE sttvci_nascosto = False AND sttvci_id= "& sttvci_id 'response.Write(strsql) rs.open(strsql) if not rs.eof then titolo = rs("sttvci_nome") 'response.Write("

titolo: "&titolo&"

") testo = rs("sttvci_testo") if IsNull(testo) then testo = "" end if 'response.Write("

testo: "&testo&"

") nascosto = rs("sttvci_nascosto") end if rs.close strsql = "SELECT vci_nome FROM Voci WHERE vci_nascosto = False AND vci_id = " & vci_id rs.open(strsql) if not rs.eof then titolo_princ = rs("vci_nome") end if rs.close ' ------------- else ' VOCE DEL MENU 'response.Write(strsql) strsql = "SELECT * FROM Voci WHERE vci_nascosto = False AND vci_id = " & vci_id rs.open(strsql) if not rs.eof then titolo = rs("vci_nome") 'response.Write("

titolo: "&titolo&"

") testo = rs("vci_testo") if IsNull(testo) then testo = "" end if 'response.Write("

testo: "&testo&"

") nascosto = rs("vci_nascosto") end if rs.close ' -------------- end if %>

<% if vci_id > 0 then strsql = "SELECT * FROM Sottovoci WHERE sttvci_nascosto = False AND sttvci_fk_vci_id = " & vci_id rs.open strsql do while not rs.eof if sttvci_id = rs("sttvci_id") then if vci_id = 1 then %> <%=rs("sttvci_nome")%>
<% else %> <%=rs("sttvci_nome")%>
<% end if %>
<% else if vci_id = 1 then %> &sttvci_id=<%=rs("sttvci_id")%>" class="sottomenu"><%=rs("sttvci_nome")%>

<% else if rs("sttvci_id") = 20 then %> <%=rs("sttvci_nome")%>

<% else %> &sttvci_id=<%=rs("sttvci_id")%>" class="sottomenu"><%=rs("sttvci_nome")%>

<% end if end if end if rs.movenext loop rs.close end if %>

Emergenza caldo 2010

<% if titolo_princ <> "" then %>

<%=titolo_princ%>

<%=titolo%>

<% else %>

<%=titolo%>

<% end if %> <%=testo%>