Contador de visitas por dìa...

[Reportero]

Que tal

Aqui tienes el codigo para el contador por dia:

Código:

  
<%
dim diact, diasis
fp = Server.MapPath("\tusitio\db\day.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(fp)
diasis = a.ReadLine
a.close
diact=day(now)
If int(diact)=int(diasis) then
        fp = Server.MapPath("\tusitio\db\contador.txt")
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set a = fs.OpenTextFile(fp)
	ct = a.ReadLine
	ct = ct + 1
	a.close
	Set a = fs.CreateTextFile(fp, true)
	a.WriteLine(ct)
	a.Close
	Response.Write "<h2>Visita del día No.: " & ct & "</h2>"
else
	fp = Server.MapPath("\tusitio\db\day.txt")
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set a = fs.CreateTextFile(fp)
	diact=day(now)
	a.WriteLine(diact)
	a.Close
	fp = Server.MapPath("\tusitio\db\contador.txt")
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set a = fs.CreateTextFile(fp, true)
	num=1
	a.WriteLine(num)
	a.Close
	Response.Write "<h2>Visita del día No.: " & num & "</h2>"
end if
%>

Saludos

El Reportero de los Foros