<% dim noti noti=Request.QueryString("notic") connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("actualizaciones.mdb") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM noticia where numero=" & noti , connStr %>

Noticias << volver

" >

<%=rs("fecha")%>, <%=rs("ano")%> <%=rs("titulo")%> <%=rs("introduccion")%> <%=rs("texto_largo")%> <% if rs("foto1")<>"" then %>
" border="0"> <% if rs("foto2")<>"" then %>" border="0"> <% end if %>
 
<% end if %> <% if rs("foto3")<>"" then %>
" border="0"> <% if rs("foto4")<>"" then %>" border="0"> <% end if %>
 
<% end if %> <% if rs("foto5")<>"" then %>
" border="0"> <% if rs("foto6")<>"" then %>" border="0"> <% end if %>
 
<% end if %> <% if rs("foto7")<>"" then %>
" border="0"> <% if rs("foto8")<>"" then %>" border="0"> <% end if %>
 
<% end if %> <% if rs("foto9")<>"" then %>
" border="0"> <% if rs("foto10")<>"" then %>" border="0"> <% end if %>
 
<% end if %>