<%
Sub Visita
'Añade una visita
Dim oConn, rs, SQL
Dim visitas
' Nos conectamos por OLEDB
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.open "DBQ=" & Server.MapPath("contador_feedback/contador.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
' # es el delimitador para las Fechas en Access.
' Si vas a utilizar SQL Server, sustitúyelo por comilla simple (')
SQL="SELECT * FROM Visitas WHERE Fecha=#"&Date()&"#"
rs.Open SQL, oConn, 1, 2
'if rs.EOF then
' Es la primera visita hoy, por eso no hay ningún
' registro con la fecha actual
rs.AddNew
rs.Fields("fecha")=Date()
rs.Fields("hora")=Time()
rs.Fields("ip")=Request.ServerVariables("remote_addr")
rs.Fields("hits")=1
rs.Update
'else
' Tengo que sumar 1 a los Hits de hoy
' visitas=rs.Fields("hits")
' rs.Fields("hits")=visitas+1
' rs.Update
'end if
'Cierro el Recordset y limpio la basura
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
end sub
' Si es una nueva visita, nuestra variable estará vacía.
if Session("Visitado")="" then
Session("Visitado")=False
end if
'Y ahora, miramos siempre esta variable antes de insertar
if not Session("Visitado") then
' Ponemos a verdadero
Session("Visitado")=True
' Llamamos a nuestro Sub para añadir la visita
Visita
end if
%>
OrgEmerald.com.ar
Esta web requiere:
Flash Player
See the unFlashed Site
See the Flashed Site