<% 'Creamos la conexión al archivo Set Fso = CreateObject("Scripting.FileSystemObject") contadortxt = Server.MapPath("contador.txt") Set FileRead = Fso.OpenTextFile(contadortxt,1,False) 'Leemos el archivo, y guardamos en la variable contador el valor que contiene el archivo contador = FileRead.ReadLine 'Cerramos los objetos y conexión FileRead.Close Set FileRead = Nothing Set Fso = Nothing 'Especificamos que nuestro contador tenga 6 digitos cantdigitos = 6 'Comprobamos la cantidad de caracteres del contador cantcont = Len(contador) For i = 1 to cantdigitos - cantcont contador = "0" & contador Next 'Hacemos un bucle de 1 a 6 (o la cantidad de digitos que se especifico mas arriba) 'Y guardamos cada digito en la variable cantidad For i = 1 to cantdigitos numero = Mid(contador,i,1) cantidad = cantidad & "" Next %>

Cantidad de Visitas
<%=cantidad%>

Home