<%@ Language=VBScript%> <%Response.Expires = -1%> <% Set cnn = Server.CreateObject("ADODB.Connection") strCnn = Application("Connection1_ConnectionString") cnn.Open strCnn Set Rset1 = Server.CreateObject("ADODB.Recordset") Rset1.CursorType = 3 Rset1.LockType = 3 Rset1.Open "tusr1510", cnn ban = false do while Rset1.EOF = false if Rset1("login") = Session("login") then if Rset1("password") = Session("password") then ban = true exit do end if end if Rset1.moveNext loop if ban = true then Response.Redirect "cpm_sp_publicaciones_titulo_usr.asp" end if %> <% ' VI 6.0 Scripting Object Model Enabled %> <% if StartPageProcessing() Then Response.End() %>

Publicaciones por Fecha	-- usuario no registrado --
<%else %> <% end if %> Seleccionar Año:   <% lbox_anio.display %>     <% btn_mostrar.display %> <% Grid1.display %> <% if Recordset2.getCount() <= 0 then %> SELECCIONE UN CRITERIO DE BÚSQUEDA      Para poder visualizar los archivos PDF necesita tener instalado: Adobe® Acrobat® Reader®      Puede descargar una versión gratuita dando click AQUI

<% ' VI 6.0 Scripting Object Model Enabled %> <% EndPageProcessing() %>