|
| |
|
Grande successo della Cena di Gala
in occasione della “IX Giornata del Cuoco Irpino”
20 Dicembre 2010
Villa Regina (Grottaminarda)
|
|
Montart
- Istituto Superiore Arte Culinaria
Per informazioni telefonare all' A.C.A.
Avviso per i Soci che intendono ricevere le nostre news
<%
Dim strLinea, FileObject, Instream, intVisite, intTipo, OutStream
strFile = Server.MapPath("visite.txt")
' creo l'oggetto
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
' apro il file
intTipo = 1 ' lettura
Set InStream = FileObject.OpenTextFile(strFile, intTipo, true)
' ciclo che legge tutte le linee
intVisite = InStream.ReadLine()
intVisite = Cint(intVisite) + 1
' libero risorse
InStream.Close
Set InStream = Nothing
intTipo = 2 ' scrittura
Set OutStream = FileObject.OpenTextFile(strFile, intTipo, true)
OutStream.WriteLine (intVisite)
' libero risorse
OutStream.Close
Set OutStream = Nothing
Set FileObject = Nothing
%>
<%
for i = 1 to Len(intVisite)
Response.write " &) "
next
%>
|
