<% numActual = 4 Set cnBuscar = Server.CreateObject ("ADODB.Connection") cnBuscar.Open Application("DSNr3") sql = "SELECT a.*, a.pdf AS pdfArticulo, r.* " _ & " FROM tblArticulos a " _ & " INNER JOIN tblRevista r ON r.idRevista=a.idRevista" _ & " WHERE a.idRevista=" & numActual _ & " ORDER BY a.orden" set rsBuscar=Server.CreateObject("ADODB.Recordset") rsBuscar.Open sql, cnBuscar, 0, 1 %> 3CONOMI4
/index.html" target="_blank">Nº <%=numActual%> /index.html" target="_blank"><%=rsBuscar("mes")%> <%=rsBuscar("ano")%>
Sumario
<% rsBuscar.close set rsBuscar=nothing cnBuscar.close set cnBuscar=nothing %>