<%
Set Fso = CreateObject("Scripting.FileSystemObject")
entradastxt = Server.MapPath("\temp\entradas.txt")
Set FileRead = Fso.OpenTextFile(entradastxt,1,False)
entradas = FileRead.ReadLine
Set FileWrite = Fso.OpenTextFile(entradastxt,2,false)
entradas = entradas + 1
FileWrite.WriteLine (entradas)
FileWrite.Close
FileRead.Close
Set FileWrite = Nothing
Set FileRead = Nothing
Set Fso = Nothing
%>
<![CDATA[
<body>
Alcuedor es una empresa fundada en 1950 y desde entonces nos dedicamos a la fabricacion manual de todo tipo de rosarios. especializados en los autenticos petalos de rosa y de jazmin los cuales sumnistramos con su descripcion en ingles y espaņol.
En el aņo 2000 la camara de comercio de barcelona nos otorgo el diploma de empresa ejemplar por nuestros 50 aņos de buen servicio.
</body>
]]>