 |
| Iscriviti alla Mailing List per essere
sempre aggiornato sulle nostre ultime novità |
|
|
|
|
|
 |
Consigliati da noi... |
<%
'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/relazioni.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
%>
|
