Imagen desde la Torre de La Iglesia de El Salvador

<% Function tex(cadena) cadena = Replace(cadena,vbCrLf,"
") tex = cadena End Function sSQL="SELECT * FROM areas2 WHERE Idprincipal=" & Request.QueryString("Id") & " order by orden" 'esta sentencia SQL puede ser creada a partir de un buscador como el que hemos visto en otro reportaje 'y almacenada en una session para emplearla sucesivas veces en el script: session("ssql")=ssql If Request.QueryString("pag")<>"" Then Session("pagina")=Request.QueryString("pag") Else Session("pagina")=1 End If %>

<%=request.QueryString("area")%>

<%If RS.EOF AND RS.BOF Then%>

No hay Contenidos en este momento

<% else texto1 = tex(RS("texto"))%> <% While (Not RS.eof)%>

&titulo=<%=request.QueryString("area")%>"> <%=RS("subtitulo")%>

<%rs.movenext%> <% wend rs.movefirst num_registros=4 RS.PageSize=num_registros RS.AbsolutePage=Session("pagina") While (Not RS.eof AND registros_mostrados < num_registros) registros_mostrados=registros_mostrados+1 texto1 = tex(RS("texto"))%>

<%=RS("subtitulo")%>

<%if RS("Imagen")<>"blank.gif" then%>

" alt="<%=RS("subtitulo")%>" class="imagendeportes2"><%end if%>

<%=texto1%>

<% if rs("enlace")<>"" then%>

+ INFORMACIÓN :

" target="_blank"> >> Pincha aquí para + INFORMACIÓN >>

<%end if%> <%if rs("video")<>"" then%>

VIDEO ::

<%=rs("video")%>

<%end if%>

<%rs.movenext wend%>

__________________

Página:<%=Session("pagina")%> de <%=RS.PageCount%>
Mas :>> <% i=0 While i &Id=<%=Request.QueryString("Id")%>" class="enlaceentidad"><%=i%> <% Wend End if RS.Close Conn.Close %>

Volver