Pisos · Cielos
Puertas · Ventanas
Molduras · Tallas en Madera
Cabañas · Decks · Madera en Iglesias y Teatros
Diseño · Construcción
y Supervisión · Naves Industriales
Residencias · Locales Comerciales
Oficinas · Remodelaciones · Aire Acondicionado

Av. Olímpica y 65 Av. Sur
Condominio Galería Olímpica # 201, San Salvador.
Teléfonos: 2280-5822  y  2280-5998
E-mail: info@construya.com.sv
    
 Derechos de Autor: Inversiones de la Cruz Diseño y Mantenimiento: CyTec - Total Cyber Technologies® 
<% ' Text Hit Counter Example By www.PowerASP.com ' Declare variables Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("counter/counter.txt") Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile,1,True) If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close CounterHits = CounterHits + 1 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("counter/counter.txt") Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True) CounterHits = Trim(ReadCounterFile.ReadLine) %>