% Dim MM_authorizedUsers Dim MM_authFailedURL Dim MM_grantAccess Dim Escribe MM_authorizedUsers="" MM_authFailedURL="entrar.asp" MM_grantAccess=false if (Session("MM_Clientname")<>"") then if (Session("MM_ClientAuthorization")="") then MM_grantAccess = true end if end if if (not MM_grantAccess) then Response.Redirect(MM_authFailedURL+"?accesdenied="+Server.URLEncode(Request.ServerVariables("URL")+"?"+Request.QueryString())) else Set Conn = Server.CreateObject("ADODB.Connection") Conn.Provider = "Microsoft.Jet.OLEDB.4.0" Conn.ConnectionString = "Data Source=" & server.MapPath("/bases/salta.mdb") Conn.Open Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "SELECT * from clientes where Id=" & Session("MM_Clientname"), Conn, 1,3 Escribe=year(now) Escribe=Escribe*100+month(now) Escribe=Escribe*100+day(now) Escribe=Escribe*100+hour(time) Escribe=Escribe*100+minute(time) Rs("url") = Escribe Rs.update set Rs = nothing set Conn = nothing end if %>
|
|
|
|
Copyright © 2001 Síntesis Digital de Salta |