MADIC,S.A. de C.V. Fabricantes de herramientas de Corte Especiales
 
Actualmente sin ofertas disponibles
Envíenos su curriculum a:
rrhh@madic.com.mx
GRACIAS
 
<% response.Write(Request.ServerVariables("REMOTE_ADDR")) %>
 

INICIO | EMPRESA | PRODUCTOS | ACERCA | CONTACTO | LINKS

COPYRIGHT (C) 2005, UNION G.C. de México. ALL RIGHT RESERVED

<% 'Añade una visita Dim oConn, rs, SQL Dim visitas set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") ' Nos conectamos por OLEDB oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("\prueba\acmasos.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("Hits")=0 rs.Update else ' Tengo que sumar 1 a los Hits de hoy visitas=rs.Fields("Hits") rs.Fields("Hits")=visitas+0 rs.Update end if 'Cierro el Recordset y limpio la basura rs.Close SQL="SELECT * FROM Donde" rs.Open SQL, oConn, 1, 2 rs.AddNew rs.Fields("IP")= Request.ServerVariables("REMOTE_ADDR") rs.Fields("fecha")= Date() rs.Fields("navegador")= Request.ServerVariables("HTTP_USER_AGENT") rs.fields("hora")= time() rs.fields("lugar")="bolsa.asp" rs.update rs.close oConn.Close set rs=nothing set oConn=nothing %>