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:
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.
<%
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
%>
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 ^.^¡¡

