Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/02/2004, 17:36
maru539
 
Fecha de Ingreso: enero-2004
Mensajes: 57
Antigüedad: 21 años, 3 meses
Puntos: 0
Estadisticas y Contador

Hola! Me gustaría hacer un contador de visitas que use base de datos, y que guarde al menos la hora, fecha y el ip del visitante.
Me estoy comiendo la cabeza y no me sale!
Si alguien puede ayudarme...

La base que he creado se llama visitas.mdb y la tabla se llama visitas_tabla en donde tengo:
Hits
Fecha
ip

Y el cógido que he creado es:

Código:
<%
if Session("Visitado")="" then
	Session("Visitado")=False
else
	Session("Visitado")=True
end if

Dim oConn, rs, SQL
Dim visitas, fecha, ip

fecha=Date()
ip=request.servervariables("REMOTE_ADDR")

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("visitas.mdb")) 
SQL="SELECT Hits, Fecha, ip FROM visitas_tabla WHERE Fecha='"&fecha&"' AND ip='"&ip&"' "

rs.Open SQL, oConn, 1, 2

if rs.EOF then
  rs.AddNew
  rs.Fields("Fecha")=fecha
  rs.Fields("Hits")=1
  rs.Fields("ip")=ip
  rs.Update
end if

total= ¡¡¡ aqui quiero sumar todos los campos hits!!!! 
total_hoy= ¡¡¡ y aqui quiero sumar los campos hits solo de la fecha=Date()!!! 

Response.Write("Visitas totales: " &total)
Response.Write("<br>")
Response.Write("Visitas hoy: " &total_hoy)

rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
%>
Más o menos, creo q tengo una idea pero fallo en algo, además no sé hacer lo de sumar campos... Si alguien me ayuda se lo agradecería muchísimo.

Ah! otra cosa, si alguien tiene otro contador en asp más completo, me refiero a que guarde en la base cosas como el servidor, idioma, etc del visitante, sería GENIAL!

Gracias ^.^¡¡