<% On Error Resume Next set archivo = createobject("scripting.filesystemobject") set objeto = archivo.opentextfile(server.mappath("contador.txt")) contador = clng(objeto.readline) contador = contador + 1 objeto.close Set objeto = archivo.CreateTextFile(server.mappath("contador.txt"), true) objeto.WriteLine(contador) objeto.Close %>
Para poder ver correctamente nuestra web necesita tener instalado Macromedia Flash Player
:: Espa˝ol :: :: English :: :: Franšais :: :: Deutsch ::