<%@ Language = VBScript %> <% Response.Expires = 0 %> <% Response.Buffer = True %> <% Response.Clear %> <% relleneCampos = Server.URLEncode("Por favor, rellene todos los campos") registroSistema = Server.URLEncode("No está registrado en el sistema") If Session("NombreUsuario") = "" Then response.redirect ("../default.asp?msg=" & relleneCampos) End If If Session("Password") = "" Then response.redirect ("../default.asp?msg=" & relleneCampos) End If %> Agenda <% If not Request("buscarnombre") = "" Then BuscarNombre = Request("buscarnombre") SQL = "SELECT * FROM eventos WHERE Nombre LIKE '%" & BuscarNombre & "%' ORDER BY Anio DESC" %> <% Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") Conn.Open OrigenDatos RS.Open SQL, Conn, 3 IF RS.EOF OR RS.BOF THEN %> <% Else %> <% DO WHILE NOT RS.EOF Id = RS("Id") %> <% RS.MoveNext Loop %> <% END IF %> <% END IF %>

Lo siento, ningún registro coincide con su búsqueda.


Estos son los resultados de su búsqueda
Nombre
(Pinche para editar) 		Descripción
<%=RS("Nombre")%>
Eliminar evento 		<%=RS("Descripcion")%>