% 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 %>
|
|
|
Para ello hacé click en Archivo y selecciona Modificar con Microsoft FrontPage Luego al ingresar al FrontPage hacé click dentro del cuadro de texto de abajo para que escribas el dialogo.... Para guardar tu trabajo haz click en Archivo y selecciona Guardar.
|
Copyright © 2001 Síntesis Digital de Salta |