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

	sescod = Session("SesCodclte")
set tipobusq		= Request.QueryString("tipobusq")
set parametrobusq	= Request.QueryString("parametrobusq")

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

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


Set rs	= Conex.Execute(sql)
'RS.PageSize = cantidadregistros
'RS.CacheSize = cantidadregistros
'rs.pagesize=cantidadregistros
'maxpagina=cint(rs.pagecount)
'maxregistros=cint(rs.pagesize)
'rs.absolutepage=mostrarpagina
'contreg=0 


'response.write "Resultados : " 
'response.write desde & " a " & hasta & " de " & rs.recordcount & " encontrados." 




%>
<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;	
	border-color:#CCCCCC;
	<% if Session("SesCodclte") = rs.Fields("cClieCode").value  then %> background-color:#FFCC33; <% else %> background-color:#CCCCCC; <%end if%>
	
	}
	.tdCuerpo2{
	font-family:Geneva, Arial, Helvetica, sans-serif;
	font-size:11px;
	background-color:#FFFFFF;
	border-color:#CCCCCC
	}	
	.table1{
	border-color:#CCCCCC;	
	}
</style>
<title></title>
</head>
<body onLoad="">
<table align="center" border="1" cellpadding="0" cellspacing="0">
<tr>
	<td>
	<table  border="0" cellpadding="1" cellspacing="1" >
	<tr class="table1">
		<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 
'	do while not rs.eof and contreg < maxregistros
	%>
	<form name="frmResBusq" action="Validacion.asp" method="post">
	<tr>	
		<td class="tdCuerpo1" width="250"><%= rs.Fields("sName").value %></td>
		<td class="tdCuerpo2" align="center" width="90"><%= rs.Fields("dNacmDate").value %></td>
		<td class="tdCuerpo1" align="center" width="80"><%= rs.Fields("TActiva").value %></td>
		<td class="tdCuerpo2" align="center" width="85"><%= rs.Fields("Inactiva").value %></td>
		<td class="tdCuerpo1" align="center" width="50"><%= rs.Fields("IdLocal").value %></td>
		<td class="tdCuerpo2" align="center" width="40"><%= rs.Fields("nPuntCant").value %></td>		
		<td class="tdCuerpo1" align="center" width="40"><%= rs.Fields("nTickCant").value %></td>
		<td class="tdCuerpo2" align="center" width="80"><%= rs.Fields("dUltTdate").value %></td>
		<td class="tdCuerpo1" align="center" width="160"><%= rs.Fields("sTranDesc").value %></td>	
		<!--<td><%'=Session("SesCodclte") %></td>-->
		<!--<td><%'=rs.Fields("cClieCode").value%></td>-->
		<!--<td><%' if  (Session("SesCodclte") = rs.Fields("cClieCode").value ) then %> 1 <%' else %> 0 <%'end if%></td>-->
		<td align="center"><input type="submit" style="width:25px" 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="tipo" value="4">
		<input type="hidden" name="codclte" value="<%=rs.Fields("cClieCode").value %>"></td>			
	</tr>
	</form>
	
	<%
	rs.MoveNext
'	contreg=contreg+1 
	Loop
	rs.Close
	set rs = Nothing
	Conex.Close
	set Conex = Nothing
%>
	
	</table>
	</td>
</tr>
</table>
<%

'cero="0"
'nombrescript=request.servervariables("script_name")
''nombrescript="frmPrincipalResultadoBusqueda.asp"
'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 & "'>[<< 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

'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 & "'>[Siguiente >>]</a>"

'end if

'response.write ref
%>
<table align="center">
<tr>
	<td style="font-size:12px"><a href="frmPrincipalBuscarCliente.asp">Volver a Busqueda</a></td>
</tr>
</table>

</body>
<script>
function CargarSesionCliente(){
document.frmResBusq.method = "post";
document.frmResBusq.action = "Validacion.asp";
document.frmResBusq.submit(); 
<%

'Session("SelecCliente") = rs.Fields("cClieCode")
'Session("SelectLocal")  =rs.Fields("IdLocal")
%>
}
</script>
</html>
