<%
Response.Expires = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Path = server.mappath("conta.txt")
Set a = fs.OpenTextFile(path)
conta = a.ReadLine
'Controllo gli aggiornamenti di pagina
If Session("conta") = "" then
Session("conta") = conta
'Incremento di 1 il valore presente nel file di testo
conta = conta + 1
a.close
'Scrivo sul file di testo il nuovo valore
Set a = fs.CreateTextFile(path, True)
a.WriteLine(conta)
End If
a.Close
%>
La rivista per la distribuzione moderna dedicata ai prodotti per la cura della persona e della casa.
L'unica fiera virtuale che fa crescere il tuo business nel mondo della cosmetica e del professionale.Tutti i vantaggi delle fiere...con molti costi
in meno.
Mte edizioni s.r.l. - via r. gessi, 28 - 20146 Milano (Italy) - P. IVA IT 08963850154 - E-mail: mteedizi@mteedizioni.it
