Redireciona para uma pagina de suporte quando a conexão com o Banco não foi estabelecida!

Por Yongg Choi - Extraído de Imasters.com.br

Quando você conecta em um banco de dados pelo ASP, você não tem certeza se a conexão estará disponível sempre a todos. Desta forma, com o uso deste código, o usuário será redirecionado para uma página de aviso ou outra que você desejar, quando ocorrer o erro abaixo:

Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC SQL Server Driver][SQL Server]SQL Server has been paused. No new connections will be allowed. /LocalTaeyo/QAboard/S.asp, line 11

NOTA: Este exemplo marca a página msg.asp como a de aviso. Então, crie uma com este nome e insira um aviso de instabilidade no servidor de banco de dados.

<%
on error resume next

Set DbCon = Server.CreateObject("ADODB.Connection")
'faça sua string de conexao aqui normalmente
DbCon.Open ("DSN=***;uid=***;pwd=***;")

If Dbcon.Errors.Count > 0 then
if Err.number = "-2147467259" then
'msg.asp : faça este pagina de aviso!
Response.Redirect "msg.asp" 'On Error Connecting
else
Response.Redirect "GoAhead.asp"
end if

else

Response.Redirect "GoAhead.asp"

end if
%>

Esta matéria foi postada originalmente no ASP4Developers por Thiago Machado Souza (site), que na época era "Programador Desbravador, buscando quebrar todas as fronteiras além do horizonte da arte de programar !
www.thiagomachado.com.br". Hoje, vai saber...