Forum de discussion
Forum « Programmation ASP » (archives)
Re: ON ERROR RESUME NEXT
Envoyé: 28 juillet 2004, 3h03 par totem
Voila mon code entierement inspiré du tiens dans un premier temps :
dim annuDB, reqSQL, rstReq, Message
'On active la gestion des erreurs
On Error Resume Next
Set annuDB = Server.CreateObject("ADODB.Connection")
annuDB.Open "Data source = annuaire"
'On recupère la requete
reqSQL = trim(Request.Form("requete"))
'On execute la requete
set rstReq = annuDB.Execute(reqSQL)
'On commence la gestion des erreurs de type ADO
if annuDB.Errors.Count > 0 Then
Message = " Erreure ADO : " & annuDB.Errors(0).Number & " - " & annuDB.Errors(0).Description
End if
'On commence la gestion des erreurs de type VBS
if Err.Number <> 0 Then
Message = "Erreure VBS : " & Err.Source &" - " & Err.Number &" - " & Err.Description
End if
'On commence la gestion des erreurs de type VBS
if Err.Number = 0 Then
Message = " Opération effectuée avec succès !!! "
End if
%>
<SCRIPT Language="VBScript">
MsgBox "<%=Message %>"
</SCRIPT>
<%
%>
Et voici le message d'erreur :
****************************************
Type d'erreur :
Pages ASP, ASP 0113 (0x80004005)
Le délai maximal d'exécution d'un script a été dépassé. Vous pouvez changer cette limite en donnant une nouvelle valeur à la propriété Server.ScriptTimeout ou en changeant la valeur dans les outils d'administration d'IIS.
****************************************
Or quand la requete est synthaxiquement correcte : tout se passe bien et il m'affiche mêmel emessage de succès.
C'est pourquoi je mets ON ERROR RESUME NEXT en cause.
Franchement y a des choses assez étranges qd même en informatique :-(
Réponses
|