Colegio Sta. Mª
de los Apóstoles |
| Inicio ¿Quienes somos? Situación Instalaciones Niveles educativos Organigrama Departamentos E. Primaria E. Secundaria Bachillerato Ciclos Formativos FCT Pastoral Empresas Descargas Bolsa de trabajo Sugerencias Enlaces de interés Extraescolares Liga Deportiva |
<%
activo = session("activo")
on error resume next
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("contador.txt"))
counter = clng(act.readline)
if session("activo") <> "si" then
counter = counter + 1
end if
act.close
Set act = fso.CreateTextFile(server.mappath("contador.txt"), true)
act.WriteLine(counter)
act.Close
counter=replace(counter,"0"," |
")
counter=replace(counter,"1","
")
counter=replace(counter,"2","
")
counter=replace(counter,"3","
")
counter=replace(counter,"4","
")
counter=replace(counter,"5","
")
counter=replace(counter,"6","
")
counter=replace(counter,"7","
")
counter=replace(counter,"8","
")
counter=replace(counter,"9","
")
Response.Write "VISITANTE: " & counter
session("activo") = "si"
%>