<% dim id id = request.QueryString("id") pg = TRIM(request("pg")) if pg = "" then pg = 1 set rs = CreateObject("ADODB.Recordset") rs.activeconnection = conn sql = "SELECT detalle, valorMin, valorMax FROM idProductos WHERE idProductos.idProducto = " & id rs.open sql dim producto, min, max producto = rs("detalle") min = rs("valorMin") max = rs("valorMax") rs.close set rs = CreateObject("ADODB.Recordset") rs.activeconnection = conn rs.CursorType = adOpenStatic rs.CursorLocation = 3 rs.pageSize = 10 sql = "SELECT * FROM productos WHERE productos.idProducto = " & id & " ORDER BY productos.codigo" rs.open sql rs.AbsolutePage = pg %>

LISTADO COMPLETO DE <% =Ucase(producto) %>S

<% while not rs.eof and rowCount < rs.pagesize rowCount = rowCount + 1%> &min=<% =min %>&max=<% =max %>')"> <% rs.movenext wend%>

CODIGO	MODELO	DESCRIPCION		COLOR	FOTO
<% =rs("codigo") %>	<% =rs("modelo") %>	<% =rs("descripcion") %>		<% =rs("color") %>	&min=<% =min %>&max=<% =max %>')">.jpg" alt="Ampliar Imagen" width="64" height="48" border="0" onmouseover="javascript:high(this)" onmouseout="javascript:low(this)">

<% if rs.pagecount > 1 then %> pagina <% for i = 1 to rs.pagecount if i <> cint(pg) then%> <% =i %> <% else %> <% =i %> <% end if %> <% next %> <% end if %>	imprimir listado completo
	volver a productos

<% rs.close set rs = nothing %>