Sei in: PST » trasparenza
Tecnopolis Parco Scientifico e Tecnologico <%link= request.querystring("link") if link="" then link="Presentazione" end if menuinterno=menuinterno&"" if link="Presentazione" then menuinterno=menuinterno& "Presentazione" else menuinterno=menuinterno& "Presentazione" end if menuinterno=menuinterno&" | " if link="Incubatore" then menuinterno=menuinterno& "Incubatore" else menuinterno=menuinterno& "Incubatore" end if menuinterno=menuinterno&" | " if link="Certificazioni" then menuinterno=menuinterno& "Certificazioni" else menuinterno=menuinterno&"Certificazioni" end if menuinterno=menuinterno&" | " if link="Media gallery" then menuinterno=menuinterno& "Media Gallery" else menuinterno=menuinterno& "Media Gallery" end if menuinterno=menuinterno&"
" 'response.write menuinterno %> <% id=request("id") Set rs2 = Server.CreateObject("ADODB.Recordset") sqlbnews= "SELECT pagina, testo, idtesto FROM trasparenza_testi WHERE idtesto="&id rs2.Open sqlbnews, conn,3,3 do while not rs2.eof titolo=estraiDB(rs2("pagina")) testo=estraiDB(rs2("testo")) idtesto=estraiDB(rs2("idtesto")) '''RECUPERO ALLEGATI Set rsAll = Server.CreateObject("ADODB.Recordset") sqlAll = "SELECT nomefile FROM trasparenza_allegati WHERE statofile='ATTIVO' and idtesto="&idtesto&" ORDER BY ordinefile" rsAll.Open sqlAll, conn,3,3 do while not rsAll.eof nomefile=estraiDB(rsAll("nomefile")) corpo_file = corpo_file & ""&nomefile&"

" rsAll.MoveNext loop rsAll.close Set rsAll=nothing '''FINE rs2.movenext loop rs2.close set rs2=nothing if testo="" or isnull(testo) then testo=" - IN AGGIORNAMENTO - " END IF %>

AMMINISTRAZIONE TRASPARENTE
Amministrazione Trasparente D.lgs. 33 del 14 marzo 2013

<%=titolo%>

<%=testo%> <% '''scrittura a video se presenti allegati if corpo_file<>"" then response.write "


Allegati:

" response.write corpo_file end if %>


                                                                                                                                                               <% 'response.write menuinterno %>