<%
Function tex(cadena)
cadena = Replace(cadena,vbCrLf,"
") tex = cadena End Function sSQL="SELECT * FROM actividades2 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 RS.EOF AND RS.BOF Then%>
" alt="<%=RS("subtitulo")%>" class="imagendeportes2"><%end if%>
") tex = cadena End Function sSQL="SELECT * FROM actividades2 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 RS.EOF AND RS.BOF Then%>
No hay Actividades en este momento
<% else texto1 = tex(RS("texto"))%>P r o g r a m a s >>
<%=request.QueryString("titulo")%>
<% While (Not RS.eof) texto1 = tex(RS("texto"))%>
<%=RS("subtitulo")%>
<%if RS("Imagen")<>"blank.gif" then%>
<%=texto1%>
<% if rs("enlace")<>"" then%> <%end if%> <%rs.movenext wend end if RS.Close Conn.Close Set result = Nothing Set con = Nothing %> Volver
© 2009 Excmo. Ayuntamiento de La Roda. Todos Los Derechos Reservados.