e-consulta periódico digital

Edición Oaxaca

Edición Tlaxcala

Edición Puebla

Warning: mysql_connect() [function.mysql-connect]: Access denied for user 'pueblanet_puebla'@'web.profeti.com.mx' (using password: YES) in /home/consul37/public_html/connections/e-puebla.php on line 24

Warning: mysql_db_query(): supplied argument is not a valid MySQL-Link resource in /home/consul37/public_html/connections/e-puebla.php on line 26

Warning: mysql_fetch_array(): supplied argument is not a valid MySQL result resource in /home/consul37/public_html/connections/e-puebla.php on line 28

inicio > publicidad

Si usted desea anunciarse en nuestro portal, nuestro equipo de expertos en e-marketing le ofrecerá la mejor solución a sus necesidades de publicidad en nuestros espacios reservados
para este fin.

Póngase en contacto con nosotros para recibir información detallada, así como una atención especial y personalizada, diríjase a estos teléfonos donde con gusto lo atenderemos:

Nuestro teléfono: (222) 2 37 78 85 y/o (222) 8 93 07 10 en la ciudad de Puebla, Pue. México, o si lo prefiere envíe un correo a:
publicidad@e-consulta.com.mx

Tarifas Publicitarias

Banner	436 X 68 pixeles
Rascacielos	120 X 600 pixeles
Botón	119 X 62 pixeles
Banner inferior	339 X 62 pixeles
Galería de fotos

¡Recuerde:
e-consulta
tiene un espacio reservado para usted! *

*e-consulta ofrece espacios de publicidad en todas las páginas que forman este portal. Nuestro sistema de anuncios está basado en políticas de regulación comercial vigentes en internet, y protegidas por las leyes mexicanas vigentes en esta materia.

<% Rns.Close() %> <% 'Creamos la conexión al archivo Set Fso = CreateObject("Scripting.FileSystemObject") contadortxt = Server.MapPath("contadores/publicidad.txt") Set FileRead = Fso.OpenTextFile(contadortxt,1,False) 'Leemos el archivo, y guardamos en la variable contador el valor que 'contiene el archivo contador = FileRead.ReadLine Set FileWrite = Fso.OpenTextFile(contadortxt,2,false) 'Aumentamos el contador y escribimos el nuevo resultado en el archivo contador = contador + 1 FileWrite.WriteLine (contador) 'Cerramos los objetos y conexión FileWrite.Close FileRead.Close Set FileWrite = Nothing Set FileRead = Nothing Set Fso = Nothing 'Especificamos que nuestro contador tenga 6 digitos cantdigitos = 6 'Comprobamos la cantidad de caracteres del contador cantcont = Len(contador) For i = 1 to cantdigitos - cantcont contador = "0" & contador Next 'Hacemos un bucle de 1 a 6 (o la cantidad de digitos que se especifico mas arriba) 'Y guardamos cada digito en la variable cantidad For i = 1 to cantdigitos numero = Mid(contador,i,1) cantidad = cantidad & "

" Next %>