quiero que al seleccionar un check box en mi pagina se mande la fecha del dia que se selecciono (muestro una tabla y dentro de esa tabla le pongo un check box )y al volver a mandar llamar la pagina , en el reporte que ya no me aparezcan las que ya les puse la fecha .
me podrian asesorar como le hacerle ya le di vueltas y vueltas. pongo el codigo aversi me di a entender. porque ya llevo varios dias con esto y no doy pie.
Código HTML:
<%@ Language="VbScript" %>
<% Option Explicit %>
<% Session.LCID=2058 %>
<% Server.ScriptTimeOut=600 %>
<% if request.cookies("aduana")<>"" then %>
<% Dim listado %>
<%dim fecha, Ent
Fecha = FormatDateTime(Date,2)%>
<% listado=false %>
<% Dim Base, Rs, ConnStr, Sql, contador, where, color ,msg %>
<% Set Base=Server.CreateObject("ADODB.Connection") %>
<% Set Rs=Server.CreateObject("ADODB.Recordset") %>
<% Rs.CursorType=0 %>
<% Rs.Locktype=1 %>
<% ConnStr="Driver={Microsoft Visual FoxPro Driver}; SourceType=DBF; DBQ=" & Server.Mappath("datos/2008/comp505.dbf") %>
<% Base.Open ConnStr %>
<% listado=true %>
<% where="" %>
<% if Ucase(trim(request.cookies("aduana")("gcliente")))<>"TODOS" then %>
<% where=" where trim(left(clprov,3))=Upper('"& request.cookies("aduana")("gcliente") &"') " %> [COLOR="Lime"]y aqui me falta poner condicion donde la fechatrans este vacia[/COLOR]
<% Else %>
<% End if %>
<% Sql="Select * from "& Server.MapPath("datos/2008/comp505.dbf")& " " & where %>
<% Rs.Open Sql,Base %>
<% End if %>
<form action="indpfentr.asp" method="post">
<html>
<head>
<title>Buscador</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
ruta.action="indpfent.asp";
return true;
}
function detalles(archivo){
window.open("detalles.asp="+archivo,"","status=yes,scrollbars=yes,resizable=yes,width=450,height=450");
}
//-->
</Script>
<style type="text/css">
<!--
input { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px}
select { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px}
a:hover { color: #000066; text-decoration: none}
a:active { text-decoration: none}
a:link { text-decoration: none}
a:visited { text-decoration: none}
body {
background-color: #efaa33;
}
-->
</style>
</head>
<body text="#000000" leftmargin="0" topmargin="0">
<td valign="15" width="158"> </td>
</tr>
</table>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<table width="600" border="0" cellspacing="0" cellpadding="0">
</table> <input type="submit" value="Enviar" />
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table border="0" cellspacing="1" cellpadding="2" width="100%" bgcolor="#000000">
<% if not(Rs.Bof and Rs.Eof) then %>
<tr>
<td colspan="21"><font face="Arial, Helvetica, sans-serif" size="2"><b><font color="#FFFFFF">Listado
de Resultados </font></b></font></td>
</tr>
<tr>
<th bgcolor="#E99501"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">Reg. Ent</font></th>
<th bgcolor="#E99501"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">Referencia</font></th>
<th bgcolor="#E99501"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">No.Cliente</font></th>
<th bgcolor="#E99501"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">Cliente</font></th>
<th bgcolor="#E99501"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">Fecha Inicial</font></th>
<th bgcolor="#E99501"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">CLPROV</font></th>
<th bgcolor="#E99501"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">fecha trans</font></th>
</tr>
<% contador=0 %>
<% color="#EEEEEE" %>
<% Do until Rs.Eof %>
<% contador=contador+1 %>
<tr>
<td align=left bgcolor="<%=color%>" nowrap><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input name="uncheckbox" type="checkbox" value="1" />
<%
Ent = Request.Form("uncheckbox")
If Ent = "" Then
Ent=false
else
Ent=fecha
end if%>
<%Response.Write(Ent)%>
</font></td>
<td align=left bgcolor="<%=color%>" nowrap><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=Rs(0)%></font></td>
<td align=right bgcolor="<%=color%>" nowrap><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=Rs(1)%></font></td>
<td align=left bgcolor="<%=color%>" nowrap><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=Rs(2)%></font></td>
<td align=right bgcolor="<%=color%>" nowrap><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=Rs(3)%></font></td>
<td align=right bgcolor="<%=color%>" nowrap><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=Rs(25)%></font></td>
<td align=right bgcolor="<%=color%>" nowrap><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=Rs(49)%></font></td>
</tr>
<% if color="#EEEEEE" then %>
<% color="#FFFFFF" %>
<% Else %>
<% color="#EEEEEE" %>
<% End if %>
<% Rs.MoveNext %>
<% Loop %>
<% Rs.close %>
<% Set Rs = Nothing %>
<% Base.close %>
<% Set Base = Nothing %>
<tr>
<td colspan=21 align=right bgcolor="#FFFFFF"><font size=1 face="Verdana, Arial, Helvetica">
Resultado de la Busqueda: <b><%=contador%></b> Registros </font></td>
</tr>
<% Else %>
<tr>
<td bgcolor="#000000"><font face="Arial, Helvetica, sans-serif" size="2"><b><font color="#FFFFFF">
No se Encontro Ningun Registro con esa Información </font></b></font></td>
</tr>
<% End if %>
</table>
</td>
</tr>
</table>
<br>
</form>
</body>
</html>