<%iddetlin=request.QueryString("iddetlin") if iddetlin="" then response.Redirect("linea.asp") end if set ObjDetpre=new TBDetpre set objproducto=new tbproducto set ObjDetpro=new TBDetpro set ObjPresenta=new TBPresenta sControl = Objproducto.opentabla sControl = ObjDetpro.opentabla sControl = ObjPresenta.opentabla sControl = ObjDetpre.opentabla ObjDetpre.FiltraxIdDetLin(iddetlin) if ObjDetpre.existeregistro then ObjDetpre.asignacampos end if ObjPresenta.BuscaxIdDetLin(iddetLin) if ObjPresenta.existeregistro then ObjPresenta.asignacampos end if ObjDetPro.BuscaxIdDetPro(ObjPresenta.IdDetPro) if ObjDetpro.existeregistro then ObjDetpro.asignacampos end if ObjProducto.BuscaxIdProducto(ObjDetPro.IdProducto) if objproducto.existeregistro then ObjProducto.asignacampos end if %>

<%=UCASE(ObjDetpro.Titulo)%>

" border="0" align="center">

<% if objDetPre.rs.recordcount >0 then objDetPre.rs.movefirst%> <% While Not objDetPre.Rs.EOF objDetPre.AsignaCampos TxtId=objProducto.IdProducto TxtDescripcion=trim(objProducto.Descripcion) TxtImagen=Rutaimg&objProducto.Imagen %> <%objDetPre.Rs.MoveNext Wend %> <%else%> <%end if%>

<%=ObjDetpre.Titulo%>

<%=replace(ObjDetpre.Descripcion,chr(13),"
")%>

Color <%=replace(ObjDetpre.Color,chr(13),"
")%>

No Existen Presentaciones