<!--#INCLUDE file="Conexion.asp"-->
<%
dim tipobusq
dim parametrobusq
'dim sescod
dim paginaactual
dim primera

	set tipobusq		= Request.QueryString("tipobusq")
	set parametrobusq	= Request.QueryString("parametrobusq")
	set paginaactual	= Request.QueryString("paginaactual")
	set enviarCod		= Request.QueryString("enviarCod")


	sql 	= "sp_GranjaVilla_0002 '"+tipobusq+"','"+parametrobusq+"'"
	'Set rs	= Conex.Execute(sql)

'paginacion
cantidadregistros=15
if request.querystring("paginaactual")<>"" then
mostrarpagina=request.querystring("paginaactual")
else
mostrarpagina=1
end if

Set rs=Server.CreateObject("ADODB.Recordset")
RS.CacheSize = 60
rs.CursorLocation =3
rs.Open sql,sConn,3,3

rs.pagesize=cantidadregistros
maxpagina=cint(rs.pagecount)
maxregistros=cint(rs.pagesize)
if maxpagina<=0 then
else
rs.absolutepage=mostrarpagina
end if
contreg=0 

if int(mostrarpagina)<>int(maxpagina) then        '-- Si no es la última página.
     hasta=mostrarpagina*cantidadregistros
     desde=hasta-cantidadregistros+1
else
     hasta=rs.recordcount
     desde=(maxpagina*cantidadregistros)-cantidadregistros+1
end if 

'response.write "<center>"
'response.write "<fieldset style='width:500px' class='cantidad'><label >Resultados :" 
'response.write desde & " a " & hasta & " de " & rs.recordcount & " encontrados.  " 
'response.write "<br>Cliente Seleccionado : " 
'response.write Session("sesSvName") 
'response.write "</label></fieldset></center><br>"

%>
<html>
<head>
<style>
	.tdCabecera{
	font-family:Georgia, "Times New Roman", Times, serif;
	font-size:10px;
	text-align:center
	}
	.tdCuerpo1{
	font-family:Geneva, Arial, Helvetica, sans-serif;
	font-size:11px;	

	}
	.tdCuerpo2{
	font-family:Geneva, Arial, Helvetica, sans-serif;
	font-size:11px;


	}	

</style>
<title></title>
<link rel="stylesheet" href="Css/Stdw.css" type="text/css">
</head>
<body  topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" <%if Request.QueryString("enviarCod")<>"" then%>onLoad="pruebas01(<%=enviarCod%>)" <%end if%>>
<!--
<table width="100%" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" height="30" cellpadding="0" cellspacing="0">
	<tr bgcolor="#2A5FAA">		
		<td align="center"><font class="Etiqueta1">&nbsp;<b>Resultados :  </b><%=desde%> a <%=hasta%> de <%=rs.recordcount%> encontrados</font>
		<font class="Etiqueta1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>Cliente Seleccionado:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%'=Session("sesSvName")%></b></font></td>
	</tr>
</table>
-->

<table align="center" border="0" cellpadding="0" cellspacing="0" class="Tabla3">
<tr>
	<td>
	<table  border="0" cellpadding="0" cellspacing="0" >
	<tr >
		<td class="tdCabecera"><b>Cliente</b></td>
		<td class="tdCabecera"><b>F. Nacimiento</b></td>
		<td class="tdCabecera"><b>Tarj. Activa</b></td>
		<td class="tdCabecera"><b>Tarj. Inactiva</b></td>
		<td class="tdCabecera"><b>ID Local</b></td>
		<td class="tdCabecera"><b>Puntos</b></td>
		<td class="tdCabecera"><b>Tickets</b></td>
		<td class="tdCabecera"><b>F.Ult.Transac.</b></td>
		<td class="tdCabecera"><b>Ult.Transac</b></td>
		<td class="tdCabecera"><b>Seleccionar</b></td>
	</tr>	
	
	<% 
	'Do While Not rs.EOF 
	'If RS.EOF AND RS.BOF Then

	if  rs.eof	  then
		response.Write("<table align='center'><tr><td>")
		response.Write("No se encontraron Datos")
		response.Write("</td></tr></table>")
	else
	do while not rs.eof and contreg < maxregistros
	%>
	<form name="frmResBusq" action="Validacion.asp" method="post">
<!--	<form name="frmResBusq">-->
	<tr id="f<%=contreg%>" align="center">	
		<td  align="left" width="250" height="20"><%= rs.Fields("sName").value %></td>
		<td align="center" width="90"><%= rs.Fields("dNacmDate").value %></td>
		<td align="center" width="80"><%= rs.Fields("TActiva").value %></td>
		<td align="center" width="85"><%= rs.Fields("Inactiva").value %></td>
		<td align="center" width="50"><%= rs.Fields("IdLocal").value %></td>
		<td align="center" width="40"><%= rs.Fields("nPuntCant").value %></td>		
		<td align="center" width="40"><%= rs.Fields("nTickCant").value %></td>
		<td align="center" width="80"><%= rs.Fields("dUltTdate").value %></td>
		<td align="center" width="160"><%= rs.Fields("sTranDesc").value %></td>	
		
			
		
<!--		<td align="center"><input type="button" style="width:25px" value="" onClick="SeleccionarClte()"></td>-->
		<td align="center"><input type="submit" style="width:25px; height:10px;" class="Boton1" value="" name="chk<%=contreg%>" id="c<%=contreg%>" >
		  <!--<input type="checkbox" name="chk<%=contreg%>" id="c<%=contreg%>" onClick="A(this,'<%=rs.Fields("cClieCode").value%>','<%=rs.Fields("IdLocal").value %>');">-->		</td>		
	</tr>
	<tr >
		<td colspan="10" align="center"><input type="hidden" name="codLocal" value="<%= rs.fields("IdLocal").value %>">
		<input type="hidden" name="codtbusq" value="<%=tipobusq%>">
		<input type="hidden" name="parambus" value="<%=parametrobusq%>">
		<input type="hidden" name="mostrarpagina" value="<%=mostrarpagina%>">
		<input type="hidden" name="enviarCod" value="<%=contreg%>">
		<input type="hidden" name="tipo" value="4">
		<input type="hidden" name="codclte" value="<%=rs.Fields("cClieCode").value %>">	
   		<input type="hidden" name="SvName" value="<%=rs.Fields("sName").value %>">        </td>			
	</tr>
	</form>
	
	<%
	rs.MoveNext
	contreg=contreg+1 
	Loop
	end if
	rs.Close
	set rs = Nothing
	Conex.Close
	set Conex = Nothing
%>
	</table>
	</td>
</tr>
</table>
<center>
<%

cero="0"
nombrescript=request.servervariables("script_name")
if int(mostrarpagina)<>1 then '--si no es la primer página mostrar botón atrás
ref="<a href='" & nombrescript & "?buscar=" &_
Server.Urlencode(request.querystring("buscar")) 
ref=ref & "&paginaactual=" & mostrarpagina-1
ref=ref & "&tipobusq=" & tipobusq
ref=ref & "&parametrobusq=" & parametrobusq
ref=ref & "'>[<< Anterior]</a>&nbsp;"
end if

for contador=1 to maxpagina

If contador>9 then
cero=""
end if

ref=ref & "&nbsp;<a href='" & nombrescript 
ref=ref & "?buscar=" & Server.Urlencode(request.querystring("buscar")) 
ref=ref & "&paginaactual=" & contador
ref=ref & "&tipobusq=" & tipobusq
ref=ref & "&parametrobusq=" & parametrobusq

if int(contador)=int(mostrarpagina) then '-- pone en negrita pagina actual
ref=ref & "'><strong>" & cero & contador & "</strong></a>"
else
ref=ref & "'>" & cero & contador & "</a>"
end if
next

if int(mostrarpagina)<>int(maxpagina) then '-- si no es la última página 
' mostrar botón siguiente

ref=ref & "&nbsp;<a href='" & nombrescript & "?buscar=" 
ref=ref & Server.Urlencode(request.querystring("buscar")) 
ref=ref & "&paginaactual=" & mostrarpagina+1
ref=ref & "&tipobusq=" & tipobusq
ref=ref & "&parametrobusq=" & parametrobusq
ref=ref & "'>[Siguiente >>]</a>"

end if

response.write ref
%>
</center>
<!--
<table align="center">
<tr>
	<td style="font-size:12px"><a href="frmPrincipalBuscarCliente.asp" onClick="<%Session("sesSvName")=""%>">Volver a Busqueda</a></td>
</tr>
</table>
-->
</body>
<script>

function pruebas01(x){
var f = "f"+x
document.getElementById(f).style.backgroundColor="#CFE5F7";
//window.frmBotones.btnEditarCliente.disabled=true;
//alert(window.length)
//parent.frames(0).frmBuscarCliente.button.disabled=true;
parent.frames(2).frmBotones.btnEditarCliente.disabled=false;
parent.frames(2).frmBotones.btnVerCliente.disabled=false;
}

function ActivarBotones()
{
	
}
</script>
</html>
