<%thisTitle = ":: CATALOGO :: MonierlLifeTile" thisSeccion ="catalogo"%> <% cid = request("cid") title = request("title") if title = "Complementos" then title = "Complementos y Accesorios" id = request("id") if title = "" then title = "Catálogo" archivo= request("archivo") %>
<%set dist = conn.execute("SELECT id,nombre,archivo,descripcion FROM tbl_categorias WHERE tipo=1 ORDER BY nombre desc") entrar = false do while not dist.eof extra = "" if cint(cid) = cint(dist(0)) then extra = "Title" %> <% if entrar then response.write "" entrar = not entrar dist.movenext loop%>
<%=Title%>
<%set fso = server.CreateObject("SCRIPTING.FileSystemObject") set oFile = fso.openTextFIle(server.mapPath("secciones/CATALOGO.inc")) response.write oFile.ReadAll set fso = nothing %>
<% medidas = "WIDTH=""740"" HEIGHT=""300""" if archivo = "" then archivo = "flash/tejas.swf?num=777" medidas = "WIDTH=""740"" HEIGHT=""350""" cid = "-1" else archivo = "images/categorias/" & archivo & "?num=12411" end if%>
<%if not cid = "-1" then set busq2 = conn.execute("SELECT descripcion FROM tbl_categorias WHERE id=" & cid)%> <%=busq2(0)%> <%end if%>
<%if cid = "19" then%>
Ponga el mouse sobre los circulos para ver a detalle el accesorio. <%end if%>
NAME="PAG" ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer">
<%set busq= conn.execute("SELECT img_ch,img_gd,nombre,id FROM tbl_productos WHERE descripcion='Doble Tono' AND cid=" & cid & " ORDER BY nombre") if not busq.eof then%>
<% counter = 0 do while not busq.eof %> <% counter = counter + 1 if counter = 6 then counter = 0 response.write "" end if busq.movenext loop%>
Doble tono
<%=busq(2)%>
<%end if%> <%set busq= conn.execute("SELECT img_ch,img_gd,nombre,id FROM tbl_productos WHERE descripcion='Slurry' AND cid=" & cid & " ORDER BY nombre") if not busq.eof then%>
<% counter = 0 do while not busq.eof %> <% counter = counter + 1 if counter = 6 then counter = 0 response.write "" end if busq.movenext loop%>
Slurry
<%=busq(2)%>
<%end if%> <%set busq= conn.execute("SELECT img_ch,img_gd,nombre,id FROM tbl_productos WHERE descripcion='Colores Puros' AND cid=" & cid & " ORDER BY nombre") if not busq.eof then%>
<% counter = 0 do while not busq.eof %> <% counter = counter + 1 if counter = 6 then counter = 0 response.write "" end if busq.movenext loop%>
Colores Puros 1
<%=busq(2)%>
<%End if%> <%set busq= conn.execute("SELECT img_ch,img_gd,nombre,id FROM tbl_productos WHERE descripcion='Colores Puros 2' AND cid=" & cid & " ORDER BY nombre") if not busq.eof then%>
<% counter = 0 do while not busq.eof %> <% counter = counter + 1 if counter = 6 then counter = 0 response.write "" end if busq.movenext loop%>
Colores Puros 2
<%=busq(2)%>
<%end if%>