[Résolu] formulaire asp et base de données access et iis

formulaire asp et base de données access et iis [Résolu] - ASP - Programmation

Marsh Posté le 18-05-2005 à 09:39:51    

Bonjour à tous,
 
Je dois mettre en ligne un formulaire asp renvoyant les résultats vers une base de donnée Access.
Le formulaire a été crée à la base par une secretaire avec l'assistant FrontPage. Je l'ai retravaillé depuis que j'ai découvert asp vu qu'avec frontpage c'etait pas super!
 
voici le problème :

Code :
  1. Microsoft OLE DB Provider for ODBC Drivers error '80004005'
  3. [Microsoft][Pilote ODBC Microsoft Access] Le champ 'Résultats.titre' ne peut pas être une chaîne vide.


 
le problème a lieu lors de l'update.
 
Voici le code que j'ai un peu allégé pour une meilleure lisibilité.
 

Code :
  1. <%
  3. 'On Error Resume Next
  5. strErrorUrl = ""
  7. if Request.ServerVariables("REQUEST_METHOD" ) = "POST" Then
  8. 'Err.Clear
  10. // Ouverture de la connexion
  12. Set fp_conn =  Server.CreateObject("ADODB.Connection" ) 
  13. Set fp_rs = Server.CreateObject("ADODB.Recordset" )
  15. fp_conn.Open Application("inscriptionv2_ConnectionString" )
  16. fp_rs.Open "Résultats", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
  20. Dim pb
  22. pb=0
  24. // Vérification des contraintes sur les champs du formulaire
  26. if Request.form("NomComplet" )<> "" Then                     
  27. fp_rs("NomComplet" )=Request.form("NomComplet" )
  28. else
  29. response.write("<b>Il manque votre nom!</b><br>" )
  30. pb=1
  31. end if
  34. if Request.form("unite" )<> "" Then
  35. fp_rs("unite" )=Request.form("unite" )
  36. else
  37. response.write("<b>Il manque votre unité!</b><br>" )
  38. pb=1
  39. end if
  42. if Request.form("groupement" )<> "" Then
  43. fp_rs("groupement" )=Request.form("groupement" )
  44. else
  45. response.write("<b>Il manque votre groupement!</b><br>" )
  46. pb=1
  47. end if
  50. if Request.form("TelephoneBureau" )<> "" Then
  51. fp_rs("TelephoneBureau" )=Request.form("TelephoneBureau" )
  52. end if
  55. if Request.form("TelephonePortable" )<> "" Then
  56. fp_rs("Telephoneportable" )=Request.form("TelephonePortable" )
  57. end if
  60. if Request.form("Email" )<> "" Then
  61. fp_rs("Email" )=Request.form("Email" )
  62. else
  63. response.write("<b>Il manque votre email!</b><br>" )
  64. pb=1
  65. end if
  68. if Request.form("inscription" )<> "" Then
  69. fp_rs("inscription2" )=Request.form("inscription" )
  70. else
  71. response.write("<b>Il manque les dates d'inscription!</b><br>" )
  72. pb=1
  73. end if
  76. if Request.form("presentation" )<> "" Then
  78.  fp_rs("presentation1" )=Request.form("presentation" )
  80.  if Request.form("presentation" )="oui" and Request.form("titre" )<> "" Then
  81.  fp_rs("titre" )=Request.form("titre" )
  82.  end if
  84.  if Request.form("presentation" )="oui" and Request.form("titre" )= "" Then
  85.  response.write("<b>Quel est le titre de votre présentation ?</b><br>" )
  86.  pb=1
  87.  end if
  89.  if Request.form("presentation" )="non" then
  90.  fp_rs("titre" )="pas de présentation"
  91.  end if
  93. else
  94. response.write("<b>Faites vous une présentation?</b><br>" )
  95. pb=1
  96. end if
  99. if Request.form("repas" )<> "" Then
  100. fp_rs("repas2" )=Request.form("repas" )
  101. end if
  104. if Request.form("transport" )<> "" Then
  105. fp_rs("transport3" )=Request.form("transport" )
  106. end if
  109. if Request.form("question" )<> "" Then
  110. fp_rs("question" )=Request.form("question" )
  111. end if
  114. if Request.ServerVariables("HTTP_USER_AGENT" )<> "" Then
  115. fp_rs("Type_de_navigateur" )=Request.ServerVariables("HTTP_USER_AGENT" )
  116. end if
  119. fp_rs("Date_de_dernière_modification" )=Now
  122. if Request.ServerVariables("REMOTE_HOST" ) <> "" Then
  123. fp_rs("Nom_de_l'ordinateur_distant1" )=Request.ServerVariables("REMOTE_HOST" )
  124. end if
  127. if Request.ServerVariables("REMOTE_USER" ) <> "" Then
  128. fp_rs("Nom_d'utilisateur1" )=Request.ServerVariables("REMOTE_USER" )
  129. end if
  132. //S'il y a un problème sur un des champs, on n'enregistre pas les données dans la base de données.
  134. if pb=1 then                                                         
  135. response.write("<b>L'inscription n'a pas été réalisée</b><br>" )
  136. else
  137. fp_rs.AddNew
  138. fp_rs.Update
  139. fp_rs.Close
  140. Response.Redirect "confirmeInscriptionV2.asp"
  141. end if
  144. // fermeture de la connexion
  146. fp_conn.Close                       
  149. 'Session("FP_SavedFields" )=arFormFields0
  150. 'Session("FP_SavedValues" )=arFormValues0
  153. end if


%>


Message édité par thunderbird54 le 20-05-2005 à 20:43:27
Reply

Marsh Posté le 18-05-2005 à 09:39:51   

Reply

Marsh Posté le 18-05-2005 à 11:40:43    

Change d'éditeur, car là c'est carrément illisible  :sweat:


---------------
planuldep | Association pêche à la Sempé
Reply

Marsh Posté le 18-05-2005 à 14:27:12    

Je ne suis pas réellement sûr que ce soit ca (je ne connais pas toutes les subtilités du langage je n'ai qu'un mois d'experience sous ASP) mais je ne vois pas de requete d'insertion  :sweat:

Reply

Marsh Posté le 18-05-2005 à 17:29:34    

azzz a écrit :

Je ne suis pas réellement sûr que ce soit ca (je ne connais pas toutes les subtilités du langage je n'ai qu'un mois d'experience sous ASP) mais je ne vois pas de requete d'insertion  :sweat:


 
si il y a cette ligne  
 

fp_rs.AddNew

 
 
mais c'est trop illisible pour que j'ai envie de me pencher sur cette page  :sweat:  


---------------
planuldep | Association pêche à la Sempé
Reply

Marsh Posté le 19-05-2005 à 09:12:25    

il faut que je fasse quoi pr rendre plus lisible?

Reply

Marsh Posté le 19-05-2005 à 11:43:18    

thunderbird54 a écrit :

il faut que je fasse quoi pr rendre plus lisible?


aere le code, y'a bcp de blocs de code assez durs à lire. par exemple:
 

Code :
  1. #     arFormFields0(0) = "TelephoneBureau"
  2. #     arFormDBFields0(0) = "TelephoneBureau"
  3. #     arFormValues0(0) = Request("TelephoneBureau" )
  4. #     arFormFields0(1) = "question"
  5. #     arFormDBFields0(1) = "question"
  6. #     arFormValues0(1) = Request("question" )
  7. #     arFormFields0(2) = "repas"
  8. #     arFormDBFields0(2) = "repas2"
  9. #     arFormValues0(2) = Request("repas" )


 

Code :
  1. #     arFormFields0(0) = "TelephoneBureau"
  2. #     arFormDBFields0(0) = "TelephoneBureau"
  3. #     arFormValues0(0) = Request("TelephoneBureau" )
  5. #     arFormFields0(1) = "question"
  6. #     arFormDBFields0(1) = "question"
  7. #     arFormValues0(1) = Request("question" )
  9. #     arFormFields0(2) = "repas"
  10. #     arFormDBFields0(2) = "repas2"
  11. #     arFormValues0(2) = Request("repas" )

Reply

Marsh Posté le 20-05-2005 à 15:04:31    

ca y est, voici la version du code avec jedit
 
le problème a évolué j'ai refait une partie du script a la main.

Reply

Marsh Posté le 20-05-2005 à 16:36:57    

trouvé! lol
 
le addnew est mal placé.
 
merci

Reply

Marsh Posté le 20-05-2005 à 17:37:42    

thunderbird54 a écrit :

trouvé! lol
 
le addnew est mal placé.
 
merci


 
Tu vois avec un code plus clair on s'y retrouve quand même mieux  :)  


---------------
planuldep | Association pêche à la Sempé
Reply

Sujets relatifs:

Leave a Replay

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