Problème de timeout

Problème de timeout - ASP - Programmation

Marsh Posté le 16-01-2006 à 15:06:36    

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 :  
ADODB.Recordset (0x800A0BB9)  
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.  
/test/Creer_reservation.asp, line 38  
 
 

Code :
  1. <% ' Date de création: 10/01/2006 %>
  2. <html>
  3. <body>
  4. <!--#include file="fonctions.asp"-->
  5. <%
  8. err=0
  9. 'Test les champs obligatoires
  10. '----------------------------
  11. if trim(request("nom_inter" ))="" OR trim(request("pnom_inter" ))="" OR trim(request("tel_inter" ))="" OR trim(request("nom_invit" ))="" OR trim(request("date_rep" ))="" OR trim(request("nb_couv_prev" ))="" OR trim(request("salon" ))="selectionnez" OR trim(request("type_rep" ))="selectionnez" then
  12. call AfficheMessage("Erreur utilisateur","Attention les champs en rouges sont obligatoires !","","" )
  13. response.end
  14. end if
  16. 'Chargement des objets ADO
  17. '-------------------------
  18. set conn=Server.createObject("ADODB.Connection" )
  19. set res=Server.createObject("ADODB.Recordset" )
  20. set invit=Server.createObject("ADODB.Recordset" )
  21. set inter=Server.createObject("ADODB.Recordset" )
  22. set typrep=Server.createObject("ADODB.Recordset" )
  23. set effectuer=Server.createObject("ADODB.Recordset" )
  24. set organisme=Server.createObject("ADODB.Recordset" )
  25. set Lesalon=Server.createObject("ADODB.Recordset" )
  27. 'Ouverture de la connexion
  28. '-------------------------
  29. conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.mappath("." ) & "/RepasMutuel.mdb"
  30. 'conn.Open "Reservation"
  31. if err<>0 then
  32.  Call AfficheMessage("Erreur Open Connection",err.description,"creer_reservation","" )
  33.  response.end
  34. end if
  36. 'Initialisation de la requête
  37. '----------------------------
  38. res.Open "SELECT * FROM _RESERVATION",conn,adOpenDynamic,adLockOptimistic
  39. invit.Open "SELECT * FROM _INVITANT",conn,adOpenDynamic,adLockOptimistic
  40. inter.Open "SELECT * FROM _INTERMEDIAIRE",conn,adOpenDynamic,adLockOptimistic
  41. typrep.Open "SELECT * FROM _TYPE_REPAS",conn,adOpenDynamic,adLockOptimistic
  42. effectuer.Open "SELECT * FROM _EFFECTUER",conn,adOpenDynamic,adLockOptimistic
  43. organisme.Open "SELECT * FROM _ORGANISME",conn,adOpenDynamic,adLockOptimistic
  44. Lesalon.Open "SELECT * FROM _SALON",conn,adOpenDynamic,adLockOptimistic
  46. Lesalon.movefirst
  47. numsal=0    
  48. do while Lesalon.eof=false and trim(request("salon" ))<>"Autre"
  49. if Lesalon.Fields("LIB" )=trim(request("salon" )) then
  50.  numsal=Lesalon.Fields("ID_SALON" )
  51.  Lesalon.movelast
  52.  Else
  53.  Lesalon.movenext
  54. End if
  55. loop
  56. nom_sal=trim(request("salon" ))
  57. If trim(request("salon" ))="Autre" then
  58. SQL="INSERT INTO _SALON(LIB) VALUES (&nom_sal& )"
  59. conn.Execute(SQL)
  60. Lesalon.movelast
  61. numsal=Lesalon.Fields("ID_SALON" )
  62. End if
  63. organisme.movefirst
  64. numorg=0
  65. nom_org=trim(request("org" ))
  66. if trim(request("org" ))="" then
  67. numorg=""
  68. Else
  69. do While not organisme.eof
  70.  if organisme.Fields("LIB" )=trim(request("org" )) then
  71.   numorg=organisme.Fields("ID_SALON" )
  72.   organisme.movelast
  73.   Else
  74.   organisme.movenext
  75.  End if
  76. loop
  77. if numorg=0 then
  78.  SQL="INSERT INTO _ORGANISME(LIB) VALUES(&nom_org& )"
  79.  conn.Execute(SQL)
  80.  organisme.movelast
  81.  numorg=organisme.Fields("ID_ORGANISME" )
  83. End if
  84. end if
  86. typrep.movefirst
  87. numrep=0
  88. do While not typrep.eof
  89.    if typrep.Fields("LIB" )=trim(request("type_rep" )) then
  90.      numrep=typrep.Fields("ID_TYPE_REPAS" )
  91.   typrep.movelast
  92.   Else
  93.   typrep.movenext
  94.    End if
  95. loop
  97. invit.movefirst
  98. numinvit=0
  99. nom_invit=trim(request("nom_invit" ))
  100. code_budgetaire=trim(request("code_budg" ))
  101. do While not invit.eof
  102. if invit.Fields("NOM" )=trim(request("nom_invit" )) then
  103.  numinvit=invit.Fields("ID_INVITANT" )
  104.  invit.movelast
  105.  Else
  106.  invit.movenext
  107. End if
  108. loop     
  110. If numinvit=0 then
  111. SQL="INSERT INTO _INVITANT(NOM,REF_ORGANISME,CODE_BUDGETAIRE) VALUES(&nom_invit&,'"&numorg&"','"&code_budgetaire&"')"
  112. conn.Execute(SQL)
  113. invit.movelast
  114. numinvit=invit.Fields("ID_INVITANT" )
  115. End if
  117. inter.movefirst
  118. numinter=0
  119. nom_intermed=trim(request("nom_inter" ))
  120. pnom_intermed=trim(request("pnom_inter" ))
  121. tel_intermed=trim(request("tel_inter" ))
  122. do While not inter.eof
  123. if inter.Fields("NOM" )=trim(request("nom_inter" )) and inter.Fields("PNOM" )=trim(request("pnom_inter" )) and inter.Fields("TEL" )=trim(request("tel_inter" )) then
  124.  numinter=inter.Fields("ID_INTERMEDIAIRE" )
  125.  inter.movelast
  126.  Else
  127.  inter.movenext
  128. End if
  129. loop
  131. If numinter=0 then
  132. SQL="INSERT INTO _INTERMEDIAIRE(NOM,PNOM,TEL,REF_INVITANT) VALUES(&nom_inter&,'"&pnom_inter&"','"&tel_inter&"','"&numinvit&"')"
  133. conn.Execute(SQL)
  134. inter.movelast
  135. numinter=inter.Fields("ID_INTERMEDAIRE" )
  136. End if
  139. numres=0
  140. date_repas=trim(request("date_rep" ))
  141. heure_repas=trim(request("heure_rep" ))
  142. nb_couverts_prevus=trim(request("nb_couv_prev" ))
  143. date_reservation=Date()
  144. 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& )"
  145. conn.Execute(SQL)
  147. numres=res("ID_RESERVATION" )
  149. SQL="INSERT INTO _EFFECTUER(REF_RESERVATION,REF_INTERMEDIAIRE) VALUES(numres,numinter)"
  150. conn.Execute(SQL)
  153. res.Update
  154. res.close
  155. set res=nothing
  157. effectuer.Update
  158. effectuer.close
  159. set effectuer=nothing
  161. typrep.Update
  162. typrep.close
  163. set typrep=nothing
  165. Lesalon.Update
  166. Lesalon.close
  167. set Lesalon=nothing
  169. invit.Update
  170. invit.close
  171. set invit=nothing
  173. inter.Update
  174. inter.close
  175. set inter=nothing
  177. org.Update
  178. org.close
  179. set org=nothing
  181. conn.close
  182. set conn=nothing
  185. ' Message de bon déroulement
  186. '---------------------------
  188. 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." )
  190. %>
  191. </body>
  192. </html>


Quelqu'un pourrait m'aider svp ?

Reply

Marsh Posté le 16-01-2006 à 15:06:36   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed