|
|
|
Calcola l'inquinamento prodotto dalla tua automobile
Ogni automobile produce una determinata quantità
di emissioni di gas serra (CO2) che contribuiscono
al riscaldamento del nostro pianeta (effetto
serra).
Compila il test a lato
e lo scoprirai.
|
oppure se preferisci segui
ogni giorno EcoAge sulla home page
Ogni articolo di Ecoage
può essere pubblicato su altri siti web senza
chiedere la nostra autorizzazione purché sia
sempre presente come fonte www.ecoage.com
con link attivo.
|
|
|
|
|
<%
nomef = "elementi/barralaterale1.htm"
nomef2 = "\elementi\barralaterale1.htm"
set fso8 = server.createobject("SCRIPTING.filesystemobject")
Dim FSO8
Dim TS8
Dim MyFileName8
fpath = Server.MapPath(nomef)
if fso8.fileExists(fpath) Then
MyFileName8 = Server.MapPath(nomef2)
Set FSO8 = Server.CreateObject("Scripting.FileSystemObject")
Set TS8 = FSO8.OpenTextFile(MyFileName8, 1, 1)
strLog = ""
n=0
Do While Not TS8.AtEndOfStream
Response.Write TS8.ReadLine
Loop
TS8.close
Set TS8 = Nothing
Set FSO8 = Nothing
End If
%>
<%
nomef = "elementi/barralaterale2.htm"
nomef2 = "\elementi\barralaterale2.htm"
set fso7 = server.createobject("SCRIPTING.filesystemobject")
Dim FSO7
Dim TS7
Dim MyFileName7
fpath = Server.MapPath(nomef)
if fso7.fileExists(fpath) Then
MyFileName7 = Server.MapPath(nomef2)
Set FSO7 = Server.CreateObject("Scripting.FileSystemObject")
Set TS7 = FSO7.OpenTextFile(MyFileName7, 1, 1)
strLog = ""
n=0
Do While Not TS7.AtEndOfStream
Response.Write TS7.ReadLine
Loop
TS7.close
Set TS7 = Nothing
Set FSO7 = Nothing
End If
%>
|
Segnala
Ecoage ai tuoi conoscenti
