Ir para conteúdo

POWERED BY:

Arquivado

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

Robex 171

Tratar Erro

Por , em ASP Clássico

Recommended Posts

Robex 171    0

Robex 171
Postado

Como eu faria para inserir uma mensagem no lugar desse erro?Microsoft OLE DB Provider for ODBC Drivers erro '80004005' [Cache ODBC][state : S1000][Native Code 98] [C:\WINNT\system32\dllhost.exe] License Violation /index.asp, line 12 Esse erro acontece quando as licenças do BD esgotão...

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

vixe!! será que etm como?já tentou dar o on error resume next e depois o response.write do código do erro e tentar tratar pelo nº que retorna?

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

tenta isso pra descobrir o codigo do erro:

 

<% On Error Resume Next'Neste trecho vai o Bloco de funções e códigosIf Err.Number <> 0 Then'se ocorrer algum erro durante o processamento exibe o código e descrição para tratar o erro em particular Response.Write "Ocorreu um erro inesperado (" & Err.number & " - " & err.Description & ")" Response.EndEnd If'depois que souber o código do erro coloque dentro de um if. OBS: X seria o número que retorna do código acimaIf Err.Number = X Then 'Response.Write("Ocorreu o erro de "&err.Description) 'Response.End()end if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Robex 171    0

Robex 171
Postado

Bixo não deu certo... o erro é esse...Microsoft OLE DB Provider for ODBC Drivers erro '80004005' [Cache ODBC][state : S1000][Native Code 98] [C:\WINNT\system32\dllhost.exe] License Violation /index.asp, line 18 Como faria para que no lugar dessa mensagem apareça uma mensagem personalizada...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ratu    0

Ratu
Postado

Vá no seu IIS em propriedades na aba de "Erros personalizados"

Compartilhar este post

Link para o post
Compartilhar em outros sites

id.cs    0

id.cs
Postado

E COMO SEI QUAL PÁGINA CORRESPONDE AQUELE ERRO?

Amigo Robex, esse é um erro do bd, o que esse seu script faz exatamente?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Maux    0

Maux
Postado

você tem q fazer assim...no começo da pagina você poem:<%on error resume next%>coloca a pagina inteira aqui...no final da pagina na ultima linha você poem:<%if err.number <> 0 thenresponse.write "Erro de permissão no banco de dados!"response.endend if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

id.cs    0

id.cs
Postado

O amigo Maux já deu a solução, esqueçe minha questão, rsrs! :D

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

isso eu já havia postado anteriormente e o robex acabou informando que não funcionou no caso dele

Compartilhar este post

Link para o post
Compartilhar em outros sites

Robex 171    0

Robex 171
Postado

A situação é a seguinte, utilizo o BD Caché ele possue 10 premissoes ou seja so é possível conectar ao banco 10 vezes ao mesmo tempo, na 11º ele dá esse erro... vou tentar as outras soluções e logo dou um toque...Valew galera!

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

não tem como você fazer um contador de usuarios logados e se alguem tentar logar quando atingir o máximo redireciona a página? acho que é possivel, ai você previne do erro ao invés de força-lo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Robex 171    0

Robex 171
Postado

Eu utilizei o <%on error resume next%> e no lugar de mostrar a mensagem que coloquei dentro do

 

if err... then

...

end if

 

ele simplesmente avançou para a página seguinte ao Login...

 

Sobre contar o numero de pessoas logadas, não é possível pois este nao é o unico sistema que utiliza as licenças...

 

Por que sera que no lugar de parar ele simplesmente avançou uma página?

 

<%on error resume next%><TITLE>3 ALBE -  ADMIN</TITLE><BODY BGCOLOR="#bebebe"><IMG src="images/logo_cinza.jpg"><%dim login, senhadim dateHour, acessoslogin= replace(request.form("login"),"'","''")senha=replace(request.form("senha"),"'","''")set oConn = Server.CreateObject ("ADODB.connection")oConn.open "DSN=CacheLicita"set rspp = Server.CreateObject("ADODB.Recordset")cache= "select * from Licita.propPag"rspp.open = oConn.Execute(cache)set rsf = Server.CreateObject("ADODB.Recordset")cache= "select * from Licita.funcionario where login='" & login & "' "cache= cache & "and senha='" & senha & "' "rsf.open = oConn.Execute(cache)if not(rsf.eof) then	set rstf = Server.CreateObject("ADODB.Recordset")	cache= "select * from Licita.tipoFuncionario where id=" & rsf("idTipoF")	rstf.open = oConn.Execute(cache)	session("login")  = "logado"	session("id")	 = rsf("id")	session("nome")   = rsf("nome")	session("status") = rsf("status")		session("tipo")   = rstf("nomeTipo")		if isNumeric(rsf("acessos")) then 		acessos=rsf("acessos") + 1	else		acessos=1 	end if		ip=Request.ServerVariables("REMOTE_ADDR")   	dateHour = year(now()) & "-" & month(now()) & "-" & day(now()) & " / " & time() & " / "	& ip	if ip<>"127.0.0.1" then		cache ="Update Licita.funcionario set "		cache = cache & "acessos=" & acessos & ", "		cache = cache & "dataHoraAcesso='" & dateHour & "'"		cache = cache & " where id=" & rsf("id")		oConn.Execute(cache)	end if			response.redirect("principal.asp")	msg=""else	if login<>"" or senha<>"" then msg="<font color='red' SIZE=2>Login ou Senha Inválidos ! </font><br><br>"end if%><HTML><HEAD><TITLE></TITLE><META NAME="GENERATOR" CONTENT="Sothink HTML Editor"></HEAD><BODY><TABLE BORDER="0" HEIGHT="" WIDTH="100%" CELLPADDING="0" CELLSPACING="0"><TR>	<TD><center><br /><br /><br /><br />		<form name="login" ACTION="index.asp" METHOD="POST">			<font COLOR="191970">			<strong>Nome:  <input type="Text" name="login"><br>					Senha: <input type="password" NAME="senha"><br><br></font>							<%response.write msg%>	 						<input type="submit" VALUE="Logar">		</form>	</TD></TR></TABLE></BODY></HTML><%If Err.Number <> 0 Then	Response.Write "Ocorreu um erro inesperado (" & Err.number & " - " & err.Description & ")"	Response.EndEnd If%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Maux    0

Maux
Postado

é que o <%on error resume next%> vai para o primeiro if ativo eu acho...

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