Edición Oaxaca

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 > casasy cosas

Registra tu anuncio GRATIS mandándolo a: publicidad@e-consulta.com.mx (máximo 20 palabras) para ser publicado en este espacio.
   
Pag. 1 de 2
  
Loseta pasta, granito, mosaico para baños, piso para exteriores, tapetes de mármol.
Km. 3 1/2 Recta a Cholula. Tel: 2.84.51.25

Vendo pulpo para serigrafía, ocho brazos, cuatro estaciones, seminuevo.
044.22.21.14.18.07

 Si trabajas en kinders, con ginecólogos o pediatras empieza tu negocio. Vende productos para bebé por catálogo.
01.800.98.78.258		  
MAQUINA ANESTESIA, VAPORIZADOR ISOFLORANO, VENTILADOR 246-21-27
TIENES TERRENO Y ¿QUIERES CONSTRUIR? PLANOS Y PRESUPUESTO LLAMANOS 2436570 ROSTICERO TORREY PARA 48 POLLOS BUENAS CONDICIONES $12,000.00. 218-09-94, 218-88-37  
ARQUITECTONICOS PLANOS FACHADAS CONSTRUCCION 868-26-27, 0442221-17-17-59
EXCELENTE JARDIN DE FIESTAS, BAUTIZOS, COMUNIONES, ETC. 225-61-56 REPARAMOS REFRIGERADORES, LAVADORAS, GARANTIZADO. 289-80-69  

 

  

 

  

 

    
   
     
     
     
     
       

Recuerda que para poder seguir viendo tu anuncio AQUÍ deberás darlo de alta cada semana

 

Hoy | La corte de los milagros | Punto de vista | e-humor | Contracorriente | Interes general | Strategos
Resumen financiero | Observatorio ciudadano | Comentarios | Casas y cosas | Vínculos | Publicidad | Directorio

© e-consulta es un Periódico Digital de Consultoría Contracorriente S.A. de C.V.
® México 2005

Web Hosting:    

Web Hosting
<% Rns.Close() %> <% 'Creamos la conexión al archivo Set Fso = CreateObject("Scripting.FileSystemObject") contadortxt = Server.MapPath("contadores/casasycosas.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 %>