|
| |
XXVII CONGRESSO NAZIONALE e INTERNAZIONALE - FEDERAZIONE ITALIANA CUOCHI
24-28 OTTOBRE 2010
Gardaland Theatre e Hotel Parchi del Garda
CASTELNUOVO DEL GARDA – PACENGO DI LAZISE (VR)
AVVISO PER GLI ASSOCIATI
Si invitano coloro che non hanno rinnovato ancora l'iscrizione,
ad affrettarsi stante la prossima scadenza dei termini.
Per chi usa il conto corrente postale farà fede il giorno dell'avvenuto versamento
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
%>
|