Discussion :

[userB]

bonjour à tous,

Je suis désolé de devoir faire un post qui fait un peu doublon avec le thread un peu plus bas, mais je me trouve dans une situation délicate avec une appli ASP.

Pour resumer un peu la chose, je dispose d'une veille application ASP qui demarre sur la premiere page APS appellé par un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
<% On Error Resume Next %>
<!-- #include file="inc/inc.inc" -->

Jusqu'ici tout va bien. Plus loin dans le code de ma page ASP la fonction de connection à la base de donnée est invoqué. Cette fonction est dans le fichier inc.inc (pourquoi *.inc comme extension ? J'en ai aucune idée)

Quoiqu'il en soit voici ma fonction de connexion à la base de donnée disponible dans inc.inc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
	Sub DBConnect
		Call WriteLog(6,  "[DBConnect] Connection string: " & sDBC)
		Set oDBC = Server.CreateObject("ADODB.Connection")
		oDBC.Open sDBC
 
		For Each objError in oDBC.Errors
			Response.Write objError.Description & VBCRLF
			Call WriteLog(1, "ERROR : objError.Description : [" & objError.Description & "]" )
		Next
 
		'if oDBC.Errors.count > 0 then
			'Call WriteLog(1, "Niher_Monster_ERROR")
		'End if
 
		Call WriteLog(6, "call_postOpen")
 
		if Err.Number <> 0 then
			Call WriteLog(1, "erreur_critique")
			Err.clear
		Else		
			Call WriteLog(6, "[DBConnect] OK")
		End If	
 
	End Sub

Mon probleme est que je n'arrive pas a recuperer les erreurs lors de la connection, si dans ma connection String je donne des valeurs fantoches en user ou en pass l'application ne se connecte pas, ne trace aucun message d'erreur dans mon fichier de log ( fonction WriteLog ici) et sort purement et simplement de ma fonction des le .Open.
Ce qui me porte à croire que la fonction s'acheve sur le .Open est que je ne vois pas dans la log la phrase "call_postOpen" qui devrait etre affiché.

donc voila je suis un peu desemparé, j'ai essayé en enlevant le On Error Resume Next de ma page asp et naturellement l'application se bloque. J'ai essayé en deplacant le On Error Resume Next depuis ma page asp vers ma page inc.inc mais j'observe le meme comportement que j'ai deja ...

En esperant que quelqu'un puisse m'aider

Merci d'avance

[roro06]

Bonjour

j'ai essayé en enlevant le On Error Resume Next de ma page asp et naturellement l'application se bloque

Ben non, justement, elle ne devrait pas se bloquer, mais t'afficher un message d'erreur avec entre autre une description de l'erreur. Si tu n'obtient pas de message d'erreur sans la ligne on error resume next, je pencherais sur la config de ton serveur (il est possible de paramétrer dans la console de IIS l'affichage des erreurs et également les pages d'erreurs sont personnalisables).

.inc , c'est pour include. Ce n'est pas tres judicieux, je prefère donner l'extension .asp.

[userB]

Je me suis mal exprimé. Quand j'enleve le On Error Resume Next de ma page asp je suppose que l'appli se bloque et j'ai bien à l'ecran le message d'erreur normal.

Mon vrai soucis est : pourquoi je n'arrive pas a catcher les messages d'erreurs ?

[roro06]

L'appli se bloque, effectivement

Ma vrai question était "Quel est le message d'erreur" ?

[userB]

Je vois pas vraiment ou tu veux en venir.

Le message que j'obtiens est celui que j'ai generé en passant une connection String avec un mot de passe faux. J'obtiens ca comme message d'erreur sans le On Error Resume Next :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Microsoft OLE DB Provider for ODBC Drivers erreur '80040e4d'
 
[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'user'.
 
/inc/inc.inc, ligne 29

[userB]

Je n'y connais vraiment pas grand chose en ASP et encore moins en configuration d'IIS. Mais de ce que je vois, le code que j'ai à l'air plutot bon, est ce que ca ne pourrait pas venir de la configuration du serveur IIS ? Et si oui, comment je pourrais verifier ca ?

Merci d'avance pour votre aide

[roro06]

Je crois me rappeler qu'avec on error resume next, tu va sortir de ta routine (la "sub") à la moindre erreur, raison pour laquelle tes erreurs ne sont pas "cachées". Il faudrait le déplacer et le mettre directement dans ta routine.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
    Sub DBConnect
               on error resume next
        Call WriteLog(6,  "[DBConnect] Connection string: " & sDBC)
        Set oDBC = Server.CreateObject("ADODB.Connection")
        oDBC.Open sDBC
        
        For Each objError in oDBC.Errors
            Response.Write objError.Description & VBCRLF
            Call WriteLog(1, "ERROR : objError.Description : [" & objError.Description & "]" )
        Next
        
        'if oDBC.Errors.count > 0 then
            'Call WriteLog(1, "Niher_Monster_ERROR")
        'End if
        
        Call WriteLog(6, "call_postOpen")
        
        if Err.Number <> 0 then
            Call WriteLog(1, "erreur_critique")
            Err.clear
        Else        
            Call WriteLog(6, "[DBConnect] OK")
        End If    
        on error goto 0
    End Sub

[userB]

Exact !!!

Je viens d'essayer en mettant le On Error Resume Next au tout debut de ma sub et effectivement ca marche maintenant !!

Tres fort, mais je me demande pour le coup si je vais devoir mettre On Error Resume Next au debut de toutes mes Sub et fonction.

En tout cas merci beaucoup !!!

[roro06]

je me demande pour le coup si je vais devoir mettre On Error Resume Next au debut de toutes mes Sub et fonction.

C'est plutot recommandé pour gérer (on non) les erreurs qui peuvent survenir au niveau de la sub

[userB]

Bon effectivement je dois remettre au debut de chaque fonction/Sub le On Error Resume Next si je veux pouvoir recuperer les erreurs via l'objet Err.

Ca alourdit un peu le code mais je vais pas faire la fine bouche, ca marche !

Merci roro6!