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. 2 de 2
  

 

 

    
     
     

 

  

 

  
 

 

    
       
       
       
 

 

    
     
       

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 %>