Ultimi documenti Contabilità Economica
<% if Linguaggio = 1 then Label6 = "Formato e Dimensione" Label4 = "Data" Label5 = "Titolo" IDFolder= "1174" giorni=183 elseif Linguaggio = 2 then Label6 = "Format and Size" Label4 = "Date" Label5 = "Document Title" IDFolder= "1901" giorni=1000 else Label6 = "Formato e Dimensione" Label4 = "Data" Label5 = "Titolo" IDFolder= "1174" giorni=183 end if Label3 = "0" Label3 = "0" if Label3 = "0" then primacolonna = GL_TAGDATAPUBB elseif Label3 = "1" then primacolonna = GL_TAGANNOCOMP elseif Label3 = "2" then primacolonna = GL_TAGDATACOMP else primacolonna = GL_TAGDATAPUBB end if if Label4 <> "" and Label5 <> "" and Label6 <>"" then tipogriglia= "3col" elseif Label4 = "" and Label5 <> "" and Label6 <>"" then tipogriglia= "2colD" elseif Label4 <> "" and Label5 <> "" and Label6 = "" then tipogriglia= "2colS" elseif Label4 = "" and Label5 <> "" and Label6 = "" then tipogriglia= "1col" end if %>
<% if tipogriglia= "3col" then %> <% elseif tipogriglia= "2colD" then %> <% elseif tipogriglia= "2colS" then %> <% elseif tipogriglia= "1col" then %> <% else %> <% end if SQLQuery = NewCaricaUltimiDocTOP15("/versione-i/e-GOVERNME1/Contabilit/",15,"","","") 'SQLQuery = "sp_CaricaCircolariDoc '" & IDFolder & "','1','" & primacolonna & "','','/styles/','/-common/','/tplimage/','/_rti/rtimage/'" Set RSGriglia = Server.CreateObject("ADODB.Recordset") RSGriglia.Open SQLQuery, OBJdbConnectionRGS, 1, 3 'nGroupPrec=0 colore=0 primo=1 if not RSGriglia.eof then Do While not RSGriglia.eof szUrl= RSGriglia("szURL") szTitle= RSGriglia("szTitle") szUrlAss = RSGriglia("szURLAss") szDir = RSGriglia("szDir") estensione = RSGriglia("estensione") if Linguaggio = 2 then datoCol1 = RSGriglia("datoCol1") else datoCol1 = FormatDate(RSGriglia("datoCol1")) end if szDescr = RSGriglia("szDescr") szPercorso = szUrl szPercorsoAss = szUrlAss idDoc = RSGriglia("ID") dimensione = RestituisciDimensione(szPercorsoAss) btype= RSGriglia("btype") nconversion=RSGriglia("nconversion") if btype = "0" then SQLQueryLink = "sp_LinkDocAss " & idDoc & ", '" & primacolonna & "'" Set RSGrigliaLink = Server.CreateObject("ADODB.Recordset") RSGrigliaLink.Open SQLQueryLink, OBJdbConnectionRGS, 1, 3 if not RSGrigliaLink.eof then szUrl= RSGrigliaLink("szURL") szTitle= RSGrigliaLink("szTitle") szUrlAss = RSGrigliaLink("szURLAss") szDir = RSGrigliaLink("szDir") estensione = RSGrigliaLink("estensione") if Linguaggio = 2 then datoCol1 = RSGrigliaLink("datoCol1") else datoCol1 = FormatDate(RSGrigliaLink("datoCol1")) end if szDescr = RSGrigliaLink("szDescr") szPercorso = szUrl szPercorsoAss = szUrlAss idDoc = RSGrigliaLink("ID") btype= RSGrigliaLink("type") dimensione = RestituisciDimensione(szPercorsoAss) nconversion=RSGrigliaLink("nconversion") end if RSGrigliaLink.close set RSGrigliaLink = nothing end if if colore= 0 then if primo=1 then classecol1="dataGrigliaTableBlu" classecol2="titoloGrigliaTableBlu" classecol3="FeDGrigliaTableBlu" else classecol1="dataGrigliaTableBluT" classecol2="titoloGrigliaTableBluT" classecol3="FeDGrigliaTableBluT" end if if tipogriglia= "3col" then %> <%if cstr(btype)<>"2" then SQLQueryInt = "exec sp_CaricaAllegatiDoc " & idDoc Set RSGrigliaAss = Server.CreateObject("ADODB.Recordset") RSGrigliaAss.Open SQLQueryInt, OBJdbConnectionRGS, 1, 3 if not RSGrigliaAss.eof then Do While not RSGrigliaAss.eof szUrlAss= RSGrigliaAss("szURL") szTitleAss= RSGrigliaAss("szTitle") estensioneAss = RSGrigliaAss("estensione") if estensioneAss <> "" then dimensioneAss = RestituisciDimensione(szUrlAss) else dimensioneAss = "" end if %> <% RSGrigliaAss.movenext Loop end if RSGrigliaAss.close set RSGrigliaAss = nothing end if %> <% elseif tipogriglia= "2colD" then %> <%if cstr(btype)<>"2" then SQLQueryInt = "exec sp_CaricaAllegatiDoc " & idDoc Set RSGrigliaAss = Server.CreateObject("ADODB.Recordset") RSGrigliaAss.Open SQLQueryInt, OBJdbConnectionRGS, 1, 3 if not RSGrigliaAss.eof then Do While not RSGrigliaAss.eof szUrlAss= RSGrigliaAss("szURL") szTitleAss= RSGrigliaAss("szTitle") estensioneAss = RSGrigliaAss("estensione") if estensioneAss <> "" then dimensioneAss = RestituisciDimensione(szUrlAss) else dimensioneAss = "" end if %> <% RSGrigliaAss.movenext Loop end if RSGrigliaAss.close set RSGrigliaAss = nothing end if %> <% elseif tipogriglia= "2colS" then %> <%if cstr(btype)<>"2" then SQLQueryInt = "exec sp_CaricaAllegatiDoc " & idDoc Set RSGrigliaAss = Server.CreateObject("ADODB.Recordset") RSGrigliaAss.Open SQLQueryInt, OBJdbConnectionRGS, 1, 3 if not RSGrigliaAss.eof then Do While not RSGrigliaAss.eof szUrlAss= RSGrigliaAss("szURL") szTitleAss= RSGrigliaAss("szTitle") estensioneAss = RSGrigliaAss("estensione") %> <% RSGrigliaAss.movenext Loop end if RSGrigliaAss.close set RSGrigliaAss = nothing end if %> <% elseif tipogriglia= "1col" then %> <%if cstr(btype)<>"2" then SQLQueryInt = "exec sp_CaricaAllegatiDoc " & idDoc Set RSGrigliaAss = Server.CreateObject("ADODB.Recordset") RSGrigliaAss.Open SQLQueryInt, OBJdbConnectionRGS, 1, 3 if not RSGrigliaAss.eof then Do While not RSGrigliaAss.eof szUrlAss= RSGrigliaAss("szURL") szTitleAss= RSGrigliaAss("szTitle") estensioneAss = RSGrigliaAss("estensione") %> <% RSGrigliaAss.movenext Loop end if RSGrigliaAss.close set RSGrigliaAss = nothing end if %> <% else %> <%if cstr(btype)<>"2" then SQLQueryInt = "exec sp_CaricaAllegatiDoc " & idDoc Set RSGrigliaAss = Server.CreateObject("ADODB.Recordset") RSGrigliaAss.Open SQLQueryInt, OBJdbConnectionRGS, 1, 3 if not RSGrigliaAss.eof then Do While not RSGrigliaAss.eof szUrlAss= RSGrigliaAss("szURL") szTitleAss= RSGrigliaAss("szTitle") estensioneAss = RSGrigliaAss("estensione") %> <% RSGrigliaAss.movenext Loop end if RSGrigliaAss.close set RSGrigliaAss = nothing end if %> <% end if %> <% else if primo=1 then classecol1="dataGrigliaTable" classecol2="titoloGrigliaTable" classecol3="FeDGrigliaTable" else classecol1="dataGrigliaTableT" classecol2="titoloGrigliaTableT" classecol3="FeDGrigliaTableT" end if if tipogriglia= "3col" then %> <%if cstr(btype)<>"2" then SQLQueryInt = "exec sp_CaricaAllegatiDoc " & idDoc Set RSGrigliaAss = Server.CreateObject("ADODB.Recordset") RSGrigliaAss.Open SQLQueryInt, OBJdbConnectionRGS, 1, 3 if not RSGrigliaAss.eof then Do While not RSGrigliaAss.eof szUrlAss= RSGrigliaAss("szURL") szTitleAss= RSGrigliaAss("szTitle") estensioneAss = RSGrigliaAss("estensione") if estensioneAss <> "" then dimensioneAss = RestituisciDimensione(szUrlAss) else dimensioneAss = "" end if %> <% RSGrigliaAss.movenext Loop end if RSGrigliaAss.close set RSGrigliaAss = nothing end if %> <% elseif tipogriglia= "2colD" then %> <%if cstr(btype)<>"2" then SQLQueryInt = "exec sp_CaricaAllegatiDoc " & idDoc Set RSGrigliaAss = Server.CreateObject("ADODB.Recordset") RSGrigliaAss.Open SQLQueryInt, OBJdbConnectionRGS, 1, 3 if not RSGrigliaAss.eof then Do While not RSGrigliaAss.eof szUrlAss= RSGrigliaAss("szURL") szTitleAss= RSGrigliaAss("szTitle") estensioneAss = RSGrigliaAss("estensione") if estensioneAss <> "" then dimensioneAss = RestituisciDimensione(szUrlAss) else dimensioneAss = "" end if %> <% RSGrigliaAss.movenext Loop end if RSGrigliaAss.close set RSGrigliaAss = nothing end if %> <% elseif tipogriglia= "2colS" then %> <%if cstr(btype)<>"2" then SQLQueryInt = "exec sp_CaricaAllegatiDoc " & idDoc Set RSGrigliaAss = Server.CreateObject("ADODB.Recordset") RSGrigliaAss.Open SQLQueryInt, OBJdbConnectionRGS, 1, 3 if not RSGrigliaAss.eof then Do While not RSGrigliaAss.eof szUrlAss= RSGrigliaAss("szURL") szTitleAss= RSGrigliaAss("szTitle") ' estensioneAss = RSGrigliaAss("estensione") %> <% RSGrigliaAss.movenext Loop end if RSGrigliaAss.close set RSGrigliaAss = nothing end if %> <% elseif tipogriglia= "1col" then %> <%if cstr(btype)<>"2" then SQLQueryInt = "exec sp_CaricaAllegatiDoc " & idDoc Set RSGrigliaAss = Server.CreateObject("ADODB.Recordset") RSGrigliaAss.Open SQLQueryInt, OBJdbConnectionRGS, 1, 3 if not RSGrigliaAss.eof then Do While not RSGrigliaAss.eof szUrlAss= RSGrigliaAss("szURL") szTitleAss= RSGrigliaAss("szTitle") ' estensioneAss = RSGrigliaAss("estensione") %> <% RSGrigliaAss.movenext Loop end if RSGrigliaAss.close set RSGrigliaAss = nothing end if %> <% else %> <%if cstr(btype)<>"2" then SQLQueryInt = "exec sp_CaricaAllegatiDoc " & idDoc Set RSGrigliaAss = Server.CreateObject("ADODB.Recordset") RSGrigliaAss.Open SQLQueryInt, OBJdbConnectionRGS, 1, 3 if not RSGrigliaAss.eof then Do While not RSGrigliaAss.eof szUrlAss= RSGrigliaAss("szURL") szTitleAss= RSGrigliaAss("szTitle") ' estensioneAss = RSGrigliaAss("estensione") %> <% RSGrigliaAss.movenext Loop end if RSGrigliaAss.close set RSGrigliaAss = nothing end if %> <% end if end if if colore = 0 then colore = 1 else colore = 0 end if if primo = 1 then primo = 0 end if RSGriglia.movenext Loop end if RSGriglia.close set RSGriglia = nothing if tipogriglia= "3col" then%> <% elseif tipogriglia= "2colD" then %> <% elseif tipogriglia= "2colS" then %> <% elseif tipogriglia= "1col" then %> <% else %> <% end if %>
<%=Label4%> <%=Label5%> <%=Label6%>
<%=Label5%> <%=Label6%>
<%=Label4%> <%=Label5%>
<%=Label5%>
<%=Label5%>
<%=datoCol1%> <%=szTitle%><%=linkesternoLabel(szPercorso, linguaggio)%> <%if szDescr<>"" then%>
<%=szDescr%>
<%end if %> 		<%if nconversion = 0 then%> <%=estensione%> <%end if%> <%if nconversion = 0 then if dimensione <> "" then %>   (<%=dimensione%>) <%end if end if%>
<%=szTitleAss%><%=linkesternoLabel(szUrlAss, linguaggio)%> <% if estensioneAss <> "" then%> <%=estensioneAss%> <%end if%> <% if dimensioneAss <> "" then %>   (<%=dimensioneAss%>) <%end if%>
<%=szTitle%><%=linkesternoLabel(szPercorso, linguaggio)%> <%if szDescr<>"" then%>
<%=szDescr%>
<%end if %> 		<%if nconversion = 0 then%> <%=estensione%> <%end if%> <%if nconversion = 0 then if dimensione <> "" then %>   (<%=dimensione%>) <%end if end if%>
<%=szTitleAss%><%=linkesternoLabel(szPercorso, linguaggio)%> <% if estensioneAss <> "" then%> <%=estensioneAss%> <%end if%> <% if dimensioneAss <> "" then %>   (<%=dimensioneAss%>) <%end if%>
<%=datoCol1%> <%=szTitle%><%=linkesternoLabel(szPercorso, linguaggio)%> <%if szDescr<>"" then%>
<%=szDescr%>
<%end if %>
<%=szTitleAss%><%=linkesternoLabel(szUrlAss, linguaggio)%>
<%=szTitle%><%=linkesternoLabel(szPercorso, linguaggio)%> <%if szDescr<>"" then%>
<%=szDescr%>
<%end if %>
<%=szTitleAss%><%=linkesternoLabel(szUrlAss, linguaggio)%>
<%=szTitle%><%=linkesternoLabel(szPercorso, linguaggio)%> <%if szDescr<>"" then%>
<%=szDescr%>
<%end if %>
<%=szTitleAss%><%=linkesternoLabel(szUrlAss, linguaggio)%>
<%=datoCol1%> <%=szTitle%><%=linkesternoLabel(szPercorso, linguaggio)%> <%if szDescr<>"" then%>
<%=szDescr%>
<%end if %> 		<%if nconversion = 0 then%> <%=estensione%> <%end if%> <%if nconversion = 0 then if dimensione <> "" then %>   (<%=dimensione%>) <%end if end if%>
<%=szTitleAss%><%=linkesternoLabel(szUrlAss, linguaggio)%> <% if estensioneAss <> "" then%> <%=estensioneAss%> <%end if%> <% if dimensioneAss <> "" then %>   (<%=dimensioneAss%>) <%end if%>
<%=szTitle%><%=linkesternoLabel(szPercorso, linguaggio)%> <%if szDescr<>"" then%>
<%=szDescr%>
<%end if %> 		<%if nconversion = 0 then%> <%=estensione%> <%end if%> <%if nconversion = 0 then if dimensione <> "" then %>   (<%=dimensione%>) <%end if end if%>
<%=szTitleAss%><%=linkesternoLabel(szUrlAss, linguaggio)%> <% if estensioneAss <> "" then%> <%=estensioneAss%> <%end if%> <% if dimensioneAss <> "" then %>   (<%=dimensioneAss%>) <%end if%>
<%=datoCol1%> <%=szTitle%><%=linkesternoLabel(szPercorso, linguaggio)%> <%if szDescr<>"" then%>
<%=szDescr%>
<%end if %>
<%=szTitleAss%><%=linkesternoLabel(szUrlAss, linguaggio)%>
<%=szTitle%><%=linkesternoLabel(szPercorso, linguaggio)%> <%if szDescr<>"" then%>
<%=szDescr%>
<%end if %>
<%=szTitleAss%><%=linkesternoLabel(szUrlAss, linguaggio)%>
<%=szTitle%><%=linkesternoLabel(szPercorso, linguaggio)%> <%if szDescr<>"" then%>
<%=szDescr%>
<%end if %>
<%=szTitleAss%><%=linkesternoLabel(szUrlAss, linguaggio)%>