<% orden = request.querystring("orden") pag = request.querystring("pag") tipo = request.querystring("tipo") tipodvd = request.querystring("tiposdvd") textos = request.querystring("texto") Cantidad = request.querystring("Cantidad") if tipodvd="" or tipodvd=" " then condicion =condicion & "" else if condicion<> "Where " then condicion = condicion & " &" end if condicion="Where " condicion=condicion & " cat='" & tipodvd & "'" end if if orden = "" then orden = "cat & nombre" end if if tipo = "" then tipo = "Desc" end if if Cantidad=0 then Cantidad=10 end if %> <%=Cantidad%> <% mostrar=cint(cantidad) strsql="select * from inventa " & condicion & " order by " & orden ' & " " & tipo Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("base.html") Set RS = Server.CreateObject("ADODB.Recordset") RS.PageSize = mostrar RS.CacheSize = mostrar RS.Open strSQL, oConn,3,1 cant_paginas = RS.PageCount %> Lista de Peliculas al 23-07

        

Descargar Listado

<% if pag>1 then %> <  <% end if for t = 1 to rs.pagecount if cint(pag) = t then %> <%=t%>  <% else %> <%=t%>  <% end if next if cint(pag)  Siguiente>> <% end if %>

<% i=0 if pag=0 then pag=1 end if rs.absolutepage = pag num=(pag-1)*mostrar do while not rs.eof and i <% imagen="imagenes/" & rs("nombre2") & ".jpg" %> <% rs.movenext loop %>
Nombre
Categoria
Caratula Impresa
Nombre en Caratula
Prestada
Imagen
<%=num%>.- <%=rs("Nombre")%>
<%=rs("Cat")%> 
<%=rs("c")%> 
<%=rs("caratula")%> 
<%=rs("prestamo")%> 

width="247" height="154">

<% if pag>1 then %> <  <% end if for t = 1 to rs.pagecount if cint(pag) = t then %> <%=t%>  <% else %> <%=t%>  <% end if next if cint(pag)  Siguiente>> <% end if rs.close oconn.close %>