<%iddetprod=request.QueryString("iddetprod") if iddetprod="" then response.Redirect("extension.asp") end if set objproducto=new tbproducto set ObjDetpro=new TBDetpro set ObjPresenta=new TBPresenta sControl = Objproducto.opentabla sControl = ObjDetpro.opentabla sControl = ObjPresenta.opentabla ObjDetpro.BuscaxIdDetPro(iddetprod) if ObjDetpro.existeregistro then ObjDetpro.asignacampos else 'response.Redirect("producto.asp") end if ObjProducto.BuscaxIdProducto(ObjDetPro.IdProducto) if objproducto.existeregistro then ObjProducto.asignacampos else response.Redirect("extension.asp") end if ObjPresenta.FiltraxIdDetPro(iddetprod) if ObjPresenta.existeregistro then ObjPresenta.asignacampos else 'response.Redirect("producto.asp") end if %>
 
 
<%=UCASE(ObjDetPro.Titulo)%>
<%=replace(ObjDetPro.Descripcion,chr(13),"
")%>
 
<% if ObjPresenta.rs.recordcount=0 then%> <% else ObjPresenta.rs.movefirst%> <%do while not ObjPresenta.rs.eof ObjPresenta.AsignaCampos%> <% registro=registro+1 ObjPresenta.rs.movenext loop end if %>

No hay Presentaciones para <%=ObjProducto.Titulo%>
 

Presentaciones