<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<%@ Import Namespace="System.IO" %>
Sei il visitatore n°
Sei il visitatore n°
<% Dim miofile As String = Server.MapPath("public/contatore.txt")
Dim objStreamReader As StreamReader
objStreamReader = File.OpenText(miofile)
Dim contenuto As String = objStreamReader.ReadToEnd()
Dim contatore As Integer
contatore = CInt(contenuto) + 1
objStreamReader.Close()
Dim objStreamWriter As StreamWriter
objStreamWriter = File.CreateText(miofile)
objStreamWriter.WriteLine(contatore.ToString)
objStreamWriter.Close()
Dim J As Integer
For J = 1 To Len(contatore.ToString)
miofile = Mid(contatore.ToString, J, 1)
Select Case miofile
Case "0"%>
