17/10/2005, 09:05
|
| | | Fecha de Ingreso: octubre-2005
Mensajes: 8
Antigüedad: 19 años, 6 meses Puntos: 0 | |
| <%
Application("copyright") = "(c) 2003 programacionweb.net"
%>
<%
Function Contador
If Application("visitas") = False Then
Application("visitas") = 1
Else
Application("visitas") = Application("visitas") + 1
End If
Contador = Application("visitas")
End Function
%>
<!-- Usaremos VBScript para el contador -->
<%@ LANGUAGE="VBScript" %>
<%
' Contenido y declaracion de la funcion
Function Contador
If Application("visitas") = False Then
Application("visitas") = 1
Else
Application("visitas") = Application("visitas") + 1
End If
Contador = Application("visitas")
End Function
'Llmamos a la funcion
Response.Write "Hemos recivido " & Contador & " visitas."
%>
(Esto es lo que se supone que tengo que copiar en HTML en el FrontPage? es que lo copio todo y no sale nada)
Gracias |