<% Dim IdiomaPag IdiomaPag="es" Dim strSQL Dim objCn 'conecto la DB cuando haga falta Dim objRs Set objRs = Server.CreateObject ("ADODB.Recordset") Call ConectarDb Dim strUrl strUrl = Request.ServerVariables("URL") strUrl = Cstr(Mid(strUrl,2,4)) Dim strUrlPag strUrlPag = Request.ServerVariables("URL") strUrlPag = Cstr(Mid(strUrlPag,7,4)) %> Club Rugby Seminario Tarazona
<% Dim cont cont=0 Dim noticia,noticia2 strSQL="SELECT TOP 2 * FROM tNoticias WHERE bolAprobada=True ORDER BY intOrden DESC, datFecha DESC" objRs.Open strSQL, objCn if not objRs.EOF Then Do WHile not objRs.EOF if cont=0 then noticia=objRs("noticiaID") else noticia2=objRs("noticiaID") end if %> <% cont=cont+1 objRs.MoveNext Loop else%> <% end if objRs.Close %>
<%=UCase(":: Noticias")%>
<%if objRs("strImagen")<>"" Then%>
" width="165" style="border: 1px solid #6699CC" alt="">
<%end if%> " class="text"><%="" & UCase(objRs("strTitulo_es")) & ""%> <%="  "&FCompleta(objRs("datFecha"))%> <%="

" & objRs("strCabecera_Es")%>
" class="text">[más información]
Sistema en mantenimiento
<% strSQL="SELECT * FROM tNoticias WHERE bolAprobada=True AND noticiaID<>" & noticia & "" if noticia2<>"" then strSQL = strSQL & " AND noticiaID<>" & noticia2 & "" end if strSQL = strSQL & " ORDER BY datFecha DESC" objRs.Open strSQL, objCn if not objRs.EOF Then Do WHile not objRs.EOF %> <% objRs.MoveNext Loop else %> <% end if objRs.Close %>
" class="text"><%="" & UCase(objRs("strTitulo_es")) & ""%> <%= "  " & FCompleta(objRs("datFecha"))%>