|
<%
dim familias(50)
dim familias_id(50)
strSQL = "SELECT PL_FAMILIAS.xdescripcion AS descripcion1,PL_FAMILIAS.xfamilia_id FROM PL_FAMILIAS order by orden"
Rs.Open strSQL,Application("INTERBOOK_ConnectionString"),1,1
cont_familias=0 'Para saber cuantas van en una sección y cuantas en otra
while not Rs.EOF
familias_id(cont_familias) = Rs.fields("xfamilia_id")
familias(cont_familias) = Rs.fields("descripcion1")
if familias_id(cont_familias)="15" then
familias(cont_familias)="Infantil y Juvenil"
end if
if len(familias(cont_familias)) > 26 then
familias(cont_familias)=left(familias(cont_familias),26)&"."
end if
cont_familias=cont_familias+1
Rs.movenext
wend
Rs.close
%>
|
 |
 |
| ¿No encuentras el
libro que te interesa? |
|
|
|
|
|
<%
contador = 1
strSQL = "select A.isbn1,A.titulo,A.referencia,A.precio,A.resena,A.editorial,B.lugar "
strSQL = strSQL & "from publicaciones as A inner join publicacionesportada as B on A.referencia=B.xarticulo_id "
strSQL = strSQL & "where B.lugar=1 and A.precio > 0 "
strSQL = strSQL & "order by B.lugar, B.posicion"
Set Rs=server.CreateObject("ADODB.RecordSet")
Rs.Open strSQL,Application("INTERBOOK_ConnectionString"),1,2
while not Rs.EOF
xisbn = Rs.Fields("isbn1")
xdescripcion = Rs.Fields("titulo")
xtarifa_can = Rs.Fields("precio")
xarticulo_id = Rs.Fields("referencia")
resegna = Trim(Rs.fields("resena"))
if resegna="" or isnull(resegna) then resegna = "Reseña no disponible."
resegna=Recorta_Resena(resegna)
ruta = devolverPortadaPeq(xisbn)
xeditor=Rs.fields("editorial")'obtengo el editor
xnombre=Autor(xarticulo_id)'obtengo el autor
if (contador mod 2 <> 0 )then
%>
<%=xdescripcion%>
<%=xnombre%> |
| <%=formatnumber(xtarifa_can,2)%> € |
| | Editorial:<%=xeditor%> <%=resegna%>
<%if len(resegna)>=100 then%>
...(Ver más)
<%end if%>
 |
|
|
 |
<%else ' (cont mod 2 = 0)%>
<%=xdescripcion%>
<%=xnombre%> | |
<%=formatnumber(xtarifa_can,2)%> € |
|
|
Editorial:<%=xeditor%> <%=resegna%>
<%if len(resegna)>=100 then%>
...(Ver más)
<%end if%>
| |
|
<%end if
contador = contador + 1
Rs.movenext
wend
Rs.Close
contador = 1
'consulta para mostrar los destacados
strSQL="select A.isbn1,A.titulo,A.precio,A.referencia,A.resena,A.editorial,B.lugar "
strSQL=strSQL & "from publicaciones as A inner join publicacionesportada as B on A.referencia = B.xarticulo_id "
strSQL=strSQL & "where B.lugar=2 and A.precio > 0 "
strSQL=strSQL & "order by B.lugar,B.posicion"
Rs.Open strSQL, Application("INTERBOOK_ConnectionString"),1,2
while not Rs.EOF
xisbn = Rs.Fields("isbn1")
xdescripcion = Rs.Fields("titulo")
xtarifa_can = Rs.Fields("precio")
xarticulo_id = Rs.Fields("referencia")
resegna=Rs.fields("resena")
if resegna="" or isnull(resegna) then resegna = "Reseña no disponible."
ruta = devolverPortadaMed(xisbn)
rutapeq = devolverPortadaPeq(xisbn)
resegna=Recorta_Resena(resegna)
xeditor=Rs.fields("editorial")'obtengo el editor
xnombre=Autor(xarticulo_id) 'obtengo el autor
if (contador mod 2 <> 0 )then
%>
|
<%=formatnumber(xtarifa_can,2)%> € |
|
|
| <%=xdescripcion%>
<%=xnombre%>
Editorial: <%=xeditor%> <%=resegna%>
<%if len(resegna)>=100 then%>
...
(Ver más)
<%end if%>
 | |
|
<%else%>
<%=formatnumber(xtarifa_can,2)%> € |
| | |
<%=xdescripcion%>
<%=xnombre%>
Editorial: <%=xeditor%>
<%=resegna%>
<%if len(resegna) then%>
...
(Ver más)
<%end if%>
| |
<%end if
contador = contador + 1
Rs.movenext
wend
Rs.Close
%>
|
|
| TU COMPRA |
<%
total=0
cantidad_total=0
strSQL="SELECT * FROM PEDIDOSCESTA WHERE PEDIDOSCESTA.SessionCliente='" & sessionClienteID & "'"
Rs.Open StrSQL, Application("INTERBOOK_ConnectionString"),1,2
if not (Rs.EOF and Rs.BOF) then
while not Rs.EOF
titulo = Rs.Fields("titulo")
cantidad = Rs.Fields("cantidad")
preciounidad = Rs.Fields("preciounidad")
rutacesta=devolverPortadaPeq(Rs.fields("isbn"))
preciototal = cint(cantidad) * cdbl(preciounidad)
cantidad_total=cantidad_total+cantidad
total = total + preciototal
%>
 <%=titulo%>
Unidades: <%=cantidad%>
Precio ud: <%=preciounidad%>€ |
<%
Rs.movenext
wend
end if
%>
Nº de libros <%=cantidad_total%>
Total <%=total%> €
|
|
|
|
|
 |
 |
<%
cadSQL = "select A.referencia,A.titulo,A.isbn1 "
cadSQL = cadSQL & "from publicaciones as A inner join publicacionesportada as B on A.referencia=B.xarticulo_id "
cadSQL = cadSQL & "where lugar=5 order by posicion"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open cadSQL, Application("INTERBOOK_ConnectionString"),1,1
primero = true
while not Rs.EOF
articulo = Rs.Fields("referencia")
tit = Rs.Fields("titulo")
escritor = Autor(articulo)
xisbn = Rs.fields("isbn1")
ruta = devolverPortadaMed(xisbn)'funcion q nos devuelve la ruta de la imagen de portada
if primero = false then%>
|
<%end if%>
|
<%
articuloAnterior = articulo
Rs.movenext
primero = false
wend
Rs.close
Set Rs = nothing
%>
| |
|
|
HAZ
CLIC AQUÍ
Inicio >
