" cadena = Request.QueryString("buscar") abece = Request.QueryString("abece") If cadena = "" Then strSQL = "SELECT * FROM libros ORDER BY autor" Elseif abece <> "" Then strSQL = "SELECT * FROM libros WHERE libros.autor LIKE '"&abece&"%' ORDER BY autor ASC" Else strSQL = "SELECT * FROM libros WHERE libros.autor LIKE '%"&cadena&"%' ORDER BY autor ASC" End If '$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ sql = "SELECT DISTINCT autor FROM libros WHERE libros.autor LIKE '%"&inicial&"'" Set rs23 = Server.CreateObject("ADODB.Recordset") rs23.open sql, con, 3, 3 While Not rs23.EOF nombre_autor = rs23.Fields("autor") letrita = Mid(nombre_autor,1,1) If letrita <> letrita_sig Then Response.Write ""&letrita &" " End If nombre_autor = rs23.Fields("autor") letrita_sig = Mid(nombre_autor,1,1) rs23.MoveNext Wend rs23.Close Set rs23 = Nothing %>