Pues si, por que la condición esta mal:
Si obtenemos
MesActual = Month(ra("fec_report"))
Deberiamos preguntar por
if Month(ra("fec_report")) <> MesActual then
Así ya debería funcionar.
Un pregunta: No entiendo el por qué, de este código:
Código:
<%
Dim RZ
Set RZ=conn.Execute ("select ltrim(rtrim(forma_tran)) as forma_tran from aextraor where fec_report >= ('"&date1&"') and fec_report <= ('"&date2&"') and codactivo=('"&id&"')")
Do until RZ.EOF
forma=RZ("forma_tran")
RZ.MoveNext
Loop
%>
Si lo que quieres es el último, ordenalo descendentemente, o bien usa el método MoveLast.
Saludos