Problemas no meu codigo ASP

Srs, estou fazendo uma página asp baseada em outra, desenvolvida por um funcionário que não está mais na empresa, e não está funcionando e não estou entendo o por que. Será que alguém pode me orientar? A única coisa que é vista na tela é a instrução "writeln stp" o resto fica tudo em branco.

Grata.

Segue o código da página:

<% @ LANGUAGE = "vb script:void()" OnClick="document.FormSortOrder.SortOrder.value='DicCodigo';document.FormSortOrder.submit();return false;"> <font class="sbd" color=#ffffff>Código </a></td> <td><a href="java script:void()" OnClick="document.FormSortOrder.SortOrder.value='CatCodigo';document.FormSortOrder.submit();return false;"> <font class="sbd" color=#ffffff>Cod Categoria </a></td> <td><a href="java script:void()" OnClick="document.FormSortOrder.SortOrder.value='ProCodigo';document.FormSortOrder.submit();return false;"> <font class="sbd" color=#ffffff>Cod Produto </a></td> <td><a href="java script:void()" OnClick="document.FormSortOrder.SortOrder.value='DicTitulo';document.FormSortOrder.submit();return false;"> <font class="sbd" color=#ffffff>Dica </a></td> <td><a href="java script:void()" OnClick="document.FormSortOrder.SortOrder.value='DicDescricao';document.FormSortOrder.submit();return false;"> <font class="sbd" color=#ffffff>Descrição </a></td> <td><a href="java script:void()" OnClick="document.FormSortOrder.SortOrder.value='DicStatus';document.FormSortOrder.submit();return false;"><font class="sbd" color=#ffffff>Status</a></td> <td><a href="java script:void()" OnClick="document.FormSortOrder.SortOrder.value='DicDtCadastro';document.FormSortOrder.submit();return false;"> <font class="sbd" color=#ffffff>Data Inclusão </a></td> <td> </td> </tr> <% contador = 1 flgBg = "#ffffff" Do While NOT RsProd.EOF DicCodigo = Trim(RsProd("DicCodigo")) CatCodigo = Trim(RsProd("CatCodigo")) ProCodigo = Trim(RsProd("ProCodigo")) DicTitulo = Trim(RsProd("DicTitulo")) DicDescricao = Trim(RsProd("DicDescricao")) DicStatus = Trim(RsProd("DicStatus")) DicDtCadastro = Trim(RsProd("DicDtCadastro")) %> <tr bgcolor="<%=flgBg%>"> <td><font class="sbd"><%=contador%></td> <td><font class="sbd"><%=DicCodigo%></td> <td><font class="sbd"><%=CatCodigo%></td> <td><font class="sbd"><%=ProCodigo%></td> <td><font class="sbd"><center><%=DicTitulo%></center></td> <td><font class="sbd"><center><%=DicDescricao%></center></td> <td><font class="sbd"><center><%=DicStatus%></center></td> <td><font class="sbd"><center><%=DicDtCadastro%></center></td> <td><a href="editar.asp?ProCodigo=<%=DicCodigo%>"><img src="../images/bt_editar.gif" width=28 height=24 border=0 alt="Editar produto"></a></td> </tr> <% if flgBg = "#eeeeee" Then flgBg = "#ffffff" else flgBg = "#eeeeee" End If RsProd.MoveNext() contador = contador + 1 Loop %> </table></td></table><% Call FooterAdm() End Sub '******************************************************* %><% Call TestaSessao("A", "")' SOMENTE USUÁRIOS DO INSTITUCIONAL, TIPO MARKETING, LOGÍSTICA E ADMINISTRADOR PODERÃO ACESSAR ESSA FUNCIONALIDADE.UadNivel = Session("PANASONIC_NIVEL")if UadNivel <> "A" and UadNivel <> "L" and UadNivel <> "M" and UadNivel <> "I" Then MsgErro = "Usuário não autorizado para acessar este módulo." Response.Redirect Application("URLAdm") & "erro.asp?MsgErro=" & Server.URLEncode(MsgErro)End If' PARA PAGINAÇÃOCurrentPage = Trim(Request("CurrentPage"))' VERIFICA PARÂMETROS DE PAGINAÇÃOif Trim(CurrentPage) = "" Then CurrentPage = 1End If'Ordem de pesquisaSortOrder = Trim(Request("SortOrder"))if SortOrder = "" Then : SortOrder = "DicCodigo"'If UCase(Request("debug")) = "SP" then: tabela1(Application("Conn").Execute("sp_helptext 'SPPN_Dica_Listar'"))DicCodigo = Trim(Request("DicCodigo"))STP = "EXEC SPPN_Dica_Listar "writeln stp'response.end'* ARRUMA PAGINAÇÃOSet RsProd = Server.CreateObject("ADODB.Recordset")RsProd.CursorLocation = 3RsProd.open STP, Application("Conn"), adOpenStatic, adLockBatchOptimistic, adCmdTexttabela1(RsProd)'If UCase(Request("debug")) = "RSPROD" then: tabela1(RsProd)if NOT RsProd.EOF Then if Trim(Request("Last")) = SortOrder Then SortOrder = SortOrder & " desc" End If RsProd.Sort = SortOrder CurrentPage = int(CurrentPage) RsProd.PageSize = PageSize RsProd.AbsolutePage = CurrentPageEnd Ifif NOT RsProd.EOF Then Formulario()else%> <!-- <script> java script:history.go(-1); </script> --><%end if%>