<% on error resume next filecontatore= server.MapPath("/public/contatore.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set apro = fs.OpenTextFile(filecontatore) quanti = Clng(apro.ReadLine) quanti = quanti + 1 apro.close Set apro = fs.CreateTextFile(filecontatore,True) apro.WriteLine(quanti) apro.Close 'response.write "La pagina ha recibido "& hits & " visitas" %>
 
 



  :: PRESENTACION
  :: ACTIVIDADES
  :: GALERIAS
  :: CONTACTO
  :: PATROCINADORES
  :: FORO
  :: ENLACES
  :: INSCRIPCIONES
  :: NUESTRA PIZARRA



correo@bimares.net
Visitas www.escarti.net