Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Weverton N

Fazer com que o ASP identifique se conectou ou não

Por , em ASP Clássico

Recommended Posts

Weverton N    0

Weverton N
Postado

Alow galera!!Blzinha?Seguinte, tenho um sistema de uma empresa que está hospedado em um servidor, e o banco de dados Firebird que ele utiliza está em outro servidor.Ás vezes o servidor Firebird fica inativo, e o sistema não acessa devido a isso.Tem como eu fazer alguma coisa para que a página continue exibindo, so que na parte onde tem informações exiba uma mensagem, tipo "Informação indisponível no momento"?A minha conexão String fica no arquivo de inclusão common.aspTentei colcoar um "on error resume next" para depois eu verificar se tem algum erro, mas dae a página fica tentando conectar e estoura o limite da conexão..Obrigado!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Você pode usar o "On Error Resume Next", mas logo após a tentativa de conexão você testa se há algum erro retornado no objeto "ERR".

Algo +/- Assim:

On Error Resume Next
'Sua conexão aqui
If Err.Number <> 0 Then
Response.Write "Opa! Houve algum erro aqui, o servidor deve estar com preguiça ou dormindo mesmo, volte mais tarde por gentileza!"
'Destrua os objetos criados
Response.End 'Encerra o processamento no servidor
End If
'Aqui segue sua programação normal.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Weverton N    0

Weverton N
Postado

Você pode usar o "On Error Resume Next", mas logo após a tentativa de conexão você testa se há algum erro retornado no objeto "ERR".Algo +/- Assim:

On Error Resume Next 'Sua conexão aqui If Err.Number <> 0 Then Response.Write "Opa! Houve algum erro aqui, o servidor deve estar com preguiça ou dormindo mesmo, volte mais tarde por gentileza!" 'Destrua os objetos criados Response.End 'Encerra o processamento no servidor End If 'Aqui segue sua programação normal.
Então, eu já havia tentando fazer isso.Agora a minha conexão fica no commmon.asp, mas eu não abro ela.To abrindo ela na minha página default.asp;Dae acontece que não tem como ele ver se teve erro, pq ele tenta conectar.. e fica tentando e nunca pára.. tipo, nunca vai checar na condicional que checa se teve o erro, segue meu código da default.asp:
on error resume next'abrindo a conxãocString.open Bancos(0)if err.number > 0 thenresponse.Write("Sem conexão")response.End()end if'restante do código pra baixo
Alguém tem alguma idéia ae?Vlw pela atenção do pessoal até o momento!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Na verdade o servidor de e-mail está muito lento, então não acontece o erro. Nessa eu realmente não faço idéia do que podemos fazer. Vou tentar uma busca no Tiu Google e se achar algo eu posto.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Weverton N    0

Weverton N
Postado

Você tentou fazer a conexao dentro de uma function ?Se retornar false exibe um codigo e se retornar true outro codigo?

Vou tentar fazer isso aqui, mas acho que cai no mesmo esquema.. Pq ele tenta conectar no servidor da Base de Dados, mas não consegue.Na verdade eu até testei aqui localmente, como server do firebird desligado.. acontece a mesma coisa.. portanto o caso do servidor estar lento não influi muito.Vlw

Compartilhar este post

Link para o post
Compartilhar em outros sites

Weverton N    0

Weverton N
Postado

É.. não deu certo msm. Ele tentou conectar, e fica tentando.. até atingir o limite...Se alguém tiver alguma idéia ae, me avisa!! Vlw

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alexandre B.    0

Alexandre B.
Postado

brother funciona sim, faz um teste com essa página!

 

<% sub abreConexao()  dim conDB    set conDB = Server.Createobject("ADODB.Connection")  conDB.Provider = "MICROSOFT.JET.OLEDB.4.0"  conDB.Open "Database.mdb" end sub%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title></head><body><%  On Error Resume Next call abreConexao()   if err.number <> 0 then   response.write "Houve uma falha na conexão"  else   response.write "...."  end if%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Weverton N    0

Weverton N
Postado

brother funciona sim, faz um teste com essa página!

<%  sub abreConexao()   dim conDB      set conDB = Server.Createobject("ADODB.Connection")   conDB.Provider = "MICROSOFT.JET.OLEDB.4.0"   conDB.Open "Database.mdb"  end sub %>  <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> </head> <body> <%   On Error Resume Next    call abreConexao()     if err.number <> 0 then	response.write "Houve uma falha na conexão"   else	response.write "...."   end if %>  </body> </html>
Amigo, muito bom o teu código!! Testei aqui com a minha conexão firebird e deu tudo certo!!!! Obrigado!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito