<%
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>
Aislamiento acústico, cabinas acústicas, insonorización, mapas acústicos
</body>
]]>