Corazon Verde Arborizarte Subasta

Bogota

Grupos

Varios, Visual

<% Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "Colarte_Usuarios_Internet" Response.Write Application("str_conn_user") FilasPorPagina=20 Set Peticion=Request.Form Session("Nombre")=Peticion("Nombre") Session("Apellido")=Peticion("Apellido") If Peticion("Buscar")="Buscar" Then Session("StrFiltro")=" WHERE Nombre_ LIKE %" & Peticion("Nombre") & "% AND Apellidos_ LIKE %" & Peticion("Apellido") & "% ORDER BY PrecioOferta DESC" ElseIf Peticion("BuscarTodos")="Buscar Todos" Then Session("StrFiltro")=" ORDER BY PrecioOferta DESC" ElseIf Peticion("Anterior")="" AND Peticion("Siguiente")="" Then Session("StrFiltro")=" WHERE PrecioOferta IS NOT NULL ORDER BY PrecioOferta DESC" End If If Peticion("Anterior")="Anterior" Then If Session("PaginaActual") <> 0 then Session("PaginaActual")=Session("PaginaActual")-1 End If If Session("PaginaActual")<>0 Then EstadoAnterior="enabled" Else EstadoAnterior="disabled" End If ElseIf Peticion("Siguiente")="Siguiente" Then If Cint(Session("TotalPaginas")) > Session("PaginaActual")+1 Then Session("PaginaActual")=Session("PaginaActual")+1 End If Else Session("PaginaActual")=0 PosicionRecordset=1 EstadoAnterior="disabled" End If PosicionRecordset=Session("PaginaActual")*FilasPorPagina set RSConsulta = Server.CreateObject("ADODB.Recordset") StrConsulta="SELECT * FROM VSubasta" & Session("StrFiltro") RsConsulta.Open StrConsulta, OBJdbConnection %>

ARBORIZARTE - 1 de mayo: resultados parciales y sin confirmar

<% If RsConsulta.EOF Then %> <% Else %> <% Conteo de filas i=0 While NOT RsConsulta.EOF RsConsulta.MoveNext i=i+1 Wend NumeroRegistros=i RsConsulta.MoveFirst i=0 RsConsulta.Move PosicionRecordset response.write PosicionRecordset While NOT RsConsulta.EOF AND i <% RsConsulta.MoveNext i=i+1 Wend If RsConsulta.EOF Then EstadoSiguiente="disabled" Else RsConsulta.MoveNext If RsConsulta.EOF Then EstadoSiguiente="disabled" End If End If End If TotalPaginas=NumeroRegistros/FilasPorPagina Response.Write TotalPaginas & ", " & NumeroRegistros Mod FilasPorPagina If NumeroRegistros mod FilasPorPagina <>0 Then TotalPaginas=TotalPaginas End If Session("TotalPaginas")=TotalPaginas %>
No existen resultados para mostrar
Arbol Artista Titulo Valor base Adjudicado
<%=RsConsulta(0)%> <%=RsConsulta(1)%> <%=RsConsulta(3)%>   <%=FormatNumber(RsConsulta(4))%>   <% If Not IsNull(RsConsulta(5)) Then Response.Write FormatNumber(RsConsulta(5)) Else Response.Write "Sin datos" End If %>  

Página <%=Session("PaginaActual")+1%> de <%=FormatNumber(TotalPaginas, 0)%>

> >