<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' 11 Septiembre 2013 URLActual = Application("myURLv4") %> Gopac | Contacto ]
 
<% '24-oct-2013 'se agrega el filtro para que permita nulos el campo EditTime en la transformacion de datos csv a sql '*************************************************************************** ' datos contacto gopac '*************************************************************************** Dim PathSchema 'PathSchema = "D:\wamp\www\Gopacv4\contacto" 'Version Internet PathSchema = "D:\Inetpub\gopac.com.mx\sites\gopac.com.mx\contacto" Set Conn = Server.CreateObject("ADODB.Connection") Set obj_RecordSet = Server.CreateObject("ADODB.Recordset") '************* CAMBIAR LA RUTA Dbq AL CAMBIAR DE DIRECTORIO VIRTUAL **************** Conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _ "HDR=no;" &_ "Dbq=" & PathSchema & ";" & _ "Extensions=asc,csv,tab,txt;" & _ "Persist Security Info=False" Dim sql sql = "SELECT * from datosc.csv" set obj_RecordSet = conn.execute(sql) On Error Resume Next Set Conexion=CreateObject("ADODB.Connection") Conexion.Open servidorx Dim myError myError = "" Dim AREA,EM,TELEFONO,NOMBRE,EXT,idDiv,i2 do while not obj_RecordSet.EOF AREA= obj_RecordSet("AREA") EM= obj_RecordSet("EM") TELEFONO= obj_RecordSet("TELEFONO") NOMBRE= obj_RecordSet("NOMBRE") EXT= obj_RecordSet("EXT") idDiv= obj_RecordSet("idDiv") %>
<% obj_RecordSet.MoveNext loop Conexion.Close set Conexion=Nothing set obj_RecordSet=Nothing Conn.Close set Conn = Nothing '**************************************************************************** %>
 

Guadalajara Jalisco

Tel: +52 (33) 3880 9500
Fax: +52 (33) 3880 9528
01-800-74-GOPAC
Av. Cubilete 772 Col. Chapalita,
C.P. 45040 Zapopan, Jal. Méx.

México Distrito Federal


Tel: +52 (55) 2000-0585
Tel: +52 (55) 2000-0586
Mariano Escobedo 510 PH 34
Col. Anzures C.P.11590 México D.F.

San José California USA


(408)-754-3161
658 Vía del Oro
C.P. 9511-1201

Para nuestros clientes y proveedores las Oficinas de Guadalajara cuentan
con 7 cajones de estacionamiento.