<% Response.Buffer = true %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" %> <% xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("ocasion.htm") & ";" %> <% displayRecs = 5 recRange = 10 %> <% ' Get table name tablename = "[productos]" dbwhere = "" %> <% ' Load Default Order OrderBy = "PrdTitulo" DefaultOrderType = "ASC" ' Check for a START parameter If Request.QueryString("start").Count > 0 Then startRec = Request.QueryString("start") Session("productos_REC") = startRec Else startRec = Session("productos_REC") if not isnumeric(startRec) or startRec = "" then 'reset start record counter startRec = 1 Session("productos_REC") = startRec End If End If ' Open Connection to the database set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str ' Build Query strsql = "select * from [productos]" if OrderBy <> "" then strsql = strsql & " ORDER BY [" & OrderBy & "]" end if 'response.write strsql set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 2 totalRecs = rs.RecordCount %> <% If totalRecs > 0 Then %>

Nuestro mercado de ocasión

<% 'Avoid starting record > total records if clng(startRec) > clng(totalRecs) then startRec = totalRecs end if 'Set the last record to display stopRec = startRec + displayRecs - 1 'Move to first record directly for performance reason recCount = startRec - 1 if not rs.eof then rs.movefirst rs.move startRec - 1 end if recActual = 0 Do While (NOT rs.EOF) AND (recCount < stopRec) recCount = recCount + 1 If Clng(recCount) >= Clng(startRec) Then recActual = recActual + 1 x_ID_producto = rs("ID_producto") x_PrdTitulo = rs("PrdTitulo") x_PrdCantidad = rs("PrdCantidad") x_PrdPrecio = rs("PrdPrecio") x_PrdDescripcion = rs("PrdDescripcion") x_PrdImagen = rs("PrdImagen") %> <% end if rs.MoveNext Loop %>

<% response.write ">>> " & x_PrdTitulo %>
	Ref:  <% response.write x_ID_producto %>    Cantidad:  <% response.write x_PrdCantidad %>    Precio:  <% if isnumeric(x_PrdPrecio) then response.write formatnumber(x_PrdPrecio,2,-2,-2,-2) & " €" else response.write x_PrdPrecio %> Detalles:  <% response.write replace(x_PrdDescripcion & "",chr(10)," ") %>

<% Else ' Ignore End If %> <% if totalRecs > 0 then ' Find out if there should be Backward or Forward Buttons on the table. If startRec = 1 Then isPrev = False Else isPrev = True PrevStart = startRec - displayRecs If PrevStart < 1 Then PrevStart = 1 %>

---

[<< Anterior] <% End If ' Display Page numbers If (isPrev OR (NOT rs.EOF)) Then If (NOT isPrev) Then Response.Write "

---

" x = 1 y = 1 dx1 = ((startRec-1)\(displayRecs*recRange))*displayRecs*recRange+1 dy1 = ((startRec-1)\(displayRecs*recRange))*recRange+1 If (dx1+displayRecs*recRange-1) > totalRecs then dx2 = (totalRecs\displayRecs)*displayRecs+1 dy2 = (totalRecs\displayRecs)+1 Else dx2 = dx1+displayRecs*recRange-1 dy2 = dy1+recRange-1 End If While x <= totalrecs If x >= dx1 and x <= dx2 Then If Clng(startRec) = Clng(x) Then %> <%=y%> <% Else %> <%=y%> <% End If x = x + displayRecs y = y + 1 elseif x >= (dx1-displayRecs*recRange) and x <= (dx2+displayRecs*recRange) then if x+recRange*displayRecs < totalRecs then %> <%=y%>-<%=y+recRange-1%> <% else ny=(totalRecs-1)\displayRecs+1 if ny = y then %> <%=y%> <% else %> <%=y%>-<%=ny%> <% end if end if x=x+recRange*displayRecs y=y+recRange else x=x+recRange*displayRecs y=y+recRange End If Wend End If ' Next link If NOT rs.EOF Then NextStart = startRec + displayRecs isMore = True %> [Siguiente >>] <% Else isMore = False End If %>

---

<% If stopRec > recCount Then stopRec = recCount %> Productos <%= startRec %> a <%= stopRec %> de <%= totalRecs %> <% Else %>

Nuestro mercado de ocasión

Estamos preparando nuestras ofertas!!! No deje de visitarnos frecuentemente.

<% End If %> <% ' Close recordset and connection rs.Close Set rs = Nothing conn.Close Set conn = Nothing %>