<% ' -------------- VOCI MENU if request("id") <> "" then id = Cint(request("id")) ' TIPOLOGIA ARTICOLO strsql = "SELECT Tipologie.tpl_id, Tipologie.tpl_nome " &_ "FROM Tipologie INNER JOIN (Articoli INNER JOIN Tipologie_vs_Articoli ON Articoli.rtc_id = Tipologie_vs_Articoli.tplrtc_fk_rtc_id) ON Tipologie.tpl_id = Tipologie_vs_Articoli.tplrtc_fk_tpl_id " &_ "WHERE Articoli.rtc_id="&id&";" rs.open(strsql) if not rs.eof then tpl_nome = rs("tpl_nome") tpl_id = rs("tpl_id") end if rs.close ' ------------- ' ARTICOLO strsql = "SELECT Articoli.* FROM Articoli INNER JOIN Tipologie_vs_Articoli ON Articoli.rtc_id = Tipologie_vs_Articoli.tplrtc_fk_rtc_id WHERE (((Tipologie_vs_Articoli.tplrtc_nascosto)=False) AND ((Articoli.rtc_id)="&id&"));" rs.open(strsql) if not rs.eof then data = rs("rtc_data") luogo = rs("rtc_luogo") titolo = rs("rtc_titolo") testata = rs("rtc_testata") sopratitolo = rs("rtc_sopratitolo") sottotitolo = rs("rtc_sottotitolo") testo = rs("rtc_testo") url = rs("rtc_url") autore = rs("rtc_autore") end if rs.close ' -------------- end if %> <% Dim arr_rtc_correlati(30) i_rtc_correlati = 0 lnk_crr = 0 sql_lnkcrr = "SELECT * FROM Link_correlati WHERE lnkcrr_fk_rtc_id = " & id & " ORDER BY lnkcrr_id" rs.open sql_lnkcrr do while not rs.eof lnk_crr = 1 if rs("lnkcrr_fk_rtc_id_correlato") > 0 then arr_rtc_correlati(i_rtc_correlati) = rs("lnkcrr_fk_rtc_id_correlato") i_rtc_correlati = i_rtc_correlati + 1 end if rs.movenext loop rs.close rtc_new_id = 0 strsql_new = "SELECT rtc_id, rtc_new FROM Articoli WHERE rtc_new = True;" rs.open(strsql_new) if not rs.eof then rtc_new_id = rs("rtc_id") end if rs.close %>
Home sito e-Care Home page <% 'rs.open("SELECT Macroaree.mcr_id, Macroaree.mcr_nome, Macroaree.mcr_nascosto FROM Macroaree WHERE (((Macroaree.mcr_id)=4) AND ((Macroaree.mcr_nascosto)=False));") 'if not rs.eof then %> <% 'else %>   <% 'end if ' rs.close %>
Link utili Medico On Line Contattaci Mappa del sito
CUP 2000 Non solo news Progetto
 
<% if request("id") = 77 then %>

(166 KB) Progetto e-Care

Speciale convegno

<% end if %> <% if request("id") = 127 then %>

programma convegno (119 KB)


RASSEGNA STAMPA

La Repubblica

Il Mattino

Corriere del Mezzogiorno

Il Denaro

<% end if %>
<% if tpl_id = 5 then '------------------------------------------------------ strsql = "SELECT Articoli.rtc_id, Articoli.rtc_data FROM Tipologie INNER JOIN (Articoli INNER JOIN Tipologie_vs_Articoli ON Articoli.rtc_id = Tipologie_vs_Articoli.tplrtc_fk_rtc_id) ON Tipologie.tpl_id = Tipologie_vs_Articoli.tplrtc_fk_tpl_id WHERE (((Tipologie.tpl_id)=5)) ORDER BY Articoli.rtc_data DESC;" rs.open strsql do while not rs.eof if rs("rtc_id") = Cint(request("id")) then %> <%=datetostr(rs("rtc_data"),1)%>

<% else %> " class="sottomenu"><%=datetostr(rs("rtc_data"),1)%>

<% end if rs.movenext loop rs.close '------------------------------------------------------ end if %>
<% if tpl_id = 5 then %>
Il Punto
di A. Ardig̣
<% else %>

<%=tpl_nome%>

<% end if %>

<% select case tpl_id case 1: ' EVENTI %> <% rtc_new_id = 0 strsql_new = "SELECT rtc_id, rtc_new FROM Articoli WHERE rtc_new = True;" rs.open(strsql_new) if not rs.eof then rtc_new_id = rs("rtc_id") end if rs.close if Cint(request("id")) = rtc_new_id then %>

<% end if %>

<%=datetostr(data,1)%>
Luogo: <%=luogo%>

<%=titolo%>

<% ' ********************************* LINK CORRELATI if lnk_crr = 1 then %> <% end if ' ********************************* %>
<%=testo%>
Articoli correlati
<% For i=0 To i_rtc_correlati-1 sql_correlati = "SELECT rtc_id, rtc_titolo, rtc_testata FROM Articoli WHERE rtc_id = " & arr_rtc_correlati(i) rs.open sql_correlati if not rs.eof then titolo_crr = rs("rtc_titolo") if rs("rtc_testata") <> "" then testata_crr = " ("&rs("rtc_testata")&")" end if %> "><%=titolo_crr%><%=testata_crr%>

<% end if rs.close Next %> <% sql_lnkcrr = "SELECT * FROM Link_correlati WHERE lnkcrr_fk_rtc_id = " & id & " ORDER BY lnkcrr_id" rs.open sql_lnkcrr do while not rs.eof rslink = rs("lnkcrr_link") rsmone = rs("lnkcrr_nome") rsid = rs("lnkcrr_id") rsid_correlato = rs("lnkcrr_fk_rtc_id_correlato") if rsid_correlato =< 0 then %> " target="_blank" title="<%=Replace(rslink,"http://","")%>"><%=rsmone%> <% end if rs.movenext loop rs.close %>
<% case 2: ' PUBBLICAZIONI %>
<%=sopratitolo%>  

<%=titolo%> <%if autore <> "" then%>

di <%=autore%> <%end if%>

<% ' ********************************* LINK CORRELATI if lnk_crr = 1 then %> <% end if ' ********************************* %>
<%=testo%>
Articoli correlati
<% For i=0 To i_rtc_correlati-1 sql_correlati = "SELECT rtc_id, rtc_titolo, rtc_testata FROM Articoli WHERE rtc_id = " & arr_rtc_correlati(i) rs.open sql_correlati if not rs.eof then titolo_crr = rs("rtc_titolo") if rs("rtc_testata") <> "" then testata_crr = " ("&rs("rtc_testata")&")" end if %> "><%=titolo_crr%><%=testata_crr%>

<% end if rs.close Next %> <% sql_lnkcrr = "SELECT * FROM Link_correlati WHERE lnkcrr_fk_rtc_id = " & id & " ORDER BY lnkcrr_id" rs.open sql_lnkcrr do while not rs.eof rslink = rs("lnkcrr_link") rsmone = rs("lnkcrr_nome") rsid = rs("lnkcrr_id") rsid_correlato = rs("lnkcrr_fk_rtc_id_correlato") if rsid_correlato =< 0 then %> " target="_blank" title="<%=Replace(rslink,"http://","")%>"><%=rsmone%> <% end if rs.movenext loop rs.close %>


<% case 3: ' RASSEGNA STAMPA %>
<%=testata%> <%=datetostr(data,1)%>

<% if sopratitolo <> "" then %> <%=sopratitolo%>
<% end if %> <%=titolo%> <% if sottotitolo <> "" then %>
<%=sottotitolo%> <% end if %> <%if autore <> "" then%>

di <%=autore%> <%end if%>

<% ' ********************************* LINK CORRELATI if lnk_crr = 1 then %> <% end if ' ********************************* %>
<%=testo%>
Articoli correlati
<% For i=0 To i_rtc_correlati-1 sql_correlati = "SELECT rtc_id, rtc_titolo, rtc_testata FROM Articoli WHERE rtc_id = " & arr_rtc_correlati(i) rs.open sql_correlati if not rs.eof then titolo_crr = rs("rtc_titolo") if rs("rtc_testata") <> "" then testata_crr = " ("&rs("rtc_testata")&")" end if %> "><%=titolo_crr%><%=testata_crr%>

<% end if rs.close Next %> <% sql_lnkcrr = "SELECT * FROM Link_correlati WHERE lnkcrr_fk_rtc_id = " & id & " ORDER BY lnkcrr_id" rs.open sql_lnkcrr do while not rs.eof rslink = rs("lnkcrr_link") rsmone = rs("lnkcrr_nome") rsid = rs("lnkcrr_id") rsid_correlato = rs("lnkcrr_fk_rtc_id_correlato") if rsid_correlato =< 0 then %> " target="_blank" title="<%=Replace(rslink,"http://","")%>"><%=rsmone%> <% end if rs.movenext loop rs.close %>


<% case 4: ' NEWS %> <%=datetostr(data,1)%>

<% if sopratitolo <> "" then %> <%=sopratitolo%>
<% end if %> <%=titolo%> <% if sottotitolo <> "" then %>
<%=sottotitolo%> <% end if %>

<% ' ********************************* LINK CORRELATI if lnk_crr = 1 then %> <% end if ' ********************************* %>
<%=testo%>
Articoli correlati
<% For i=0 To i_rtc_correlati-1 sql_correlati = "SELECT rtc_id, rtc_titolo, rtc_testata FROM Articoli WHERE rtc_id = " & arr_rtc_correlati(i) rs.open sql_correlati if not rs.eof then titolo_crr = rs("rtc_titolo") if rs("rtc_testata") <> "" then testata_crr = " ("&rs("rtc_testata")&")" end if %> "><%=titolo_crr%><%=testata_crr%>

<% end if rs.close Next %> <% sql_lnkcrr = "SELECT * FROM Link_correlati WHERE lnkcrr_fk_rtc_id = " & id & " ORDER BY lnkcrr_id" rs.open sql_lnkcrr do while not rs.eof rslink = rs("lnkcrr_link") rsmone = rs("lnkcrr_nome") rsid = rs("lnkcrr_id") rsid_correlato = rs("lnkcrr_fk_rtc_id_correlato") if rsid_correlato =< 0 then %> " target="_blank" title="<%=Replace(rslink,"http://","")%>"><%=rsmone%> <% end if rs.movenext loop rs.close %>


<% case 5: ' IL PUNTO DI ARDIGO %>

<%=datetostr(data,1)%>

<%=titolo%>

<%=testo%>



<% end select %>
                     
Eventi Progetti Il Punto di Achille Ardigò <% rtc_new_id = 0 strsql_new = "SELECT rtc_id, rtc_new FROM Articoli WHERE rtc_new = True;" rs.open(strsql_new) if not rs.eof then rtc_new_id = rs("rtc_id") end if rs.close if rtc_new_id > 0 then %>
<% end if %>