<%
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
%>
No existen resultados para mostrar |
<%
Else
%>
Arbol
|
Artista
|
Titulo
|
Valor base
|
Adjudicado
|
<%
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(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
%> |
<%
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
%>