Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Probleme de timeout en ASP

Mat
16/01/06 14:23
Salut a tous.

Je vous explique mon problème. J'ai un formulaire de saisie de reservation pour un restaurant qui lorsque l'on clique sur le bouton Valider me renvoi vers une page ASP qui effectue les insertions des données du formulaire dans la base access.
Je ne sais pas vraiment d'ou vient le problème mais lorsque je clique sur le bouton valider après un long temps de chargement j'ai une page de type "The page cannot be displayed" avec error type :

"Active Server Pages, ASP 0113 (0x80004005).The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.
/test/Creer_reservation.asp"

Voici le code de ma page ASP (il est un peu long)
Code:

<% ' Date de création: 10/01/2006 %>
<html>
<body>
<!--#include file="fonctions.asp"-->
<%

On Error Resume Next
err=0
'Test les champs obligatoires
'----------------------------
if trim(request("nom_inter"winking smiley)="" OR trim(request("pnom_inter"winking smiley)="" OR trim(request("tel_inter"winking smiley)="" OR trim(request("nom_invit"winking smiley)="" OR trim(request("date_rep"winking smiley)="" OR trim(request("nb_couv_prev"winking smiley)="" OR trim(request("salon"winking smiley)="selectionnez" OR trim(request("type_rep"winking smiley)="selectionnez" then
call AfficheMessage("Erreur utilisateur","Attention les champs en rouges sont obligatoires !","",""winking smiley
response.end
end if

'Chargement des objets ADO
'-------------------------
set conn=Server.createObject("ADODB.Connection"winking smiley
set res=Server.createObject("ADODB.Recordset"winking smiley
set invit=Server.createObject("ADODB.Recordset"winking smiley
set inter=Server.createObject("ADODB.Recordset"winking smiley
set typrep=Server.createObject("ADODB.Recordset"winking smiley
set effectuer=Server.createObject("ADODB.Recordset"winking smiley
set organisme=Server.createObject("ADODB.Recordset"winking smiley
set Lesalon=Server.createObject("ADODB.Recordset"winking smiley

'Ouverture de la connexion
'-------------------------
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.mappath("."winking smiley & "/RepasMutuel.mdb"
if err<>0 then
Call AfficheMessage("Erreur Open Connection",err.description,"creer_reservation",""winking smiley
response.end
end if

'Initialisation de la requête
'----------------------------
res.Open "SELECT * FROM _RESERVATION",conn,adOpenKeyset,adLockOptimistic
invit.Open "SELECT * FROM _INVITANT",conn,adOpenKeyset,adLockOptimistic
inter.Open "SELECT * FROM _INTERMEDIAIRE",conn,adOpenKeyset,adLockOptimistic
typrep.Open "SELECT * FROM _TYPE_REPAS",conn,adOpenKeyset,adLockOptimistic
effectuer.Open "SELECT * FROM _EFFECTUER",conn,adOpenKeyset,adLockOptimistic
organisme.Open "SELECT * FROM _ORGANISME",conn,adOpenKeyset,adLockOptimistic
Lesalon.Open "SELECT * FROM _SALON",conn,adOpenKeyset,adLockOptimistic
Lesalon.movefirst
numsal=0
do while Lesalon.eof<>false and trim(request("salon"winking smiley)<>"Autre"
if Lesalon.Fields("LIB"winking smiley=trim(request("salon"winking smiley) then
numsal=Lesalon.Fields("ID_SALON"winking smiley
Lesalon.movelast
Else
Lesalon.movenext
End if
loop
nom_sal=trim(request("salon"winking smiley)
If trim(request("salon"winking smiley)="Autre" then
SQL="INSERT INTO _SALON(LIcool smiley VALUES (nom_sal)"
conn.Execute(SQL)
Lesalon.movelast
numsal=Lesalon.Fields("ID_SALON"winking smiley
End if
organisme.movefirst
numorg=0
nom_org=trim(request("org"winking smiley)
if trim(request("org"winking smiley)="" then
numorg=""
Else
do While not organisme.eof
if organisme.Fields("LIB"winking smiley=trim(request("org"winking smiley) then
numorg=organisme.Fields("ID_SALON"winking smiley
organisme.movelast
Else
organisme.movenext
End if
loop
if numorg=0 then
SQL="INSERT INTO _ORGANISME(LIcool smiley VALUES(nom_org)"
conn.Execute(SQL)
organisme.movelast
numorg=organisme.Fields("ID_ORGANISME"winking smiley

End if
end if

typrep.movefirst
numrep=0
do While not typrep.eof
if typrep.Fields("LIB"winking smiley=trim(request("type_rep"winking smiley) then
numrep=typrep.Fields("ID_TYPE_REPAS"winking smiley
typrep.movelast
Else
typrep.movenext
End if
loop

invit.movefirst
numinvit=0
nom_invit=trim(request("nom_invit"winking smiley)
code_budgetaire=trim(request("code_budg"winking smiley)
do While not invit.eof
if invit.Fields("NOM"winking smiley=trim(request("nom_invit"winking smiley) then
numinvit=invit.Fields("ID_INVITANT"winking smiley
invit.movelast
Else
invit.movenext
End if
loop

If numinvit=0 then
SQL="INSERT INTO _INVITANT(NOM,REF_ORGANISME,CODE_BUDGETAIRE) VALUES(nom_invit,numorg,code_budgetaire)"
conn.Execute(SQL)
invit.movelast
numinvit=invit.Fields("ID_INVITANT"winking smiley
End if

inter.movefirst
numinter=0
nom_intermed=trim(request("nom_inter"winking smiley)
pnom_intermed=trim(request("pnom_inter"winking smiley)
tel_intermed=trim(request("tel_inter"winking smiley)
do While not inter.eof
if inter.Fields("NOM"winking smiley=trim(request("nom_inter"winking smiley) and inter.Fields("PNOM"winking smiley=trim(request("pnom_inter"winking smiley) and inter.Fields("TEL"winking smiley=trim(request("tel_inter"winking smiley) then
numinter=inter.Fields("ID_INTERMEDIAIRE"winking smiley
inter.movelast
Else
inter.movenext
End if
loop

If numinter=0 then
SQL="INSERT INTO _INTERMEDIAIRE(NOM,PNOM,TEL,REF_INVITANT) VALUES(nom_inter,pnom_inter,tel_inter,numinvit)"
conn.Execute(SQL)
inter.movelast
numinter=inter.Fields("ID_INTERMEDAIRE"winking smiley
End if

'res.Addnew
numres=0
date_repas=trim(request("date_rep"winking smiley)
heure_repas=trim(request("heure_rep"winking smiley)
nb_couverts_prevus=trim(request("nb_couv_prev"winking smiley)
date_reservation=Date()
SQL="INSERT INTO _RESERVATION(REF_TYPE_REP,REF_SALON,DATE_RES,DATE_REP,HEURE_REP,NB_COUVERTS_PREV) VALUES (numrep,numsal,date_reservation,date_repas,heure_repas,nb_couverts_prevus)"
conn.Execute(SQL)
res.movelast
numres=res("ID_RESERVATION"winking smiley

SQL="INSERT INTO _EFFECTUER(REF_RESERVATION,REF_INTERMEDIAIRE) VALUES(numres,numinter)"
conn.Execute(SQL)


res.Update
res.close
set res=nothing

effectuer.Update
effectuer.close
set effectuer=nothing

typrep.Update
typrep.close
set typrep=nothing

Lesalon.Update
Lesalon.close
set Lesalon=nothing

invit.Update
invit.close
set invit=nothing

inter.Update
inter.close
set inter=nothing

org.Update
org.close
set org=nothing

conn.close
set conn=nothing


' Message de bon déroulement
'---------------------------

Call AfficheMessage("Enregistrement réservation","La réservation a bien été enregistrer.","","N'oubliez pas de confirmer votre réservation au maximum un jour avant la date du repas. Votre numéro de réservation est " & numres & ". Veillez à garder ce numéro il vous sera demandé lors de votre confirmation."winking smiley

%>
</body>
</html>



Est-ce que quelqu'un vois une erreur dans mon code ?
Merci d'avance
SujetAuteurEnvoyé le

Probleme de timeout en ASP

Mat16/01/06 14:23

Re: Probleme de timeout en ASP

Hervé Inisan18/01/06 09:11

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter