<% 'Creamos la conexión al archivo Set Fso = CreateObject("Scripting.FileSystemObject") contadortxt = Server.MapPath("gtkCont.txt") contadortxt = replace (lcase(contadortxt),"ambitgaleriaartcom\","ambitgaleriaartcom\mdb-database\") 'Response.Write "MapPath:" & contadortxt 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 Set FileWrite = Fso.OpenTextFile(contadortxt,2,false) 'Aumentamos el contador y escribimos el nuevo resultado en el archivo contador = contador + 1 FileWrite.WriteLine (contador) 'Cerramos los objetos y conexión FileWrite.Close FileRead.Close Set FileWrite = Nothing 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 %>