Ver Mensaje Individual
  #1 (permalink)  
Antiguo 07/04/2004, 06:59
guille3d
 
Fecha de Ingreso: noviembre-2003
Mensajes: 1
Antigüedad: 21 años, 5 meses
Puntos: 0
Invocar codigo asp

yo tengo un sitio web pero cuando agrego un contador hecho en asp no funciona, la gente del servidor me dice los sig.

"En algun lugar de la pagina, hace
llamada al codigo ese ASP que subio? Porque si lo sube sin invocarlo en
ningun momento, el mismo no va a funcionar."


no entiendo a que se refiere con esto. el codigo que yo tengo es el sig:

<%
'Creamos la conexión al archivo
Set Fso = CreateObject("Scripting.FileSystemObject")
contadortxt = Server.MapPath("contador.txt")

Set FileRead = Fso.OpenTextFile(contadortxt,1,False)
'Leemos el archivo, y guardamos en la variable contador el valor que contiene el archivo
contador = FileRead.ReadLine

Set FileWrite = Fso.OpenTextFile(contadortxt,2,false)
'Aumentamos el contador y escribimos el nuevo resultado en el archivo
contador = contador + 1
FileWrite.WriteLine (contador)

'Cerramos los objetos y conexión
FileWrite.Close
FileRead.Close
Set FileWrite = Nothing
Set FileRead = Nothing
Set Fso = Nothing

'Especificamos que nuestro contador tenga 6 digitos
cantdigitos = 6

'Comprobamos la cantidad de caracteres del contador
cantcont = Len(contador)
For i = 1 to cantdigitos - cantcont
contador = "0" & contador
Next
'Hacemos un bucle de 1 a 6 (o la cantidad de digitos que se especifico mas arriba)
'Y guardamos cada digito en la variable cantidad
For i = 1 to cantdigitos
numero = Mid(contador,i,1)
cantidad = cantidad & "<img src='" & numero & ".gif'>"
Next
%>
<p align="center"><font face="verdana" size="2">Visitante Nº<br><%=cantidad%></font></p>