<%
on error resume next
Vautor=request.querystring("xx")
sqltxt="select * from trabajos where coautores like" + "'%" +vautor + "%'" + "order by autor"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("trabajos.mdb"))
set rs=createobject("ADODB.Recordset")
set rsr=createobject("ADODB.Recordset")
rs.open sqltxt,conn
if rs.eof then
response.write "No se encontró el co-autor buscado"
'response.redirect "buscatra1.htm" 'evitamos el error de foro borrado
end if
nombredelforo=rs("coautores")
'rs.close
%>
Consulta de Trabajos Sogiba 2006
Co-Autor Ingresado para la Búsqueda: <%=vautor%>
| Autor |
Co-Autores |
Nombre del Trabajo |
Ver
Resumen |
<%if rs.eof then%>
| No hay resultados para la búsqueda |
<%else
do while not rs.eof
If rs("nivel") = 1 and rs("aldia") = "SI" Then%>
| <%=rs("autor")%> |
<%=rs("coautores")%> |
<%=rs("nombre")%> |
"> |
<%end if
rs.movenext
loop
rs.close
%>
<%
end if
%>