<%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 %>
 
  <% cc=0 While Not ObjDetpro.Rs.EOF ObjDetpro.AsignaCampos TxtIdDet=ObjDetpro.IdProducto TxtDescripcion=trim(ObjDetpro.Titulo) TxtImagen=Rutaimg&ObjDetpro.Imagen cc=cc+1 %> ") cc=0 End If %> <% ObjDetpro.Rs.MoveNext Wend %> <%else%> <%end if%>
<% if ObjDetpro.rs.recordcount >0 then ObjDetpro.rs.movefirst%>
<% If cc=2 then ' aca le dan la cantidad de columnas que kieres tener Response.Write("

No Existen Productos para <%=ObjProducto.Titulo%>
<% 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