Hola a todos,
Tengo una pagina en asp que me envia dos variables, las cuales las recibo en otra pagina y con estas dos variables fec_ini y fec_fin, me debe de traer como resultado el intervalo entre la fec_ini y la fec_fin, aqui les dejo mi codigo, haber que es lo que tengo mal, primero les dejo el error que me sale y luego el codigo.
agradesco sus antenciones, saludos.
Error
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: '[string: "fec_abo >= 01/10/200"]'
/sistemas/seguros/cuenta/status/status_g/cuenta_g.asp, line 35
Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
Página:
POST 97 bytes to /sistemas/seguros/cuenta/status/status_g/cuenta_g.asp
Datos de POST:
tip_con=opcion3&num_mov=&num_mov_c=&fec_ini=01%2F1 0%2F2007&fec_fin=10%2F10%2F2007&Submit22=BUSCAR
El codgio es este:
<%@ LANGUAGE=VBSCRIPT %>
<% Option Explicit %>
<!--#include file="../../../adovbs.inc"-->
<%
if ((Request.Form("fec_ini")= EMPTY))Then
Server.Transfer("cuenta_error_2.asp")
end if
if ((Request.Form("fec_fin")= EMPTY))Then
Server.Transfer("cuenta_error_2.asp")
end if
%>
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString= "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=d:/wwwroot/sistemas/seguros/cuenta.mdb"
objConn.Open
Dim MinimoAcciones
MinimoAcciones = Request("fec_ini")
MinimoAcciones = cdate(MinimoAcciones)
Dim MinimoAcciones2
MinimoAcciones2 = Request("fec_fin")
MinimoAcciones2 = cdate(MinimoAcciones2)
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation= adUseClient
objRS.Open "fecha_abono" , objConn, adOpenStatic, , adCmdTable
objRS.Sort= "fec_abo ASC"
objRS.Filter = "fec_abo >= " & MinimoAcciones OR "fec_abo <=" & MinimoAcciones2
If objRS.EOF then
Server.Transfer("cuenta_g_error.asp")
Ucase(iMinimoAcciones)
End if
%>
<style type="text/css">
<!--
.style21 {font-weight: bold}
.Estilo6 {color: #FF0000}
-->
</style>
<table id="datos" width="880" align="center" border=".1" cellpadding="0" cellspacing="0">
<div align="center"><strong>MOVIMIENTO DE CUENTA CONCENTRADORA DESDE <span class="Estilo6"><%=fec_abo%> </span>HASTA EL </strong></div>
<p> </p>
<TR>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> ## </B> </TD>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> No. MOVIMIENTO </B> </TD>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> MONTO MOVIMIENTO </B> </TD>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> FECHA ABONO </B> </TD>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> FECHA ABONO 2 </B> </TD>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> NUMERO TRANSACCION </B> </TD>
<TD bgcolor="#E2E9E7"><h5> <B> <div align="center"> CONFIRMA </B> </TD>
</TR>
<p><%
dim icuentaregistros
icuentaregistros=0
Do While Not objRS.EOF
icuentaregistros = icuentaregistros + 1
Response.Write "<TR><TD> <B><center><h5> " & icuentaregistros & "</B></TD> "
Response.Write " <TD> <B><center><h5> " & objRS("num_mov") & "</B></TD> "
Response.Write " <TD> <B><center><h5> " & objRS("monto_mov") & "</B></TD> "
Response.Write " <TD> <B><center><h5> " & objRS("fec_abo") & "</B></TD> "
Response.Write " <TD> <B><center><h5> " & objRS("fec_abo_2") & "</B></TD> "
Response.Write " <TD> <B><center><h5> " & objRS("num_tra") & "</B></TD> "
Response.Write " <TD> <B><center><h5> " & objRS("eje_con") & "</B></TD></TR>"
DIM num_mov, monto_mov, fec_abo, fec_abo_2
num_mov = objRS("num_mov")
monto_mov = objRS("monto_mov")
fec_abo = cdate(objRS("fec_abo"))
fec_abo_2 = cdate(objRS("fec_abo_2"))
objRS.MoveNext
Loop
objRS.Close
Set objRS=Nothing
objConn.Close
Set objConn = Nothing
%>
<table width="207" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td height="22"> </td>
</tr>
<tr>
<td height="22"> </td>
</tr>
<tr>
<td width="203" height="22" background="../analitico_facturas/analitico_facturas_buscar.asp"><div align="center"><a href="analitico_acuse_buscar.asp"><strong>BUSCAR</strong></a></div></td>
</tr>
</table>
<p>
