% set cnn = Server.CreateObject("ADODB.Connection") cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("pccomm.mdb") set rst = Server.CreateObject("ADODB.RecordSet") rst.Open "SELECT * FROM contpagina",cnn,3,3 fecha= now() rst.addNew rst("Dia") = Day(fecha) rst("Mes") = Month(fecha) rst("Agno") = Year(fecha) rst("Hora") = Time() rst("CookieID") = Request.Cookies("ClientID") rst("Sesion") = Session.SessionID rst("Dedonde") = Request.ServerVariables("HTTP_REFERER") rst("HitPage") = Request.ServerVariables("PATH_INFO") rst.Update rst.Close cnn.close %>
|
|
||
|
|
COMUNICACIONES VIA PC
TEL Y FAX (0133) 36-09-16-35 , 36-37-51-34 NEXTEL 166774 *1 MSN: noeltaba@hotmail.com |