<%language = vbscript%> <%
''coder by Albert, amartinez@ircplaza.com http://www.ircplaza.com
'archivo = "defaultCount.txt"
'Set oFs = CreateObject("Scripting.FileSystemObject")
'on error resume next
'Set oFile= oFs.OpenTextFile(Server.MapPath(archivo),1)
'on error goto 0
'if isObject(oFile) then
' lHitCount = oFile.ReadLine
' if isNumeric(lHitCount) then
' lHitCount = clng(lHitCount)
' else
' lHitCount = 0
' end if
' oFile.Close
'else
' lHitCount = 0
'end if
'lHitCount = cstr(lHitCount + 1)
'Set oFile= oFs.CreateTextFile(server.mappath(archivo),True)
'oFile.writeLine cstr(lHitCount)
'oFile.close
'set oFs=nothing
%>
Grupo Santillana
Estadística
