<%
'*** Counter
dim fileobj,narchivo,entrada,v,n,salida
' Creacion
Set fileobj = CreateObject("Scripting.FileSystemObject")
narchivo = Server.MapPath("special/kun.txt")
'Lectura
Set entrada = fileobj.OpenTextFile(narchivo,1,false)
v = trim(entrada.Readline)
n = v+1
' Creacion del fichero contador
Set salida=fileobj.CreateTextFile(narchivo,true)
salida.Writeline(n)
Set fileobj = nothing
Set entrada = nothing
' begin ASP EMAIL
Dim strto, strfrom, strSubject, strBody, ddate, dtime, sn, ra, message
Dim objCDOMail
message = "hit number" & n & vbcrlf & _
"ip: " & ra & vbcrlf & _
"navegador:" & sn
' Assing values to variables from the form
sn = Request.ServerVariables("HTTP_USER_AGENT")
ra = Request.ServerVariables("REMOTE_ADDR")
ddate = date
dtime = time
message = "Hit number: " & n & vbcrlf & "IP: " & ra & vbcrlf & "Navegador: " & sn
strto = "info@unclic.com"
strFrom = "hits@unclic.com"
strSubject = "HIT Unclic"
strBody = message
' Create the object
'Set munobj = Server.CreateObject("CDONTS.NewMail")
' Set the properties of the object
'mubobj.From = strFrom
'munobj.To = strTo
'munobj.Subject = strSubject
'munobj.Body = strBody
' Send the message!
'munobj.Send
' Set the object to nothing because it immediately becomes
' invalid after calling the Send method.
'Set munobj = Nothing
%>