%@LANGUAGE="VBSCRIPT"%>
<%
Dim libros__MMColParam
libros__MMColParam = "1"
if (Request.QueryString("nombre") <> "") then libros__MMColParam = Request.QueryString("nombre")
%>
<%
set libros = Server.CreateObject("ADODB.Recordset")
libros.ActiveConnection = MM_art20xx_STRING
libros.Source = "SELECT * FROM art_libros WHERE nombre LIKE '%" + Replace(libros__MMColParam, "'", "''") + "%' ORDER BY titulo ASC"
libros.CursorType = 0
libros.CursorLocation = 2
libros.LockType = 3
libros.Open()
libros_numRows = 0
%>