<% Dim objRS Set objRS = Server.CreateObject("ADODB.RecordSet") %>

HOME >Mappe di vincolo Aeroporto “Marcello Arlotta” di Grottaglie

 

 Mappe di vincolo Aeroporto “Marcello Arlotta” di Grottaglie

Di seguito sono riportate le Mappe in PDF. I file sono ad alta risoluzione: si consiglia pertanto di scaricarli sul proprio Personal Computer con la funzione "Salva oggetto con Nome" utilizzando una connessione ADSL o similar





 

Ctr con superficie TOFPA (Take Off Flight Path Area) e terreno forante
A35-A17

<% Dim objFso, objFolder, objFiles, strFolder, strFile strPath = "A35-A17/" Set objFso = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) Set objFiles = objFolder.Files For Each strFile in objFiles Response.Write("

") response.write("" & strFile.name & "
") Response.Write("

") Next Set objFso = Nothing Set objFolder = Nothing Set objFiles = Nothing %>

- - - - -

Planimetri Catastali con indicazione pericoli
PC01-A-B-C

<% Dim objFso2, objFolder2, objFiles2, strFolder2, strFile2 strPath2 = "PC01-A-B-C/" Set objFso2 = Server.CreateObject("Scripting.FileSystemObject") Set objFolder2 = objFso2.GetFolder(Server.MapPath(strPath2)) Set objFiles2 = objFolder2.Files For Each strFile2 in objFiles2 Response.Write("

") response.write("" & strFile2.name & "
") Response.Write("

") Next Set objFso2 = Nothing Set objFolder2 = Nothing Set objFiles2 = Nothing %>

- - - - -

Verifica limiti aeroportuali sul territorio comunale. Planimetrie Comune
PCX

<% Dim objFso3, objFolder3, objFiles3, strFolder3, strFile3 strPath3 = "PCX/" Set objFso3 = Server.CreateObject("Scripting.FileSystemObject") Set objFolder3 = objFso3.GetFolder(Server.MapPath(strPath3)) Set objFiles3 = objFolder3.Files For Each strFile3 in objFiles3 Response.Write("

") response.write("" & strFile3.name & "
") Response.Write("

") Next Set objFso3 = Nothing Set objFolder3 = Nothing Set objFiles3 = Nothing %>

- - - - -

Verifica limiti aeroportuali sul territorio comunale
PG_200DPI

<% Dim objFso4, objFolder4, objFiles4, strFolder4, strFile4 strPath4 = "PG_200DPI/" Set objFso4 = Server.CreateObject("Scripting.FileSystemObject") Set objFolder4 = objFso4.GetFolder(Server.MapPath(strPath4)) Set objFiles4 = objFolder4.Files For Each strFile4 in objFiles4 Response.Write("

") response.write("" & strFile4.name & "
") Response.Write("

") Next Set objFso4 = Nothing Set objFolder4 = Nothing Set objFiles4 = Nothing %>

- - - - -

Verifica limiti aeroportuali sul territorio comunale
PG_1200DPI

<% Dim objFso5, objFolder5, objFiles5, strFolder5, strFile5 strPath5 = "PG_1200DPI/" Set objFso5 = Server.CreateObject("Scripting.FileSystemObject") Set objFolder5 = objFso5.GetFolder(Server.MapPath(strPath5)) Set objFiles5 = objFolder5.Files For Each strFile5 in objFiles5 Response.Write("

") response.write("" & strFile5.name & "
") Response.Write("

") Next Set objFso5 = Nothing Set objFolder5 = Nothing Set objFiles5 = Nothing %>

- - - - -

Verifica limiti aeroportuali sul territorio comunale
R1

<% Dim objFso6, objFolder6, objFiles6, strFolder6, strFile6 strPath6 = "R1/" Set objFso6 = Server.CreateObject("Scripting.FileSystemObject") Set objFolder6 = objFso6.GetFolder(Server.MapPath(strPath6)) Set objFiles6 = objFolder6.Files For Each strFile6 in objFiles6 Response.Write("

") response.write("" & strFile6.name & "
") Response.Write("

") Next Set objFso6 = Nothing Set objFolder6 = Nothing Set objFiles6 = Nothing %>

- - - - -

Relazione tecnica, + elenco delle particelle catastali interessate dalla proiezione delle superfici di delimitazione degli ostacoli
RT

<% Dim objFso7, objFolder7, objFiles7, strFolder7, strFile7 strPath7 = "RT/" Set objFso7 = Server.CreateObject("Scripting.FileSystemObject") Set objFolder7 = objFso7.GetFolder(Server.MapPath(strPath7)) Set objFiles7 = objFolder7.Files For Each strFile7 in objFiles7 Response.Write("

") response.write("" & strFile7.name & "
") Response.Write("

") Next Set objFso7 = Nothing Set objFolder7 = Nothing Set objFiles7 = Nothing %>

- - - - -

Planimetria catastale con superficie di salita al decollo e terreno forante
TOCS35

<% Dim objFso8, objFolder8, objFiles8, strFolder8, strFile8 strPath8 = "TOCS35/" Set objFso8 = Server.CreateObject("Scripting.FileSystemObject") Set objFolder8 = objFso8.GetFolder(Server.MapPath(strPath8)) Set objFiles8 = objFolder8.Files For Each strFile8 in objFiles8 Response.Write("

") response.write("" & strFile8.name & "
") Response.Write("

") Next Set objFso8 = Nothing Set objFolder8 = Nothing Set objFiles8 = Nothing %>            

 

 

 

 <%=Date()%> | ore:<%=Time()%> | Stampa questa pagina | Torna indietro     

ShinyStat