HOLA AMIGOS TENGO UN SERIO PROBLEMA, TENGO UNA PAGINA DE BUSQUEDAS DE CUENTAS , PERO LAS MISMAS LA DESPLIEGO POR UN RANGO DE FECHA. EL ASUNTO ES QUE HACE EL QUERY DE SQL, PORQUE NO ME MANDA EL RESULTADO, NO ME MANDA NI ERROR. AHY LES PONGO EL CODIGO, ESPERO ME AYUDEN
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
%>
************************************************** ******