mandar a bd info. con un checkbox

Chuy · #1 (**permalink**) 09/04/2008, 15:20

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">&nbsp;</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>