Rotina de Erro

Esta página demonstra uma rotina básica para tentar interpretar alguns erros que podem ser de script ou de banco de dados. Aconselho sempre usar esse tipo de rotina em todos os arquivos ASP que fazem acesso a Banco de Dados. E espero que ele nunca seja executado em seus programas...

<% on error resume next
...
Set Conn = Server.CreateObject("ADODB.Connection")
...
SQLstmt = "..."
Set RS = Conn.Execute(SQLStmt)
If err.number>0 then%>
  Ocorreram Erros no Script:<P>
  Número do erro=<%=err.number%><P>
  Decrição do erro=<%=err.description%><P>
  Help Context=<%=err.helpcontext%><P>"
  Help Path=<%=err.helppath%><P>
  Native Error=<%=err.nativeerror%><P>
  Source=<%=err.source%><P>
  SQLState=<%=err.sqlstate%><P>
<%else%>
  Nenhum problema aconteceu!<p>
<%end if
IF conn.errors.count> 0 then%>
  Ocorreram erros com o Database<P><%=SQLstmt%><P>
  <%for counter= 0 to conn.errors.count%>
      Erro #<%=conn.errors(counter).number%><P>
      Descrição -><%=conn.errors(counter).description%><p>
  <%next
else%>
  Nenhum erro com o Database
<%end if
Conn.Close%>

Voltar

Copyright (c) 1998 - Alexandre Barreto