<% 'Para evitar la cache Response.AddHeader "pragma","no-cache" Response.CacheControl = "Private" Response.Expires =0 %> <% dim conn dim rs dim rs1 set conn=server.CreateObject("adodb.connection") conn.Open("futurosperiodistas.com.periodis") ssql="select * from artival where seccion='" &session("tema") &"'" 'Response.Write (ssql) set rs=conn.Execute(ssql) ssql="select * from imagen where tema='" & session("tema") &"'" set rs1=conn.Execute(ssql) %>

" alt="<%=session("tema")%>"> <% do while (not rs.eof) %> <% rs.movenext loop conn.Close %>   "><%=rs("titulo")%> Autor: <%=rs("nombre")%>  <%=rs("apellidos")%>    País: <%=rs("pais")%>