<% Dim conexion, consulta, basedatos basedatos = Server.MapPath("DBD/gestion.mdb") set conexion = Server.CreateObject("ADODB.Connection") conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";" dato_ip = request.servervariables("REMOTE_ADDR") dato_navegador_sistema = request.servervariables("HTTP_USER_AGENT") dato_pais_idioma = request.servervariables("HTTP_ACCEPT_LANGUAGE") sSQL="Insert Into CLIC (IP,PAIS,NAVEGADOR) values ('" & DATO_IP & "','" & DATO_PAIS_IDIOMA & "','" & DATO_navegador_sistema & "')" set RS = conexion.Execute(sSQL) Set consulta = Nothing conexion.Close Set conexion = Nothing %>