Código fuente de 'Contador de impresiones.asp'

<html>
<head>
<title>Contador de impresiones - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
<body style="font-family: Arial; font-size: 9pt">
<p align="center"><b><font size="3">Contador de impresiones</font></b><br><br></p>
Este script utiliza un documento "Impresiones.txt" donde cuenta el número de impresiones.
<br>
Primero añade 1 a la cuenta y luego redirige a la imagen a mostrar (en este caso se ha deshabilitado 
este último caso: ver código para activar las últimas líneas).

<br>

<%
' name of the text document that will track the numer of impressions
count_file="Impresiones.txt"
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath(count_file))
counter = clng(act.readline)
counter = counter + 1
act.close
Set act = fso.createtextfile(server.mappath(count_file), true)
act.writeline(counter)
act.Close
' redirect to the image you want to display
'response.redirect "images/codeave-logo.gif" 
%> 

</body>
</html>