<%idproducto=request.QueryString("idproducto") if idproducto="" then response.Redirect("producto.asp") end if set objproducto=new tbproducto set ObjDetpro=new TBDetpro sControl = Objproducto.opentabla sControl = ObjDetpro.opentabla ObjDetpro.FiltraxIdProducto(idproducto) if ObjDetpro.existeregistro then ObjDetpro.asignacampos else 'response.Redirect("producto.asp") end if ObjProducto.BuscaxIdProducto(idproducto) if objproducto.existeregistro then ObjProducto.asignacampos else response.Redirect("producto.asp") end if %>
 
 
Extensiones de Cabello  
<%=UCASE(ObjProducto.Titulo)%>
<%=replace(ObjProducto.Descripcion,chr(13),"
")%>
 
<% if ObjDetpro.rs.recordcount=0 then%> <% else ObjDetpro.rs.movefirst%> <%do while not ObjDetpro.rs.eof ObjdetPro.AsignaCampos%> <% registro=registro+1 ObjDetpro.rs.movenext loop end if %>

No hay Lineas de Productos para <%=ObjProducto.Titulo%>
 

Líneas de Productos