Buenos días, el problema que me esta ocurriendo es que quiero sacar las facturas del mes seleccionadas haciendo un filtro y no me aparecen resultados. La consulta es la siguiente:
<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit
response.buffer %>
<HTML>
<HEAD>
<TITLE>CONTABILIDAD DE GASTOS</TITLE>
<style type="text/css" media="print">
#imprime {display:none}
</style>
<CENTER>
<FONT COLOR=BLUE SIZE=+5>
<B>INFORME DE GASTOS</B>
</FONT>
</CENTER>
</HEAD><HR><BR>
<CENTER>
<BODY BGCOLOR="#F3E2A3">
<TABLE BORDER=0>
<TR>
<TD>
<% Dim m,a,f,conex,rs,sqltext
m=Request.Form("mes")
a=Request.Form("ano")
f=Request.Form("n_factura")
set conex=Server.CreateObject("adodb.connection")
conex.open "provider=microsoft.jet.oledb.4.0;data source="&Server.mappath("./bd/contabilidad.mdb") %>
<TABLE ALIGN=CENTER BORDER=0>
<TR>
<TD>
<FONT SIZE=+3><B>CONSULTA </B>
</FONT>
</TD>
</TR>
</TABLE><BR>
<% set rs=server.createobject("adodb.recordset")
sqltext="select ano, count(n_factura) as facturas, lugar.mes from meses inner join lugar on meses.mes = lugar.mes where ano='"&a&"' group by lugar.mes, ano, meses.numeromes order by meses.numeromes;"
set rs=conex.execute(sqltext)
if not rs.eof then %>
<TABLE ALIGN=CENTER BORDER=1>
<TR><%do While not rs.eof%>
<TH ALIGN=CENTER WIDTH="120" BGCOLOR="#00AAAA">
<FONT SIZE=+3>AÑO
</FONT>
</TH>
<TD ALIGN=CENTER WIDTH="120">
<FONT SIZE=+3><%Response.Write rs("ano")%>
</FONT>
</TD>
</TR>
</TABLE><BR><BR>
<TABLE ALIGN=CENTER BORDER=1>
<TR>
<TH COLSPAN="2" BGCOLOR="#00AAAA">
<FONT SIZE=+2>MES
</FONT>
</TH>
</TR>
<TR><%do While not rs.eof%>
<TD WIDTH="120" ALIGN=CENTER>
<%Response.Write Ucase(rs("mes"))%>
</TD>
<TD ALIGN=CENTER>
<BUTTON TYPE="SUBMIT" STYLE="WIDTH:AUTO;HEIGHT:36PX;FONT-SIZE:10PT;BACKGROUND:#C0C0C0;BORDER-RADIUS:8PX;" ONCLICK="location.href='editar5.asp?action=editar5 &mes=<%= rs("facturas")%>'">
<IMG SRC='EDITAR3.PNG' ALIGN='ABSMIDDLE' HSPACE='4'/>CONSULTAR
</BUTTON>
</TD>
</TR><% rs.movenext
loop %>
</TABLE><BR>
<TABLE ALIGN=CENTER CELLSPACING="4" CELLPADDING="8" BORDER=0>
<TR>
<TD>
<BUTTON TYPE="SUBMIT" ID="IMPRIME" STYLE="WIDTH:auto;HEIGHT:36PX;FONT-SIZE:10PT;BACKGROUND:#C0C0C0;BORDER-RADIUS:8PX; "ONCLICK="location.href='MENSUAL.HTML'">
<IMG SRC="OK.PNG" ALIGN="ABSMIDDLE" HSPACE='4'/> ACEPTAR
</BUTTON>
</TD>
</TR>
</TABLE>
<% loop
end if
rs.close
conex.close
set rs=nothing
set conex=nothing %>
</TD>
</TR>
</TABLE>
</BODY>
</CENTER>
</HTML>
Y se me muestre en esta otra pagina:
<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>CONTABILIDAD HOGAR</TITLE>
<TABLE ALIGN=CENTER WIDTH=40% BGCOLOR=#F1F1F1 CELLPADDING="0" CELLSPACING="0" BORDER=3>
<TR ALIGN=CENTER>
<TD>
<FONT COLOR=BLACK SIZE=+5 FACE="VERDANA">
GASTOS SUANCES
</FONT>
</TD>
</TR>
</TABLE><P>
</HEAD><HR>
<BODY>
<TABLE ALIGN=CENTER BORDER=0>
<TR>
<TD>
<% Dim conex,sqltext,rs,m,a
a=Request.Form("ano")
m=Request.Form("mes")
set conex=Server.CreateObject("adodb.connection")
conex.open "provider=microsoft.jet.oledb.4.0;data source="&Server.mappath ("./BD/contabilidad.mdb")%>
<TABLE ALIGN=CENTER CELLSPACING="6" CELLPADDING="2" BORDER=0>
<TR ALIGN=CENTER>
<TD ALIGN=LEFT><FONT COLOR=BLUE SIZE=+3 FACE="VERDANA"><U>DATOS OBTENIDOS</U></FONT>
</TD>
</TR>
</TABLE><BR>
<% set rs=Server.CreateObject("adodb.recordset")
sqltext="select * from lugar where mes='"&request("facturas")&"' ;"
set rs=conex.execute(sqltext)
if not rs.eof then %>
<TABLE ALIGN=CENTER BORDER=1>
<TR><%do While not rs.eof%>
<TH WIDTH="100" BGCOLOR="#00CCDDE">
<FONT SIZE=+2>AÑO
</FONT>
</TH>
<TD WIDTH="140" ALIGN=CENTER>
<FONT SIZE=+2><%Response.Write rs("ano")%>
</FONT>
</TD>
</TR>
<TR>
<TH BGCOLOR="#00CCDDE">
<FONT SIZE=+2>MES
</FONT>
</TH>
<TD ALIGN=CENTER>
<FONT SIZE=+2><%Response.Write UCase(rs("mes"))%>
</FONT>
</TD>
</TR>
</TABLE><BR>
<TABLE ALIGN=CENTER BORDER=1 >
<TR ALIGN=CENTER BGCOLOR="#00CCDD">
<TH WIDTH="150">Nº FACTURA
</TH>
<TH WIDTH="140">CONCEPTO
</TH>
<TH WIDTH="100">IMPORTE
</TH>
</TR>
<TR><% do While not rs.eof %>
<TD ALIGN=CENTER><%Response.Write rs("n_factura")%>
</TD>
<TD ALIGN=CENTER><%Response.Write UCase(rs("concepto"))%>
</TD>
<TD ALIGN=CENTER><%Response.Write formatnumber(rs("importe"),2)%> €
</TD>
</TR>
</TABLE><BR>
<TABLE ALIGN=RIGHT BORDER=1>
<% set conex=Server.CreateObject("adodb.connection")
conex.open "provider=microsoft.jet.oledb.4.0;data source="&Server.mappath("./bd/contabilidad.mdb")
set rs=Server.CreateObject("adodb.recordset")
sqltext="select sum(importe) as total from lugar where mes='"&request("facturas")&"' ;"
rs.open sqltext,conex,1 %>
<TR>
<TD ALIGN=CENTER WIDTH="100" BGCOLOR="#FF2222">
<FONT SIZE=+2>TOTAL
</FONT>
</TD>
<TD ALIGN=CENTER WIDTH="100">
<FONT SIZE=+2><%Response.Write formatnumber(rs("total"),2)%> €
</FONT>
</TD>
</TR><% rs.movenext
loop %>
</TABLE><BR><BR><BR>
<FORM METHOD="GET" ACTION="MENSUAL.HTML" >
<TABLE ALIGN=CENTER CELLSPACING="6" CELLPADDING="2" BORDER=0>
<TR>
<TD>
<BUTTON TYPE="SUBMIT" STYLE="WIDTH:AUTO;HEIGHT:36PX;FONT-SIZE:10PT;BACKGROUND:#C0C0C0;BORDER-RADIUS:8PX; "ONCLICK="location.href='MENSUAL.HTML'">
<IMG SRC="OK.PNG" ALIGN="ABSMIDDLE" HSPACE='4'/> ACEPTAR
</BUTTON>
</TD>
</TR>
</TABLE><BR>
<% loop
end if
conex.close
set conex=nothing %>
</FORM>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
Muchas Gracias y un saludo.