Problemas no meu codigo ASP

[cgrunenberg 0]

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%>

[dark0 0]

desculpe ..mas nao entendi..o que o codigo faz? ou deveria fazer?gera algum erro na tela?tenta explicar o que o script deve fazer ..talvez de para dar uma simplificada..

[cgrunenberg 0]

gera algum erro na tela?não, simplesmente a tela fica em branco, não aparece nada (menus, rodapé... nada)o que o codigo faz? ou deveria fazer?Ele deve acessar via procedure o banco e retornar uma lista com todos os registros cadastrados no banco, só isso.

[Mário Monteiro 179]

Tiazinhaexiste alguma mensagem de erropois voce jogou ai o codigo mas nao tem como adivinharmos

[cgrunenberg 0]

Tiozinho....gera algum erro na tela?não, simplesmente a tela fica em branco, não aparece nada (menus, rodapé... nada)não aparece nenhuma mensagem de erro.

[Mário Monteiro 179]

Tiozinho....

Desculpe é que la em cima voce disse

Grata.

estranho nao ter erro...tem algum ON ERRO RESUME NEXT em seu codigo??se nao tiver abre o codigo fonte da pagina que nao tem nada e veja se o erro aperece em alguma tag mal formatada