<% dim instruccion,VDSN,imax,texto 'SE ABRE LA BASE DE DATOS set db = server.createObject("ADODB.connection") VDSN="" VDSN="Driver={microsoft access driver (*.mdb)};DBQ=" & server.mapPath("noticias.mdb") db.open VDSN %> Asociación Oro- Castello <%end if%>
<% 'SI SE HA PULSADO UNA NOTICIA, AQUÍ SE ABRE PARA VISUALIZARLA if request.QueryString("noticia") <> "" then 'aquí se abre sólamente la noticia a ser mostrada instruccion="SELECT * FROM noticias where id_noticia =" & request.QueryString("noticia") set tabla = db.execute(instruccion) if tabla("imagen") <> "" then 'LA NOTICIA TIENE IMAGEN%> <%="
" & tabla("titular") & "
" & tabla("fecha") & "
" & tabla("cuerpo") & "
"%> <%else 'LA NOTICIA NO TIENE IMAGEN%> <%="
" & tabla("titular") & "
" & tabla("fecha") & "
" & tabla("cuerpo")& "
"%> <%end if else%>
Optimizado para 800x600. Copyright
Diseño: Dolphin Audiovisual & Multimedia