

CODIGO
************************************************** ******
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/galope.asp" -->
<%
Dim rsb__MMColParam
rsb__MMColParam = "''"
If (request.querystring("search") <> "") Then
rsb__MMColParam = request.querystring("search")
End If
%>
<%
Dim rsb__fecha1
rsb__fecha1 = "%"
If (request.querystring("frmInicio") <> "") Then
rsb__fecha1 = request.querystring("frmInicio")
End If
%>
<%
Dim rsb__fecha2
rsb__fecha2 = "%"
If (request.querystring("frmFinal") <> "") Then
rsb__fecha2 = request.querystring("frmFinal")
End If
%>
<%
Dim rsb
Dim rsb_numRows
Set rsb = Server.CreateObject("ADODB.Recordset")
rsb.ActiveConnection = MM_galope_STRING
rsb.Source = "SELECT CONVERT(varchar(30), fecha, 111), COD_CLIENTE FROM dbo.TAB_PDA_EB_MAESTRO WHERE FECHA BETWEEN '" + Replace(rsb__fecha1, "'", "''") + "' AND '" + Replace(rsb__fecha2, "'", "''") + "' AND COD_CLIENTE LIKE '" + Replace(rsb__MMColParam, "'", "''") + "'"
rsb.CursorType = 0
rsb.CursorLocation = 2
rsb.LockType = 1
rsb.Open()
rsb_numRows = 0
%>
<%
Dim RE
Dim RE_numRows
Set RE = Server.CreateObject("ADODB.Recordset")
RE.ActiveConnection = MM_galope_STRING
RE.Source = "SELECT * FROM dbo.empresas"
RE.CursorType = 0
RE.CursorLocation = 2
RE.LockType = 1
RE.Open()
RE_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin título</title>
<!-- <script language="JavaScript" src="js/date-picker.js"></script> !-->
<script language="javascript" type="text/javascript" src="datetimepicker.js">
</script>
<script Language="JavaScript">
<!--
function validar(formulario)
{
var v_mes31dias = /^([1-3]0|[0-2][1-9]|31|[0-9])\/(0[1-9]|1[0-2])\/(19[0-9][0-9]|20[0-1][0-9]|2020)$/
var f = document.forms["form1"]
if (!v_mes31dias.test(f.frmInicio.value) ) {
alert('Favor ingrese la fecha inicial correctamente (dia/mes/año)')
f.frmInicio.focus()
return false
}
if (!v_mes31dias.test(f.frmFinal.value) ) {
alert('Favor ingrese la fecha final correctamente (dia/mes/año)')
f.frmFinal.focus()
return false
}
return true
}
//-->
</script>
<style type="text/css">
<!--
.Estilo11 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; }
.Estilo12 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 14px;
}
.Estilo13 {font-family: Verdana, Arial, Helvetica, sans-serif}
.Estilo15 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold; }
.Estilo16 {color: #FFFF00}
.Estilo25 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 14px; color: #FFFFFF; }
-->
</style>
</head>
<body>
<table width="725" border="0" align="center">
<tr>
<th colspan="2" scope="row"><div align="center"><img src="file:///C|/Inetpub/wwwroot/bolsa/Images/galope.gif" width="471" height="170"></div></th>
</tr>
<tr bgcolor="#DC2B19">
<th colspan="2" scope="row"> </th>
</tr>
<tr>
<th width="158" valign="top" bgcolor="#FFFFCC" scope="row"><table width="158" height="100" border="0">
<tr>
<th width="152" valign="top" scope="row"><span class="Estilo12"><a href="panel.asp">Consultas</a></span></th>
</tr>
<tr>
<th valign="top" scope="row"><span class="Estilo12"><a href="status.asp">Status de Investigaciones</a> </span></th>
</tr>
<tr>
<th valign="top" scope="row"> </th>
</tr>
</table>
<p> </p>
<p> </p></th>
<td width="557" valign="top"><table width="569" align="center">
<tr>
<th scope="row"><p><span class="Estilo12">Bienvenido</span> <span class="Estilo11"><%= Session("MM_USERNAME") %></span> </p></th>
</tr>
<tr>
<th bgcolor="#DC2B19" scope="row"> </th>
</tr>
<tr>
<th scope="row"><form action="PRUEBA.ASP" method="get" name="form1" id="form1">
<table width="541">
<tr>
<th width="161" scope="row"><div align="right"><span class="Estilo11">Número de Cuenta </span></div></th>
<td><input name="search" type="text" id="search" style="width:100 px;" value="<%= Request.QueryString("search") %>"></td>
<td width="57"> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<th scope="row"><div align="right"><span class="Estilo11">Fecha</span></div></th>
<td width="144"><input name="frmInicio" type="text" id="demo2" value="<%= Request.QueryString("frmInicio") %>"></td>
<td><a href="javascript:NewCal('demo2','mmddyyyy')"><img src="images/calbtn.gif" width="34" height="22" border="0" alt="Seleccione una Fecha"></a></td>
<td width="159"><span class="Estilo13">A</span></td>
<td width="159"><input name="frmfinal" type="text" id="demo1" value="<%= Request.QueryString("frmFinal") %>">
<td width="159"><a href="javascript:NewCal('demo1','mmddyyyy')"><img src="images/calbtn.gif" width="34" height="22" border="0" alt="Seleccione una Fecha"></a></td>
</tr>
<tr>
<th scope="row"> </th>
<td><input type="submit" value="Buscar"></td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr bgcolor="#FFFFFF">
<th colspan="6" scope="row"> </th>
</tr>
</table>
</form></th>
</tr>
<tr>
<th scope="row"> <% If Not rsb.EOF Or Not rsb.BOF Then %>
<table width="464">
<tr bgcolor="#DC2B19">
<th scope="row"><div align="center" class="Estilo16"><span class="Estilo15">Cuenta</span></div></th>
<td><div align="center" class="Estilo16"><span class="Estilo15">Fecha de Entrega</span></div></td>
<td><div align="center" class="Estilo16"><span class="Estilo15">Hora</span></div></td>
<td><div align="center" class="Estilo16"><span class="Estilo15">Distribución</span></div></td>
<td><div align="center" class="Estilo16"><span class="Estilo15">Anotación</span></div></td>
</tr>
<tr>
<th scope="row"><%=(rsb.Fields.Item("cod_cuenta").Valu e)%></th>
<td><strong><%=(rsb.Fields.Item("fecha").Value)% ></strong></td>
<td><strong><%=(rsb.Fields.Item("Hora").Value)%> </strong></td>
<td><strong><%=(rsb.Fields.Item("distribucion").Va lue)%></strong></td>
<td><strong><%=(rsb.Fields.Item("Anotacion").Value )%></strong></td>
</tr>
<tr>
<th colspan="5" scope="row"> </th>
</tr>
<tr>
<th colspan="5" scope="row"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100" height="22">
<param name="BGCOLOR" value="">
<param name="movie" value="button1.swf">
<param name="quality" value="high">
<embed src="button1.swf" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100" height="22" ></embed>
</object></th>
</tr>
</table>
<p> </p>
<% End If ' end Not rsb.EOF Or NOT rsb.BOF %>
<p> </p></th>
</tr>
</table></td>
</tr>
<tr bgcolor="#DC2B19">
<th colspan="2" valign="top" scope="row"> </th>
</tr>
</table>
<p> </p>
</body>
</html>
<%
rsb.Close()
Set rsb = Nothing
%>
<%
RE.Close()
Set RE = Nothing
%>
************************************************** ******