<%@ Language=VBScript %>

ciao sono ivano

<% 'Response.Expires = 0 response.Write("

riga scritta dallo script

") set fs = createobject("Scripting.FileSystemObject") Path = Server.MapPath("conta.txt") set a = fs.OpenTextFile(path) conta = a.readline if session("Conta") = "" then session("conta") = conta conta = conta + 1 a.close set a = fs.CreateTextFile(path,true) a.writeline(conta) end if a.close Response.Write conta %>