Stored Procedure

Olá pessoal ,Gostaria que me ajudasse com essa Stored ProcedureÉ uma SP com a finalidade de um select , é uma busca de várias tabelas para um BOLETIM ESCOLAR.A SP , não ta retornando nada , não da erro , mas não traz as informaçoes do banco FIREBIRDsegue o codigo<td width="427"><table width="560" border="0" cellspacing="0" cellpadding="0"> <form name="formCur" method="post" action="buscafaltas.asp"> <input type="hidden" name="ir" value="faltas.asp"> <input type="hidden" name="busca" value="1"> <tr> <td> </td> </tr> <tr> <td height="25" align="right" class="style4">Consulta Boletim de Faltas </td> </tr> <tr> <td height="1" bgcolor="#666666"> </td> </tr> <tr> <td height="10"> </td> </tr> <tr> <td align="center"><table border="0" cellpadding="4" cellspacing="1" class="style1"> <tr> <td align="right">Disciplina</td> <td> </td> </tr> <tr> <td colspan="4" align="center"><input type="submit" class="botao" value="Buscar" /> <input type="reset" class="botao" value="Limpar" /></td> </tr> </table> <br> <table border="0" cellpadding="3" cellspacing="2" class="texto"><% ' Instancio o Objeto para execucao da ProcedureSet DataCmd = Server.CreateObject("ADODB.Command")' Atribuo o Nome da Procedure que sera ExecutadaDataCmd.CommandText = "BOLETIM_ESCOLAR_ALUNO"' Atribuo o Objeto de Conexao com o BDDataCmd.ActiveConnection = Conn' Atribuo o Tipo de Objeto que sera ExecutadoDataCmd.CommandType = adCmdStoredProc' Passo os ParâmetrosDataCmd.Parameters.Append DataCmd.CreateParameter("EVESC_CODI", adInteger, adParamInput, 10, Session("ESC_CODI"))DataCmd.Parameters.Append DataCmd.CreateParameter("EVSUB_CODI", adInteger, adParamInput, 10, Session("SUB_CODI"))DataCmd.Parameters.Append DataCmd.CreateParameter("EVMAT_CODI", adInteger, adParamInput, 10, Session("MAT_CODI"))' Executo a ProcedureSet RS = DataCmd.Execute' Recupero a variável de retorno da procedure'Conn.close()' Fecho a Conexão while not (RS.EOF) %> <tr> <td align="center"><b>Disciplina </b></td> <td align="center"><b>Mês 1</b></td> <td align="center"><b>Mês 2</b></td> <td align="center"><b>Mês 3</b></td> <td align="center"><b>Mês 4</b></td> <td align="center"><b>Mês 5</b></td> <td align="center"><b>Total Faltas</b></td> <td align="center"><b>Carga Horaria</b></td> <td align="center"><b>Situação</b></td> </tr><% Cor = "#F3F3F3" %> <tr> <td align="center" bgcolor="<%=Cor%>"><%=RS("dis_nome")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA01")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA02")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA03")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA04")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA05")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_TOTAL")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("CUR_CARHOR")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_STATUS")%></td> </tr><% If Cor = "#FFFFFF" Then Cor = "#F3F3F3" Else Cor = "#FFFFFF" End If RS.MoveNext Wend%> </table> <% 'Else%> <span class="style3"><br> <b>Nenhuma disciplina foi encontrado!</b></span> <% 'End If RS.Close Set RS = Nothing'End If%> </td> </tr> <tr> <td class="texto"> </td> </tr> </form></table>