<%@ Language=VBScript %> <% Option Explicit %> <% Dim Vulcano1,Vulcano2,Vulcano3,Vulcano4,Vulcano5,Refresh Dim GMT,sData,Ora,Minuti,Secondi,Path,Path1,Path2,Path3,Path4,Path5,Numero Vulcano1="Ecv" Vulcano2="Emv" Vulcano3="Ent" Vulcano4="Env" Vulcano5="Esv" Refresh="180" 'path="file://discoy/altridati/sorvis/" path="http://www.ct.ingv.it/webcams/" response.write("") response.write("Etna WebCam") response.write("") response.write("") GMT = GMTPart() sData = mid(GMT,1,8) Ora = mid(GMT,9,2) Minuti = mid(GMT,11,2) Secondi = mid(GMT,13,2) 'response.write(GMT & sData & ora & minuti & secondi) Numero=CInt((Ora*3600 + Minuti*60 + Secondi)/180) if (numero<10) then numero="000" & numero end if if (numero>9) and (numero<100) then numero="00" & numero end if if (numero>99) and (numero<1000) then numero="0" & numero end if if (numero>999) then numero=numero end if Path1=Path & Vulcano1 & "/" & sData & "/" & Ora & "00/" & Vulcano1 & Numero & ".jpg" Path2=Path & Vulcano2 & "/" & sData & "/" & Ora & "00/" & Vulcano2 & Numero & ".jpg" Path3=Path & Vulcano3 & "/" & sData & "/" & Ora & "00/" & Vulcano3 & Numero & ".jpg" Path4=Path & Vulcano4 & "/" & sData & "/" & Ora & "00/" & Vulcano4 & Numero & ".jpg" Path5=Path & Vulcano5 & "/" & sData & "/" & Ora & "00/" & Vulcano5 & Numero & ".jpg" response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("
") response.write("

Etna Webcam
") response.write("(Clicca sull'immagine per la mappa della locazione)

") response.write("
") response.write("CUAD
") response.write("		") response.write("MILO
") response.write("		") response.write("NICOLOSI TERMICA
") response.write("
") response.write("
") response.write("NICOLOSI VISIBILE
") response.write("		") response.write("SCHIENA DELL'ASINO
") response.write("
") response.write("") response.write("

Automatic refresh every " & Refresh & " sec.

") response.write("") %>