<% Response.Redirect "http://www.cadal.org/" Response.End() m = Request.QueryString("m") ti = Request.QueryString("ti") If m=1 Then asterisco = "*" End If variable_para_el_page_title = 1 titulo_pagina = "Escuela Latinoamericana de Estudios Políticos y Económicos - ELEPE" por_donde = "ELEPE" %>
ELEPE - Biblioteca
<% cadena = Request.QueryString("buscar") abece = Request.QueryString("abece") 'Response.Write "

"&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 "
Buscar por Autor:  " 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 Response.Write "
" Response.Write "Buscar por palabra clave:   " Response.Write "> "">" pagina_a_mostrar = Request.QueryString("page") '======================================================================== If len(pagina_a_mostrar) > 2 Then Response.Redirect "http://www.cadal.org?error=Verificar_Link" Response.End() End If If Not isNumeric(pagina_a_mostrar) Then Response.Redirect "http://www.cadal.org?error=Verificar_Link" Response.End() End If '======================================================================== If pagina_a_mostrar = "" Then pagina_actual = 1 Else pagina_actual = CInt(pagina_a_mostrar) End If '======================================================================== Set RS = Server.CreateObject("ADODB.Recordset") RS.PageSize = mostrar RS.CacheSize = mostrar RS.Open strSQL, con,3,1 cant_paginas = RS.PageCount canti = RS.RecordCount If pagina_actual > cant_paginas Then pagina_actual = cant_paginas If pagina_actual < 1 Then pagina_actual = 1 If cant_paginas = 0 Then Response.Write "

No se encontraron libros...

" Else RS.AbsolutePage = pagina_actual variable_para_el_page_title = 1 If cadena <> "" and canti > 1 Then Response.Write "

Total: "& canti& " libros encontrados

" End If If cadena <> "" and canti = 1 Then Response.Write "

Total: "& canti& " libro encontrado

" End If Response.Write "
" 'cierro recuadro del buscador.. Response.Write "" registro_mostrado = 0 Do While registro_mostrado < mostrar And Not RS.EOF titulo = RS.Fields("titulo") 'titulo = Replace(titulo,""&cadena&"",""&cadena&"") autor = RS.Fields("autor") 'autor = Replace(autor,""&cadena&"",""&cadena&"") editorial = RS.Fields("editorial") 'editorial = Replace(editorial,""&cadena&"",""&cadena&"") fechaPubli = RS.Fields("fecha") 'fechaPubli = Replace(fechaPubli,""&cadena&"",""&cadena&"") Response.Write "
" Response.Write ""& titulo &"
" Response.Write ""& autor &"
" Response.Write ""& editorial &" ("&fechaPubli&")
" 'Response.Write "
 
" '###################################################################################################################################################### '###################################################################################################################################################### '############################### ############################################### '############################### ACA SE MUESRA TODO ############################################### '############################### ############################################### '###################################################################################################################################################### '###################################################################################################################################################### registro_mostrado = registro_mostrado + 1 RS.MoveNext Loop If hacer_tabla = "si" Then 'CIERRO esta tabla para mostrar la Notiicias Institucionales con fotito en el listado... Response.Write "
" End If End If RS.Close Set RS = Nothing con.Close Set con = Nothing %>