<% dim pg pg = TRIM(request("pg")) if pg = "" then pg = 1 set rs = Server.CreateObject("ADODB.Recordset") rs.activeconnection = conn rs.CursorType = adOpenStatic rs.CursorLocation = 3 rs.pageSize = 5 sql = "SELECT idProducto,detalle,descripcion,fotoGral FROM idProductos ORDER BY idProducto" rs.open sql rs.AbsolutePage = pg %>

DESCRIPCION DE PRODUCTOS

<% while not rs.eof and rowCount < rs.pagesize rowCount = rowCount + 1 %> <% rs.movenext wend %>

" alt="<% =rs("detalle") %>" width="120" height="90" border="0">

<% =ucase(rs("detalle")) %>

<% =rs("descripcion") %>

imprimir listado de productos

<% 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 %>

<% rs.close set rs = nothing %>