<%response.Buffer= true%> Sito e-care - Non solo news <% set con_com = Server.CreateObject("ADODB.Connection") con_com.open("Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & server.mappath("/e-care/database/comunicazione.mdb") & ";") set rs_com = Server.CreateObject("ADODB.Recordset") rs_com.ActiveConnection = con_com rs_com.CursorType = 0 rs_com.LockType = 3 %> <% rtc_new_id = 0 strsql_new = "SELECT rtc_id, rtc_new FROM Articoli WHERE rtc_new = True;" rs_com.open(strsql_new) if not rs_com.eof then rtc_new_id = rs_com("rtc_id") end if rs_com.close if rtc_new_id > 0 then %>
<% end if strsql = "SELECT mcr_nome, mcr_testo FROM Macroaree WHERE mcr_id = 2;" rs.open(strsql) if not rs.eof then titolo = rs("mcr_nome") testo = rs("mcr_testo") end if rs.close ' -------------- TIPOLOGIE if request("tpl_id") <> "" then tpl_id = Cint(request("tpl_id")) strsql_tipologia = "SELECT Tipologie.tpl_nome FROM Tipologie WHERE Tipologie.tpl_id = " & tpl_id rs_com.open(strsql_tipologia) if not rs_com.eof then nome_tipologia = rs_com("tpl_nome") end if rs_com.close else ' response.Write("VUOTO") ' response.Redirect("nonsolonews.asp") if request("tpl_id") <> "" then tpl_id = Cint(request("tpl_id")) else tpl_id = request("tpl_id") end if strsql_tipologia = "SELECT Tipologie.tpl_nome FROM Tipologie WHERE Tipologie.tpl_id = 1" rs_com.open(strsql_tipologia) if not rs_com.eof then nome_tipologia = rs_com("tpl_nome") end if rs_com.close tpl_id = 1 end if %> %3Awww.ecare.cup2000.it&btnG=Cerca+con+Google&meta=" target="_blank">
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
CUP 2000 Non solo news Progetto
 
Eventi Progetti Il Punto di Achille Ardigò
 
<% if request("iscrizione") = 1 then %>

Registrazione on-line al convegno e-Care

(*) I campi contrassegnati da asterisco sono obbligatori al fine di completare l'iscrizione

Nome *
Cognome *
Email *
Qualifica:
Azienda:
Città:
Provincia:
Indirizzo:
Cap:
Telefono:

CONSENSO PRIVACY



Do il consenso Nego il consenso

 

Do, inoltre, il consenso perchè i dati vengano utilizzati per le altre finalità (o iniziative) su indicate.


<% else %>

<%=nome_tipologia%>

<% if tpl_id <> "" then if isnumeric(request("idf")) then idf = clng(request("idf")) else idf = 0 end if if isnumeric(request("idt")) then idt = clng(request("idt")) else idt = 0 end if page = Request("page") if page="" then page=1 pagec = request("page") if pagec="" then pagec=1 Set objRS = Server.CreateObject("ADODB.Recordset") select case tpl_id case 1: ' EVENTI %>

Pagina in costruzione

<% case 2:' PUBBLICAZIONI %> <% ' LISTA TIPOLOGIA RecordsPerPagina = 10 strSQL = "SELECT Articoli.rtc_sopratitolo, Articoli.rtc_id, Articoli.rtc_data, Articoli.rtc_luogo, Articoli.rtc_titolo, Articoli.rtc_testata, Articoli.rtc_autore " &_ "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_vs_Articoli.tplrtc_nascosto)=False) AND ((Tipologie.tpl_id)="&tpl_id&")) " if request("ordine") <> "" then strSQL = strSQL & "ORDER BY "&request("ordine")&";" else strSQL = strSQL & "ORDER BY rtc_data DESC;" end if objRS.open strSQL, con_com, 1 objRS.PageSize = RecordsPerPagina if objRS.AbsolutePage <> -1 then objRS.AbsolutePage = page else vuoto = 1 end if objRS.AbsolutePage = page If objRS.Eof=True or objRS.Bof=True then Response.Write "

Nessun risultato trovato

" Else '---------------- For i=1 to RecordsPerPagina if Not objRS.EOF then data = objRS("rtc_data") luogo = objRS("rtc_luogo") titolo = objRS("rtc_titolo") autore = objRS("rtc_autore") testata = objRS("rtc_testata") sopratitolo = objRS("rtc_sopratitolo") id = objRS("rtc_id") %> <% objRS.MoveNext end if Next End if %>
Tipologia Autore Titolo
<%if sopratitolo <> "" then%>Articolo<%else%>Libro<%end if%> <%if autore <> "" then response.Write(autore) else response.Write(" ")%> "><%=titolo%><%if sopratitolo <> "" then response.Write("
in "&sopratitolo) else response.Write(" ")%>

<%if page = 1 then%> <%else%> &page=<%=page-1%>"> <%end if%> <% For pag=1 to objRS.PageCount if Cint(page) = Cint(pag) then Response.Write " "&pag&" " else Response.Write "" Response.Write "["&pag&"]" Response.Write "" end if Next %> <%if Cint(page) = pag-1 Or vuoto = 1 then%> <%else%> &page=<%=page+1%>"> <%end if%>

<% objRS.Close Set objRS=Nothing con_com.Close Set con_com=Nothing ' ------------- %> <% case 3:' RASSEGNA STAMPA %> <% ' LISTA TIPOLOGIA RecordsPerPagina = 10 strSQL = "SELECT Articoli.rtc_id, Articoli.rtc_data, Articoli.rtc_luogo, Articoli.rtc_titolo, Articoli.rtc_testata, Articoli.rtc_autore " &_ "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_vs_Articoli.tplrtc_nascosto)=False) AND ((Tipologie.tpl_id)="&tpl_id&")) " if request("ordine") <> "" then strSQL = strSQL & "ORDER BY "&request("ordine")&";" else strSQL = strSQL & "ORDER BY rtc_data DESC;" end if objRS.open strSQL, con_com, 1 objRS.PageSize = RecordsPerPagina if objRS.AbsolutePage <> -1 then objRS.AbsolutePage = page else vuoto = 1 end if If objRS.Eof=True or objRS.Bof=True then Response.Write "

Nessun risultato trovato

" Else '---------------- For i=1 to RecordsPerPagina if Not objRS.EOF then data = objRS("rtc_data") luogo = objRS("rtc_luogo") titolo = objRS("rtc_titolo") testata = objRS("rtc_testata") id = objRS("rtc_id") %> <% objRS.MoveNext end if Next End if %>
Data Testata Titolo
<%=datetostr(data,5)%> <%if testata <> "" then response.Write(testata) else response.Write(" ")%> "><%=titolo%>

<%if page = 1 then%> <%else%> &page=<%=page-1%>"> <%end if%> <% For pag=1 to objRS.PageCount if Cint(page) = Cint(pag) then Response.Write " "&pag&" " else Response.Write "" Response.Write "["&pag&"]" Response.Write "" end if Next %> <%if Cint(page) = pag-1 Or vuoto = 1 then%> <%else%> &page=<%=page+1%>"> <%end if%>

<% objRS.Close Set objRS=Nothing con_com.Close Set con_com=Nothing ' ------------- %> <% case 4:' NEWS %> <% ' LISTA TIPOLOGIA RecordsPerPagina = 10 strSQL = "SELECT Articoli.rtc_id, Articoli.rtc_data, Articoli.rtc_luogo, Articoli.rtc_titolo, Articoli.rtc_testata, Articoli.rtc_autore " &_ "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_vs_Articoli.tplrtc_nascosto)=False) AND ((Tipologie.tpl_id)="&tpl_id&")) " if request("ordine") <> "" then strSQL = strSQL & "ORDER BY "&request("ordine")&";" else strSQL = strSQL & "ORDER BY rtc_data DESC;" end if objRS.open strSQL, con_com, 1 objRS.PageSize = RecordsPerPagina if objRS.AbsolutePage <> -1 then objRS.AbsolutePage = page else vuoto = 1 end if If objRS.Eof=True or objRS.Bof=True then 'Response.Write "

Nessun risultato trovato

" Else '---------------- For i=1 to RecordsPerPagina if Not objRS.EOF then data = objRS("rtc_data") luogo = objRS("rtc_luogo") titolo = objRS("rtc_titolo") testata = objRS("rtc_testata") id = objRS("rtc_id") %> <% objRS.MoveNext end if Next End if %>
Data Titolo
<%=datetostr(data,5)%> "><%=titolo%>

<%if page = 1 then%> <%else%> &page=<%=page-1%>"> <%end if%> <% For pag=1 to objRS.PageCount if Cint(page) = Cint(pag) then Response.Write " "&pag&" " else Response.Write "" Response.Write "["&pag&"]" Response.Write "" end if Next %> <%if Cint(page) = pag-1 Or vuoto = 1 then%> <%else%> &page=<%=page+1%>"> <%end if%>

<% objRS.Close Set objRS=Nothing con_com.Close Set con_com=Nothing ' ------------- %> <% case 5:' IL PUNTO DI ARDIGO' response.Redirect("/e-care/html/info.asp?id=74") %>
 
<% ' LISTA TIPOLOGIA RecordsPerPagina = 10 strSQL = "SELECT Articoli.rtc_id, Articoli.rtc_data, Articoli.rtc_luogo, Articoli.rtc_titolo, Articoli.rtc_testata, Articoli.rtc_autore " &_ "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_vs_Articoli.tplrtc_nascosto)=False) AND ((Tipologie.tpl_id)="&tpl_id&")) " if request("ordine") <> "" then strSQL = strSQL & "ORDER BY "&request("ordine")&";" else strSQL = strSQL & "ORDER BY rtc_data DESC;" end if objRS.open strSQL, con_com, 1 objRS.PageSize = RecordsPerPagina if objRS.AbsolutePage <> -1 then objRS.AbsolutePage = page else vuoto = 1 end if If objRS.Eof=True or objRS.Bof=True then 'Response.Write "

Nessun risultato trovato

" Else '---------------- For i=1 to RecordsPerPagina if Not objRS.EOF then data = objRS("rtc_data") luogo = objRS("rtc_luogo") titolo = objRS("rtc_titolo") testata = objRS("rtc_testata") id = objRS("rtc_id") %> <% objRS.MoveNext end if Next End if %>
Data Titolo
<%=datetostr(data,5)%> "><%=titolo%>

<%if page = 1 then%> <%else%> &page=<%=page-1%>"> <%end if%> <% For pag=1 to objRS.PageCount if Cint(page) = Cint(pag) then Response.Write " "&pag&" " else Response.Write "" Response.Write "["&pag&"]" Response.Write "" end if Next %> <%if Cint(page) = pag-1 Or vuoto = 1 then%> <%else%> &page=<%=page+1%>"> <%end if%>

<% objRS.Close Set objRS=Nothing con_com.Close Set con_com=Nothing ' ------------- %> <% case 6:' PRESS KIT %> <% end select %> <% else %>

<%=titolo%>

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