|
|
| PUBLICACIONES Y DOCUMENTOS |
|
|
|
|
Más allá de la estabilidad
Argentina en la época de la globalización y la regionalización
Pablo bustos (comp.)
-FES Argentina, 1998.
Fundación Friedrich Ebert en la Argentina
M. T. Alvear 883 - 4º piso (1058) Buenos Aires
Tel: (0054-11) 4312-1732/4296; e-mail: fes.argentina@fes.org.ar
a disposición en nuestra oficina, entrega consultar |
|
|
<% If Request.Form = "" Then %>
<%
Else
Dim Obj_Conn
Dim Obj_RS
Dim SQL
Dim tipo, buscar
tipo = request.Form("tipo")
buscar = request.Form("buscar")
SET Obj_Conn = Server.CreateObject("ADODB.Connection")
SET Obj_RS = Server.CreateObject("ADODB.RecordSet")
Obj_Conn.Open "odbc_publicaciones"
if tipo = 1 then
SQL = "SELECT Titulo_publicacion, Autor_Nombre, Autor_Apellido, Anio, Imagen, Enlace FROM publicaciones_web WHERE Autor_Nombre LIKE '"&buscar&"%' "
elseif tipo = 2 then
SQL = "SELECT Titulo_publicacion, Autor_Nombre, Autor_Apellido, Anio, Imagen, Enlace FROM publicaciones_web WHERE Autor_Apellido LIKE '"&buscar&"%' "
elseif tipo = 3 then
SQL = "SELECT Titulo_publicacion, Autor_Nombre, Autor_Apellido, Anio, Imagen, Enlace FROM publicaciones_web WHERE Titulo_publicacion LIKE '%"&buscar&"%' "
elseif tipo = 4 then
SQL = "SELECT Titulo_publicacion, Autor_Nombre, Autor_Apellido, Anio, Imagen, Enlace FROM publicaciones_web WHERE Anio LIKE '"&buscar&"%' "
end if
Obj_RS.Open SQL, Obj_Conn, 3, 3
resultados = Obj_RS.Recordcount
If resultados = 0 Then
Response.Write "Sin resultados"
Else
if resultados = 1 then
Response.Write "Se encontro " & resultados & " publicación.
"
else
Response.Write "Se encontraron " & resultados & " publicaciones.
"
end if
Do while not Obj_RS.Eof
titulo = Obj_RS("Titulo_publicacion")
nombre = Obj_RS("Autor_nombre")
apellido = Obj_RS("Autor_apellido")
anio = Obj_RS("Anio")
enlace = Obj_RS("Enlace")
if enlace <> "" then
Response.Write "" & titulo & " >>
" & nombre & " " & apellido & " - "& anio
Response.Write "
"
else
Response.Write "" & titulo & "
" & nombre & " " & apellido & " - "& anio
Response.Write "
"
end if
Obj_RS.MoveNext
Loop
end if
Obj_RS.close
Obj_Conn.Close
SET Obj_RS = Nothing
SET Obj_Conn = Nothing
end if
%>
|
|
|
|
|
Marcelo T. de Alvear 883 4º piso, C1058AAK Buenos Aires, ARGENTINA, Tel. 54-11 4312-1732 |
|
