 |
| Iscriviti alla Mailing List per essere
sempre aggiornato sulle nostre ultime novità |
|
|
|
|
 |
Quick
Search: rassegna stampa on-line |
|
|
|
<%
'procedura leggere da file
on error resume next
dim StrTmp
dim MyLink,MyDescr
dim ObjFileSys
dim ObjTextStream
dim FileName 'nome del file
Const ForReading=1
set ObjFileSys=Server.CreateObject("ISSecureFile.FileSystemObject")
FileName=Server.MapPath("writedir/link.txt")
set ObjTextStream = ObjFileSys.OpenTextFile(FileName,ForReading)
Do While ObjTextStream.AtEndOfStream <> True
StrTemp=split(ObjTextStream.ReadLine,"@",-1,1)
MyLink=StrTemp(0)
MyDescr=StrTemp(1)
Response.Write("![]() " + MyDescr + "
")
loop
ObjTextStream.close
set ObjFileSys=nothing
'fine procedura variabili link
%>
|
|
I nostri Link |
|
|
Ricerca nel Web |
|
|
|
|
Quotidiani
Italiani |
|
|
|
|
Informazioni
in rete |
|
|
|
|
Links
no-profit |
|
|
| ©
Copyright Bernardi Eugenio - Tutti i diritti riservati |
| | Credits
 |
|
|
|
