aston, contador con txt porfa...!

[Mecenias]

Bueno si te sirve este:
<pre>
&lt;%
Set fs = CreateObject(&quot;Scripting.FileSystemObject&quot ;)
direcion=server.MapPath(&quot;contador.txt&quot;)
If fs.FileExists(SERVER.MapPath(&quot;contador.txt&qu ot;)) then
Set FicheroTexto= fs.OpenTextFile(SERVER.MapPath(&quot;contador.txt& quot;))
Application.Lock
contador= 0
contador=Ficherotexto.readline
aux=(contador + 1)
Application.UnLock
FicheroTexto.close
Set FicheroTexto= fs.Createtextfile(SERVER.MapPath(&quot;contador.tx t&quot;))
FicheroTexto.writeline(aux)
FicheroTexto.close
end if
%&gt;
</pre>

NOta:Inicialmente te creas el fichero en el servidor y lo pones a 0.

Saludos