<%dim cn,rs,sSQL
set cn=Server.CreateObject("ADODB.Connection")
'cn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
cn.Open "DSN=tabisam"
sSQL="select * from categorias where codcategoria="&sec&""
set rs=cn.Execute(sSQL)
if not rs.eof then
nombreSecIni=rs.fields("categoria")
foto=rs.fields("foto")
end if
dim cn1,rs1,sSQL1
set cn1=Server.CreateObject("ADODB.Connection")
'cn1.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
cn1.Open "DSN=tabisam"
sSQL1="select * from subcategorias where codsubcategoria="&subsec&""
set rs1=cn1.Execute(sSQL1)
if not rs1.eof then
nombreSubIni=rs1.fields("subcategoria")
end if
set cn2=Server.CreateObject("ADODB.Connection")
'cn2.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
cn2.Open "DSN=tabisam"
sSQL2="select * from catesubcate c, subcategorias s where c.codsubcategoria=s.codsubcategoria and codcategoria="&sec&" order by s.subcategoria"
set rs2=cn2.Execute(sSQL2)
set cn3=Server.CreateObject("ADODB.Connection")
'cn3.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
cn3.Open "DSN=tabisam"
sSQL3="select * from categorias where codcategoria<>"&sec&" order by categoria asc"
set rs3=cn3.Execute(sSQL3)
%>
<%while not rs2.eof
subseccion=rs2.fields("codsubcategoria")
nombreSubsec=rs2.fields("subcategoria")
%>
| »
<%=nombresubsec%> |
<%rs2.movenext
wend%>
<%while not rs3.eof
nombreseccion=rs3.fields("categoria")
seccion=rs3.fields("codcategoria")%>
<%rs3.movenext
wend%>
|
<%set cn22=Server.CreateObject("ADODB.Connection")
'cn22.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
cn22.Open "DSN=tabisam"
sSQL22="select * from banners"
set rs22=cn22.Execute(sSQL22)
if not rs22.eof then
call buscar(aleatorio())
nombreban=rs22.fields("nombre")
extension=right(nombreban,3)
enlace=rs22.fields("enlace")
end if
%>
|
|
|
<%dim cn7,rs7,sSQL7
set cn7=Server.CreateObject("ADODB.Connection")
'cn7.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
cn7.Open "DSN=tabisam"
sSQL7="select count(*)as suma from articulos"
set rs7=cn7.Execute(sSQL7)
%>
| «
Busque el producto que le interesa en nuestra tienda |
<%=rs7.fields("suma")%>
artículos |
|
|
|
|
 |
|
<%=nombreSecIni%> |
|
|
|
|
<%=nombreSubIni%> |
|
|
|
<%if sec=1 then
set cn3=Server.CreateObject("ADODB.Connection")
'cn3.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
cn3.Open "DSN=tabisam"
sSQL3="select * from ambientes where codarticulo="&codArticulo&" and pavimento='0'"
set rs3=cn3.Execute(sSQL3)
contprod=0
while not rs3.eof
contprod=contprod+1
rs3.movenext
wend
divi=contprod\3
resto=contprod mod 3
if resto>0 then
numtablas=divi+1
else
numtablas=divi
end if
set rs3=cn3.Execute(sSQL3)
%>
| »
AMBIENTES: Pulse sobre la imágen para ampliarla. |
<%while numtablas>0%>
<%cont1=0
while not rs3.eof and cont1<3
fotop=rs3.fields("fotop")
altop=rs3.fields("altop")
anchop=rs3.fields("anchop")
fotog=rs3.fields("fotog")
altog=rs3.fields("altog")
anchog=rs3.fields("anchog")%>
|
|
<%cont1=cont1+1
if not rs3.eof then
rs3.movenext
end if
wend%>
<%numTablas=numtablas-1
wend
set cn4=Server.CreateObject("ADODB.Connection")
'cn4.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
cn4.Open "DSN=tabisam"
sSQL4="select * from puertas where codarticulo="&codArticulo&" and tipo='P'"
set rs4=cn4.Execute(sSQL4)
contprod=0
while not rs4.eof
contprod=contprod+1
rs4.movenext
wend
if contprod>0 then%>
| »
PUERTAS (Acabados de Serie) |
<% end if
divi=contprod\5
resto=contprod mod 5
if resto>0 then
numtablas=divi+1
else
numtablas=divi
end if
set rs4=cn4.Execute(sSQL4)
%>
<%while numtablas>0%>
<%cont1=0
while not rs4.eof and cont1<5
foto=rs4.fields("foto")
alto=rs4.fields("alto")
ancho=rs4.fields("ancho")
texto=rs4.fields("texto")
%>
<%=texto%>
|
<%cont1=cont1+1
if not rs4.eof then
rs4.movenext
end if
wend%>
<%numTablas=numtablas-1
wend
sSQL4="select * from puertas where codarticulo="&codArticulo&" and tipo='A'"
set rs4=cn4.Execute(sSQL4)
contprod=0
while not rs4.eof
contprod=contprod+1
rs4.movenext
wend
if contprod>0 then%>
| »
ARMAZONES en nobilitado esp. 18 mm. con canto en ABS |
<% end if
divi=contprod\5
resto=contprod mod 5
if resto>0 then
numtablas=divi+1
else
numtablas=divi
end if
set rs4=cn4.Execute(sSQL4)
%>
<%while numtablas>0%>
<%cont1=0
while not rs4.eof and cont1<5
foto=rs4.fields("foto")
alto=rs4.fields("alto")
ancho=rs4.fields("ancho")
texto=rs4.fields("texto")
%>
<%=texto%> |
<%cont1=cont1+1
if not rs4.eof then
rs4.movenext
end if
wend%>
<%numTablas=numtablas-1
wend
sSQL4="select * from puertas where codarticulo="&codArticulo&" and tipo='T'"
set rs4=cn4.Execute(sSQL4)
contprod=0
while not rs4.eof
contprod=contprod+1
rs4.movenext
wend
if contprod>0 then%>
<% end if
divi=contprod\3
resto=contprod mod 3
if resto>0 then
numtablas=divi+1
else
numtablas=divi
end if
set rs4=cn4.Execute(sSQL4)
%>
<%while numtablas>0%>
<%cont1=0
while not rs4.eof and cont1<3
foto=rs4.fields("foto")
alto=rs4.fields("alto")
ancho=rs4.fields("ancho")
texto=rs4.fields("texto")
%>
<%=texto%>
|
<%cont1=cont1+1
if not rs4.eof then
rs4.movenext
end if
wend%>
<%numTablas=numtablas-1
wend%>
<% sSQL4="select * from puertas where codarticulo="&codArticulo&" and tipo='D'"
set rs4=cn4.Execute(sSQL4)
contprod=0
while not rs4.eof
contprod=contprod+1
rs4.movenext
wend
divi=contprod\3
resto=contprod mod 3
if resto>0 then
numtablas=divi+1
else
numtablas=divi
end if
set rs4=cn4.Execute(sSQL4)
%>
<%while numtablas>0%>
<%cont1=0
while not rs4.eof and cont1<3
foto=rs4.fields("foto")
alto=rs4.fields("alto")
ancho=rs4.fields("ancho")
texto=rs4.fields("texto")
%>
|
<%cont1=cont1+1
if not rs4.eof then
rs4.movenext
end if
wend%>
| |
|
|
<%numTablas=numtablas-1
wend%>
<%end if%>
<%if sec<>1 then%>
|
<%if caract<>"" then%>
CARACTERISTICAS
<%end if%> |
| <%=caract%> |
|
<%end if%>
<%dim cn2,rs2,sSQL2
set cn2=Server.CreateObject("ADODB.Connection")
'cn2.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
cn2.Open "DSN=tabisam"
sSQL2="select distinct marca, p.nombre from articulos a,partners p where a.marca=p.codpartner and a.codseccion="&sec&" and a.codsubsecc="&subsec&" order by p.nombre"
set rs2=cn2.Execute(sSQL2)%>
|
|
<%if sec=11 or sec=12 or (sec=13 and subsec<>86) or sec=2 or sec=19 then
if fotoamb<>"" then%>
 |
| |
<%end if
end if%>
<%if (sec=18 and subsec=113) or (sec=18 and subsec=114) or (sec=18 and subsec=116) or (sec=18 and subsec=115) or (sec=18 and subsec=135) then%>
<%end if%>
|
| |
|
 |
Toda
una flota de camiones dispuesta a entregar su pedido a
la mayor brevedad... |
<%'ponemos los partners de esta sección.
set cn21=Server.CreateObject("ADODB.Connection")
' cn21.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
cn21.Open "DSN=tabisam"
set cn22=Server.CreateObject("ADODB.Connection")
'cn22.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
cn22.Open "DSN=tabisam"
sSQL21="select * from partnercate where codcategoria="&sec&""
set rs21=cn21.Execute(sSQL21)
contpart=0
while not rs21.eof
contpart=contpart+1
rs21.movenext
wend
divi1=contpart\2
resto1=contpart mod 2
if resto1>0 then
numtablas1=divi1+1
else
numtablas1=divi1
end if
set rs21=cn21.Execute(sSQL21)
numT1=numtablas1
%>
<%while numtablas1>0%>
<%cont1=0
while not rs21.eof and cont1<2
codPartner=rs21.fields("codPartner")
sSQL22="select * from partners where codpartner="&codpartner&""
set rs22=cn22.Execute(sSQL22)
if not rs22.eof then
fotopart=rs22.fields("foto")
altopart=rs22.fields("alto")
anchopart=rs22.fields("ancho")
end if%>
 |
<%cont1=cont1+1
if not rs21.eof then
rs21.movenext
end if
wend%>
|
<%numTablas1=numtablas1-1
wend%>
|
 |
|
|
