<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") strFichero = Server.MapPath("Visitas.txt") Set InStream = FileObject.OpenTextFile (strFichero, 1, false ) Cuenta = Trim(InStream.ReadLine) Cuenta = Cuenta + 1 Set OutStream = FileObject.CreateTextFile (strFichero, True) OutStream.WriteLine(Cuenta) InStream.close Set InStream = Nothing OutStream.Close Set OutStream = Nothing Set FileObject = Nothing %>

Addpac-200b
El uso del AddPac AP200B garantiza a su negocio
los más elevados valores de compatibilidad de red.


Sipuras de uno
y dos puertos
Económicos, fáciles de instalar
y de sencillo uso.
Excelente calidad de voz
VER

 

Cuenta :

PIN :


Tarificadores
Usted podrá llevar un control de toda la actividad de sus cabinas

Numero de visitas: <% = Cuenta %>

Estadisticas y contadores web gratis
cursos inmobiliaria.it