In questo momento
stanno leggendo Ecoage n utenti
|
 |
Untitled Document
<%
set fso20 = server.createobject("SCRIPTING.filesystemobject")
fpath = Server.MapPath("\mdb-database\news\arca1.txt")
fpath = Server.MapPath("articoli/arca1.txt")
if fso20.fileExists(fpath) Then
Dim FSO20
Dim TS20
Dim MyFileName20
Dim strLog20
MyFileName20 = Server.MapPath("\articoli\arca1.txt")
Set FSO20 = Server.CreateObject("Scripting.FileSystemObject")
Set TS20 = FSO20.OpenTextFile(MyFileName20, 1, 1)
strLog = ""
n=0
if (categoria<>"") Then Response.Write(""+categoria+"")
Do While Not TS20.AtEndOfStream
testo=TS20.ReadLine
testo1=split(testo,"|")
if ((categoria="")or(categoria= testo1(1))) then
n=n+1
'fpathimm = Server.MapPath("public/i"+testo1(0)+".jpg")
'if fso.fileExists(fpathimm) Then
'response.write("!["+UCase(testo1(2))+"](/public/i"+testo1(0)+".jpg) ")
'End If
response.write(""+testo1(5)+"
")
'if (n<3) Then
response.write("")
'End if
if (testo1(0)<>"") Then
response.write(""+testo1(2)+"
")
End if
if (testo1(4)<>"") Then
datagoogle= Replace(testo1(5), "/", "")
response.write(""+testo1(2)+"
")
End if
if (n<2) Then
response.write(testo1(3)+"
")
End if
if (n=1) Then
response.write("
")
End if
End if
if ((n=2) and (nart<>1)) then Exit Do
Loop
TS20.close
Set TS20 = Nothing
Set FSO = Nothing
if (categoria<>"") Then Response.Write("Leggi tutti gli articoli precedenti
")
else
response.write "NO"
end if
%> |
New Media
Dieci anni dal primo browser
Sono passati dieci dalla nascita di Mosaic, il primo browser del web, frutto
dell'ingegno di alcuni studenti dell'Illinois.
05/02/2005
|
< Fonti e bibliografia >
|
|
|
|
|
 Segnala
Ecoage ai tuoi conoscenti Fai
di questo sito la tua home page
oppure se preferisci segui
ogni giorno EcoAge sulla home page
RISPARMIO
Come risparmiare
soldi sulla bolletta:
|
|
NEWS
Notizie alla ribalta
Articoli e segnalazioni:
|
|
RISORSE
RINNOVABILI
Energie alternative
come risparmiare con:
|
| |
|
|
EFFETTO
SERRA
temi di attualità
I principali temi di attualità:
|
TURISMO
SOSTENIBILE
Una alternativa solidale
Come viaggiare in modo responsabile.
|
AUTOMOBILI
Mobilità sostenibile
Parliamo di diesel ecologici, di automobili ibride,
di automobili a benzina con basse emissioni di
CO2, di GPL. Nell'attesa dell'idrogeno le automobili
ecologiche sono quindi già sui nostri listini.
|
|
|
|
|
|
| 
