<%@LANGUAGE="VBSCRIPT"%>
<%
filecontatore= server.MapPath("./public/contatore.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set apro = fs.OpenTextFile(filecontatore)
quanti = Clng(apro.ReadLine)
quanti = quanti + 1
apro.close
Set apro = fs.CreateTextFile(filecontatore,True)
apro.WriteLine(quanti)
apro.Close
%>
Attimi d'autore - Video e fotografia da cerimonia