<%
lugar = request("lugar")
muestra = request("muestra")
if lugar <> 1 then
rango = request("rango2")
Cosecha = request("Cosecha2")
PaisP = request("PaisP2")
MedioP = request("MedioP2")
AnoP = request("AnoP2")
cepa = request("cepa2")
concurso = request("concurso2")
else
rango = request("rango")
Cosecha = request("Cosecha")
PaisP = request("PaisP")
MedioP = request("MedioP")
AnoP = request("AnoP")
cepa = request("cepa")
concurso = request("concurso")
end if
if rango = "" then
rango = 0
end if
if cosecha = "" then
Cosecha = 0
end if
if paisp = "" then
PaisP = 0
end if
if mediop = "" then
MedioP = 0
end if
if anop = "" then
AnoP = 0
end if
if cepa = "" then
cepa = 0
end if
if concurso = "" then
concurso = 0
end if
suma = rango + cosecha + paisp + mediop + anop + cepa + concurso + marca
noid = request("noid")
idioma = 1
marca = 41
QueryString = "select * from tblvinos where marca=" & marca & ""
if (rango)*1>0 then sSQL = sSQL & " AND rango = " & rango & ""
if (Cosecha)*1>0 then sSQL = sSQL & " AND Cosecha = " & Cosecha & ""
if (PaisP)*1>0 then sSQL = sSQL & " AND PaisP = " & PaisP & ""
if (MedioP)*1>0 then sSQL = sSQL & " AND MedioP = " & MedioP & ""
if (AnoP)*1>0 then sSQL = sSQL & " AND AnoP = " & AnoP & ""
if (cepa)*1>0 then sSQL = sSQL & " AND cepa = " & cepa & ""
if (concurso)*1>0 then sSQL = sSQL & " AND concurso = " & concurso & ""
sSQL = sSQL & " AND idioma = " & idioma & " and visible=1"
QueryString = QueryString & sSQL & ""
rs9.CursorType = adOpenKeyset
rs9.LockType = adLockOptimistic
rs9.Open QueryString,conn
tamanopagina = 1
if not rs9.eof then
paginaabsoluta=request.querystring("paginaabsoluta")
if paginaabsoluta="" then
paginaabsoluta=1
end if
if paginaabsoluta=1 Then
inicio=1
else
inicio=1+(paginaabsoluta-1)*tamanopagina
end if
fin=inicio+tamanopagina-1
if fin > rs9.recordcount then
fin =rs9.recordcount
end if
rs9.pagesize= cint(tamanopagina)
rs9.absolutepage= cint(paginaabsoluta)
contador=1
tit_base=0
base_p = 1
end if
%>
