Madic, S.A. de C.V. - Fabricacion de herramientas y maquilas.

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")) %>

<% '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 %>