<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% lang=request("lang") id=request("id") if lang="" then lang="en"'response.redirect "http://www.LaMaduixaVermella.com" if lang="es" then sOption="41" sTitle="Alex Alguacil - Noticias" end if if lang="ca" then sOption="21" sTitle="Alex Alguacil - Notícies " end if if lang="en" then sOption="21" sTitle="Alex Alguacil - News" end if flag_button_es="" flag_button_ca="" flag_button_en="" url_boton_sortir=lang & "/img/boton_repos.jpg" %> <%=sTitle%>
<%=news_txt_salir%>
<%=flag_button_ca%> <%=flag_button_es%> <%=flag_button_en%>

<%=news_txt_titulares %>

<% if id="" then call mostrar_noticias else call mostrar_noticias_detalle end if %>
<% sub mostrar_noticias_detalle Set tabla = Server.CreateObject("ADODB.RecordSet") strSql= " Select * from tblNoticias " & _ " where id=" & id tabla.open strSql, conexion if tabla.eof=true then %>
- <%=news_txt_vacio%>.



<% else while not tabla.eof idnoticia=tabla("id") titular=tabla("titulo") resumen=tabla("resumen") autor=tabla("autor") fecha=tabla("fecha") detalle=tabla("detalle") %>
  • <%=titular%>

    <%=resumen%> <%=detalle%>
    <%=fecha%>. <%=ucase(autor)%> <%=news_txt_atras%>
  •  
    <% tabla.movenext wend end if tabla.close set tabla=nothing end sub %> <% sub mostrar_noticias Set tabla = Server.CreateObject("ADODB.RecordSet") strSql= " Select * from tblNoticias " & _ " where publicar=1 and ididioma='" & lang & "' order by FECHA desc,ID desc" tabla.open strSql, conexion if tabla.eof=true then %>
    - <%=news_txt_vacio%>.



    <% else while not tabla.eof idnoticia=tabla("id") titular=tabla("titulo") resumen=tabla("resumen") autor=tabla("autor") fecha=tabla("fecha") %>
  • <%=titular%>

    <%=resumen%>
    <%=fecha%>. <%=ucase(autor)%> <%=news_txt_leer%>
  •  
    <% tabla.movenext wend end if tabla.close set tabla=nothing end sub %>