Tratamento mensagem de erro Banco de Dados

[Junior99 0]

Pessoal.Estou com dificuldade para realizar o tratamento de um erro com o SQL, quando o mesmo se encontra fora do ar.Coloquei no inicio da pg <% On Error Resume Next %>,informei o include do adovbs.inc <!--#include file="../includes/adovbs.inc" -->entre a string de conexao com o banco e o primeiro SELECT informei if Err.Number <> 0 thenelseSELECT......End ifmas mesmo assim retorna mensagem de Cannot open database requested in login 'xxxxx'. Login fails.Alguem poderia me dar uma ideia de como contornar esta mensagem.Minha necessidade seria caso o banco esteja fora, nao apareca nenhuma mensagem ou aviso.Grato.

[Anderson Roberto 0]

Poste o início do código completo.

[Junior99 0]

<% Response.Buffer = "true" %><% On Error Resume Next %><%     Set Conexao = Server.CreateObject("ADODB.Connection")   Conexao.Open "provider=sqloledb;data source=;uid=;pwd=;initial catalog="%><!--#include file="../includes/funcoes.asp" --><!--#include file="../includes/adovbs.inc" --><%' ***********************************************************************' ************************** INCLUDES NECESSÁRIOS ***********************' ***********************************************************************class IMPORTACAO	private reg_INSERIDOS	private reg_NAOINSERIDOS	private reg_ATUALIZADOS	private reg_LIDOS	private reg_ERRO	private reg_RETORNO	private reg_TIPO			private Sub Class_Initialize()	end Sub	private Sub Class_Terminate()	end Sub		public property Get LIDOS()		LIDOS = reg_LIDOS............................................................................		  Set Conexao2 = Server.CreateObject("ADODB.Connection")		  Conexao2.Open "provider=sqloledb;data source=;uid=;pwd=;initial catalog="		  if Err.Number <> 0 thenelse  		  sqlRegistros = "SELECT .............................." & _.........................................

[Anderson Roberto 0]

Tenta assim

......................................		  Set Conexao2 = Server.CreateObject("ADODB.Connection")		  Conexao2.Open "provider=sqloledb;data source=;uid=;pwd=;initial catalog="		  if Err <> 0 then   Response.Write Err.Number & ": " & Err.Description   Response.EndElse		  sqlRegistros = "SELECT .............................." & _.........................................

[Junior99 0]

Qual seria a funcao do Response.End...Pois pelo que notei, ele para a execucao de onde gerou a falha...