<![CDATA[
<body bgcolor="#FFFFFF" text="#000000">
<%
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
varPath = Server.MapPath("visite.txt")
Set MyFile = objFileSystem.OpenTextFile(varPath)
varVisitatori = MyFile.ReadLine
If Session("Visitato") = "" then
varVisitatori = varVisitatori + 1
Session("Visitato") = "SI"
MyFile.close
Set MyFile = objFileSystem.CreateTextFile(varPath, True)
MyFile.WriteLine(varVisitatori)
End If
MyFile.Close
Set objFileSystem=Nothing
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="34%" bgcolor="#C0C0C0">
<tr>
<td width="65%"><font color="#0000FF" face="Verdana" size="2">Questo sito è
stato visitato</font></td>
<td width="14%"><font color="#0000FF" face="Verdana" size="2"><%= varVisitatori %></font></td>
<td width="256%">
<p align="left"><font color="#0000FF" face="Verdana" size="2"> volte</font></td>
</tr>
</table>
</body>
]]>