<% dim objFS, fleHits Set objFS = CreateObject("Scripting.FileSystemObject") Set fleHits = objFS.OpenTextFile(server.mappath("hitsFile.txt"),1) if isObject(fleHits) then currentHits = fleHits.ReadLine if isNumeric(currentHits) then currentHits = clng(currentHits) else currentHits = 0 end if else currentHits = 0 end if fleHits.Close currentHits = cstr(currentHits + 1) Set fleHits = objFS.CreateTextFile(server.mappath("correo/hitsFile.txt"),True) fleHits.writeLine cstr(currentHits) fleHits.close set objFs=nothing %>  
     
 

Nuestras oficinas están ubicadas en dos direcciones:

Kilómetro 116.5 autopista México - Puebla, Antiguo camino a Ocotlán Num. 842, Parque Industrial Coronango Puebla, CP: 72680
Teléfonos de Puebla: 01(222) 2 10 63 23; 2 10 63 24

Servicio a Clientes: 01(800) 00 00; Red (733)

Sucursal: Calle 7 no 213 Col. Xicohtencatl, Tlaxcala Tlax.CP. 90000 Tel. 01(246) 46 2 78 19...................... Fax 01(246) 46 6 25 56.................................................

Servicio a Clientes: .01 (800) 20 100 71 (lada sin costo)

Contáctanos al E-mail: ventas@redcarrier.com