<!--#INCLUDE file="Conexion.asp"-->
<%
if (Request.QueryString("gestion")=1) then
	codigo = "0"
	local= "0"
else 
	codigo 	= Session("SesCodclte")
	local	= Session("sesCodLocal")
end if

	sql 		= "sp_GranjaVilla_0015 '"+codigo+"','"+local+"'"
	Set 	rs	= Server.CreateObject("ADODB.Recordset")
	rs.Open sql,sConn,3,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" href="Css/Stdw.css" type="text/css">
<title>Documento sin título</title>
<style>
	.tituloTabla{
		font-size:12px;
		font-family:"Times New Roman", Times, serif;
		font:bold
		}
	.cuerpoTabla{
		font-size:12px;		
		}		
	.fondo6{

	}
</style>
</head>
<body topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">
<table align="center" cellpadding="0" cellspacing="0" width="100%" border="0" class="Tabla3">
<tr>
<td width="89%">
<table align="center" cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
	<td style="width:60px" align="center" class="tituloTabla"><label >Tarjeta</label></td>
    <td style="width:120px" align="center" class="tituloTabla"><label >F. Emisión</label></td>
    <td style="width:120px" align="center" class="tituloTabla"><label >F. Caducidad</label></td>
    <td style="width:100px" align="center" class="tituloTabla"><label >Usuario</label></td>
    <td style="width:120px" align="center" class="tituloTabla"><label >F. Ult. Oper</label></td>      
</tr>
<%
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 
%>
<tr>    
	<td align="center"><label ><%= rs.Fields("nTarjNumb").value %></label></td>
    <td align="center"><label ><%= rs.Fields("demisdate").value %></label></td>
    <td align="center"><label ><%= rs.Fields("dcadudate").value %></label></td>
    <td align="center"><label ><%= rs.Fields("suserdesc").value %></label></td>
    <td align="center"><label ><%= rs.Fields("dultoper").value %></label></td>
</tr>
<%
	rs.MoveNext
	Loop
	end if
	rs.Close
	set rs = Nothing
	Conex.Close
	set Conex = Nothing
%>
</table>
</td>
<!--
<td align="center">
<table align="center" cellpadding="0" cellspacing="0">
<tr>
    <td>
    <input type="button" style="width:80px" name="btnDesactivar" value="Desactivar">
    </td>
</tr>

<tr>
    <td>
    <input type="button" style="width:80px" name="btnEditar" value="Editar">
    </td>
</tr>
</table>
</td>
-->
</tr>
</table>
</body>
</html>
