"&cadena&"
" cadena = Replace(cadena,"á","a") cadena = Replace(cadena,"é","e") cadena = Replace(cadena,"í","i") cadena2 = Replace(cadena,"ó","o") cadena = Replace(cadena,"ú","u") If cadena = "" and abece = "" Then strSQL = "SELECT * FROM libros ORDER BY titulo" mostrar = 50 Elseif abece <> "" Then strSQL = "SELECT * FROM libros WHERE libros.autor LIKE '"&abece&"%' ORDER BY autor ASC" mostrar = 2000 Else strSQL = "SELECT * FROM libros WHERE libros.titulo LIKE '%"&cadena&"%' OR libros.titulo LIKE '%"&cadena2&"%' OR libros.autor LIKE '%"&cadena&"%' OR libros.editorial LIKE '%"&cadena&"%' OR libros.fecha LIKE '%"&cadena&"%' ORDER BY titulo" mostrar = 2000 End If 'Response.Write strSQL &"" Set con = Server.CreateObject("ADODB.Connection") con.Open data_source_book Response.Write "
" Response.Write ""& autor &"
" Response.Write ""& editorial &" ("&fechaPubli&")
" End If End If RS.Close Set RS = Nothing con.Close Set con = Nothing %>