<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim rs Dim rs_numRows Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_cnx_STRING rs.Source = "SELECT * FROM revista where UCase(autores) like '%" & UCase(Request("autores")) & "%' ORDER BY autores ASC" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() rs_numRows = 0 %> Sociedad Argentina de Medicina Reproductiva - SAMeR
 
Buscador de artículos por AUTOR

Resultado obtenidos con "<%=Request("autores")%>"


<%If rs.BOF And rs.EOF Then %>
NO SE ENCONTRARON RESULTADOS CON: "<%=Request("autores")%>" <% Else %>

<%do while not rs.eof%>

   <%=(rs.Fields.Item("tipo").Value)%>

<%=(rs.Fields.Item("titulo").Value)%>

Autores: <%=(rs.Fields.Item("autores").Value)%>

Revista:   Año   <%=(rs.Fields.Item("anio").Value)%>   |   Vol.   <%=(rs.Fields.Item("volumen").Value)%>    |   Nº    <%=(rs.Fields.Item("cambio_num").Value)%>

" target="_blank" class="mailmeu">Leer PDF

<%rs.movenext loop %> <%End If%>

SAMeR
mantenimiento nacemultimedial