Tema: insertar fecha en DB con un checkbox
Ver Mensaje Individual
  #5 (permalink)  
Antiguo 28/03/2008, 14:33
Chuy
 
Fecha de Ingreso: mayo-2005
Mensajes: 14
Antigüedad: 19 años, 11 meses
Puntos: 0
Re: insertar fecha en DB con un checkbox
voy a poner toda la pagina, lo que tengo en azul es en donde tengo los detalles bueno echenmele un ojo
me falta que al darle enviar me actualize en la tabla la fecha
para que al volver a entrar poner un query donde solo me aparezca lo que no tiene fecha..


<%@ Language="VbScript" %>
<% Option Explicit %>
<% Session.LCID=2058 %>
<% Server.ScriptTimeOut=600 %>
<% if request.cookies("aduana")<>"" then %>
<% Dim listado %>

<%dim fecha
Fecha = FormatDateTime(Date,2)

%>


<% listado=false %>


<% Dim Base, Rs, ConnStr, Sql, contador, where, color %>
<% 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="" %>



<% Sql="Select * from "& Server.MapPath("datos/2008/comp505.dbf")& " " & where %>
<% Rs.Open Sql,Base %>
<% End if %>



<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">
<table width="100%" height="126" border="0" cellpadding="0" cellspacing="0">

<tr>
<td width="154" height="116" valign="top"><img src="imagenes/daw03.gif" width="133" height="116"></td>
<td width="660">
<table width="645" border="0" cellspacing="0" cellpadding="0" >

</table>
<div align="center">
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#111111">SESI&Oacute;N</font></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="5" color="#111111"> <%=request.cookies("aduana")("contacto")%> </font></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#111111">( <%=request.cookies("aduana")("cnombre")%>) </font></p>
</div> </td>


<td valign="15" width="158"><img src="imagenes/daga_light5.gif" width="91" height="111"></td>
</tr>
</table>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<table width="600" border="0" cellspacing="0" cellpadding="0">

</table>
<div align="center"><img src="imagenes/divider1.gif" width="841" height="38"></div>
<table width="100%" height="40" border="0" cellpadding="0" cellspacing="0">

<tr>
<td width="154" height="40" valign="top"><p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p></td>
<td width="660">
<table width="645" border="0" cellspacing="0" cellpadding="0" >

<p><td align=left bgcolor="<%=color%>" nowrap><A href="indpfent.asp" target="_parent"><IMG src="imagenes/regent.jpg" width="174" height="38" border="0"><input name="boton" type="submit" value="enviar"> </A> </p></td>
<p></p>
<p></p>
<p><td align=left bgcolor="<%=color%>" nowrap><A href="indtxls.asp" target="_parent"><IMG src="imagenes/excel.gif" width="194" height="36" border="0"> </A> </p></td>
<p><td align=right bgcolor="<%=color%>" nowrap><A href="salir.asp" target="_parent"><IMG src="imagenes/Cerrar-Sesion.gif" width="184" height="36" border="0"> </A> </p></td>


</table>

<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>

<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>
<th bgcolor="#E99501"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">Valor Dlls</font></th>
<th bgcolor="#E99501"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">Status Embarque</font></th>

<th bgcolor="#E99501"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">Oficina</font></th>
<th bgcolor="#E99501"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">Fecha Modif</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="fechatrans" type="checkbox" value="<%response.write fecha%>"></font></td>
<!-- <input type="checkbox" value="<%response.write fecha%>" name="<%=Rs(49)%>"> -->

<!-- "#" & date() & "#"
sqlstr= "INSERT INTO prueba (fecha,guias) VALUES('"& Date() &"',"& request.form("guias") &")" -->

<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>
<td align=right bgcolor="<%=color%>" nowrap><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=Rs(6)%></font></td>
<td align=left bgcolor="<%=color%>" nowrap><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=Rs(7)%></font></td>
<td align=left bgcolor="<%=color%>" nowrap><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=Rs(9)%></font></td>
<td align=right bgcolor="<%=color%>" nowrap><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=Rs(10)%></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>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"><table width="600" border="0" cellspacing="0" cellpadding="0" ><tr><td>&nbsp;</td></tr></table></td>
</tr>
<tr>
<td width="100%" background="imagenes/fondo_barra_inf1.jpg"><img src="imagenes/fondo_barra_inf1.jpg" width="1" height="20"></td>
</tr>
<tr>
<td width="100%" background="imagenes/fondo_barra_inf2.jpg"><img src="imagenes/fondo_barra_inf2.jpg" width="1" height="27"></td>
</tr>
</table>




</body>
</html>