<% 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 %> var str = "<%= conta %>"; var begin = ""; for(x = 0;x < str.length; x++) { str1 = str.charAt(x); document.write(begin + str1 + middle + str1 + last); }