Foros del Web » Programando para Internet » ASP Clásico »

ayuda porfa

Estas en el tema de ayuda porfa en el foro de ASP Clásico en Foros del Web. compañeros les indico el codigo que estoy empleando, porfa verifiquenlo a ver porque no me funciona. Gracias y disculpen la molestia... esta es la pagina ...
  #1 (permalink)  
Antiguo 11/12/2009, 20:44
 
Fecha de Ingreso: enero-2009
Mensajes: 112
Antigüedad: 16 años, 3 meses
Puntos: 0
ayuda porfa

compañeros les indico el codigo que estoy empleando, porfa verifiquenlo a ver porque no me funciona. Gracias y disculpen la molestia...
esta es la pagina de contador----

<html>

<head>
<title>visitas</title>
</head>

<body>
<%

' Every time we count a user we will put the
' latest count value in the session variable "TotalCount"
' If Session Variable TotalCount is empty
' that mean this user is new and session variable
' But if Session Variable already has the value
' Then we will not count this user again.

If IsEmpty(Session("TotalCount")) Then
Call CountThisUser
End If

' It is good practice to use Functions and Sub procedure
' Because all the variables being used in sub or function
' are automatically destroyed when Sub or Function finish
' processing the code.
' So you can use these Variables again in other functions
Sub CountThisUser()

Dim objFSO ' FileSystemObject
Dim objTS ' TextStreamObject

Dim strFileName ' Counter text File Name
Dim intOldCount
Dim intNewCount

' Specify the Text file to store count value
' Because We Set Create = True
' File will be Created if it does not exist

strFileName = Server.MapPath("Contador.txt")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strFileName) Then
Set objTS = objFSO.OpenTextFile(strFileName, 1)
Else
Set objTS = objFSO.CreateTextFile(strFileName, True)
End If

If Not objTS.AtEndOfStream Then
intoldCount = objTS.ReadAll
Else
intoldCount = 0
End If

objTS.Close

intNewCount = intOldCount + 1

' Store the value of intNewCount in Session Variable
' So you can use it on different pages
Session("TotalCount")= intNewCount

' Write intNewCount value back to text file

Set objTS = objFSO.CreateTextFile(strFileName, True)
objTS.Write intNewCount

objTS.Close

Set objFSO = Nothing
Set objTS = Nothing
End Sub
%>

<!--
Count.asp file is added to this page with Server Side Include and
Session Variable is used to display the current user count.
Include File="Count.asp"

AQUI IMPRIMO EL TOTAL DE VISTAS-->
<%=Session("TotalCount")%>


</BODY></HTML>

***************y este es el codigo que se carga en mi home**************


<div align="CENTER"><span class="style13">TOTAL VISITAS:</span><font face="Geneva, Arial, Helvetica, sans-serif" color="#FFFFFF" size="2"><!--#include file="cont_visit.asp"--></font></div>


<!--<div align="right"><span class="style10">Eres el visitante nº:</span> <span class="style4"><%=application("visitas")%></span> <span class="style10">desde el dia</span> <span class="style4"><%=application("fecha")%></span></div>-->


********************GRACIAS ESPERO ME PUEDAN AYUDAR**********
  #2 (permalink)  
Antiguo 11/12/2009, 21:48
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses
Puntos: 535
Respuesta: ayuda porfa

Cita:
...porque no me funciona...
¿Alguna pista del error o, en caso de no producir ninguno, síntoma? Es que mi bola de cristal me da 50.000 posibles causas. La pobre está andando un poco mal luego de tanto uso, pero le tengo cariño y no la quiero cambiar!
__________________
...___...
  #3 (permalink)  
Antiguo 12/12/2009, 11:10
 
Fecha de Ingreso: enero-2009
Mensajes: 112
Antigüedad: 16 años, 3 meses
Puntos: 0
Respuesta: ayuda porfa

disculpa por no poner el error, bueno en si es que se reinicia y lo que deseo es que asi se reinicie el servidor me mantenga la cuanta de usuarios que entran en la pagina.
  #4 (permalink)  
Antiguo 12/12/2009, 15:45
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses
Puntos: 535
Respuesta: ayuda porfa

Ahhh... ok, podés continuar aquí ¿si?: http://www.forosdelweb.com/f15/mi-co...inicia-759649/
__________________
...___...
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Tema Cerrado




La zona horaria es GMT -6. Ahora son las 12:49.