Logo
Portades
<%Set CON=Server.CreateObject("ADODB.Connection") ConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/BBDD/llibres.mdb")%> <%CON.Open(ConnString)%> <%s="S" %> <%sql="SELECT * from llibres where RCD='"&s&"' AND id="&request("id")&""%> <%Set RS=CON.Execute(sql)%>
Amunt
Avall
<%= RS("portada_catala") %> Revista de Comptabilitat i Dirección núm. <%=RS("numero_RCD")%>
<%=RS("titol_catala")%>

<%= RS("autors")%>
Editorial <%= RS("editorial")%>
<%= RS("lloc_edicio")%>,  <%= RS("data_edicio")%>.  <%=RS("pagines")%> pàgines.
Preu soci: <%= RS("preu_soci_catala")%>€
Preu no soci: <%= RS("preu_nosoci_catala")%>€

<%=RS("descripcio_catala")%>

  • <%=RS("comanda_catala")%>Comprar.
  • " target="_blank">Índex  Acrobat <% if RS("ABSTRACTS")<>"S" then %>
  • " target="_blank">Presentació  Acrobat <% end if %>

  • <%if RS("ABSTRACTS")="S" then%> <%i=1%> <%abstract="ABSTRACT"&i&"CAT"%> <%url="URL_ABSTRACT"&i&"CAT"%> Abstracts:
    <%Do While RS(abstract) <>" " and RS(abstract) <>"" and not isnull(RS(abstract)) and RS(abstract) <> "-"%> Acrobat <%= RS(abstract) %>
    <%i=i+1%> <%abstract="ABSTRACT"&i&"CAT"%> <%url="URL_ABSTRACT"&i&"CAT"%> <%loop%> <% else %> <%i=1%> <%titol="RCD_NTEC_TITOLCAT"&i%> <%url="RCD_NTEC_URLCAT"&i%> Notes tècniques:
    <%Do While i<=6 %> <%if not isnull(RS(titol)) and RS(titol) <>" " and RS(titol) <>"" and RS(titol) <> "-" then %> Acrobat <%= RS(titol) %>
    <% end if %> <%i=i+1%> <%titol="RCD_NTEC_TITOLCAT"&i%> <%url="RCD_NTEC_URLCAT"&i%> <%loop%>

    <%i=1%> <%titol="RCD_ADOC_TITOLCAT"&i%> <%url="RCD_ADOC_URLCAT"&i%> Articles doctrinals:
    <%Do While i<=6 %> <%if not isnull(RS(titol)) and RS(titol) <>" " and RS(titol) <>"" and RS(titol) <> "-" then %> Acrobat <%= RS(titol) %>
    <% end if %> <%i=i+1%> <%titol="RCD_ADOC_TITOLCAT"&i%> <%url="RCD_ADOC_URLCAT"&i%> <%loop%>

    <%i=1%> <%titol="RCD_CP_TITOLCAT"&i%> <%url="RCD_CP_URLCAT"&i%> Casos pràctics:
    <%Do While i<=6 %> <%if not isnull(RS(titol)) and RS(titol) <>" " and RS(titol) <>"" and RS(titol) <> "-" then %> Acrobat <%= RS(titol) %>
    <% end if %> <%i=i+1%> <%titol="RCD_CP_TITOLCAT"&i%> <%url="RCD_CP_URLCAT"&i%> <%loop%> <%end if%> <% RS.Close %> <% CON.Close %>