Bonjour !
J'ai besoin de vous pour règler un probleme inusité !!
J'ai fais un appli, utilisant asp3 et access. J'utilise un connection dsn-less.
Je test en local et tous fonctionne, je test sur un serveur web et tous fonctionne. Donc suite à ces 2 test fonctionnel, j'installe donc tous cela sur le serveur final. Je passe le login, donc il ce connecte a la bd, j'ajoute un enregistrement et hop erreur 500 !!! J'edit un usager et hop erreur 500 !!! Sur les 3 serveur, IIS 5, j'ai visualiser les infos du IIS (securite, etc.) et tous semble identique.
Pouvez vous me dire pk j'ai cette &?$#@ d'erreur !!!
Exemple de mon code en edit :
<%
Dim dbPathCollection
Dim ConContrat
' Création de l'objet permettant la connexion
Set ConContrat = Server.CreateObject("ADODB.Connection")
' Connexion via le provider access et du path de la bd
ConContrat.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/data_contrat.mdb")
Attente_Contrat = Request.Form ("Attente_Contrat")
'verifier si le contrat est encore ou non en attente et procéder en conséquence
if Attente_Contrat <> "on" then
strSQL = "SELECT Numero_Consultant, Nombre_Attente FROM Membre WHERE Numero_Consultant= " & Session("userLogin")
dim rsVerifNbrAttenteUserEdit
set rsVerifNbrAttenteUserEdit = Server.CreateObject("ADODB.Recordset")
rsVerifNbrAttenteUserEdit.CursorType = 2 'curseur
rsVerifNbrAttenteUserEdit.LockType = 3 'verrouillage
rsVerifNbrAttenteUserEdit.Open strSQL, ConContrat 'open de la bd via infos du fichier inclus
'soustraire le nombre de contrat en attente pour l'usager
rsVerifNbrAttenteUserEdit.Fields("Nombre_Attente") = rsVerifNbrAttenteUserEdit.Fields ("Nombre_Attente") - 1
rsVerifNbrAttenteUserEdit.Update 'update de la bd
'fermeture et vidange de l'objet recordset
rsVerifNbrAttenteUserEdit.close
Set rsVerifNbrAttenteUserEdit = Nothing
end if
'-------------------------------------------
'fin de la verification du nombre de contrat
'-------------------------------------------
'-------------------------------------------
'Implémentation du formulaire
'-------------------------------------------
Numero_Contrat = Request.Form ("Numero_Contrat")
Client_Nom = Request.Form ("Client_Nom")
Client_Personne_Contact = Request.Form ("Client_Personne_Contact")
Client_Adresse = Request.Form ("Client_Adresse")
Client_Ville = Request.Form ("Client_Ville")
Client_CP = Request.Form ("Client_CP")
if Attente_Contrat = "" then
Attente_Contrat = "off"
end if
strSQL = "SELECT * FROM Contrat WHERE Numero_Contrat=" & Numero_Contrat 'requete sql de selection de tous la bd
dim rsEditContrat
set rsEditContrat = Server.CreateObject("ADODB.Recordset")
rsEditContrat.CursorType = 2 'curseur
rsEditContrat.LockType = 3 'verrouillage
rsEditContrat.Open strSQL, ConContrat 'open de la bd via infos du fichier inclus
rsEditContrat.Fields("Client_Nom") = Client_Nom
rsEditContrat.Fields("Client_Personne_Contact") = Client_Personne_Contact
rsEditContrat.Fields("Client_Adresse") = Client_Adresse
rsEditContrat.Fields("Client_Ville") = Client_Ville
rsEditContrat.Fields("Client_CP") = Client_CP
rsEditContrat.Update 'update de la bd
'fermeture et vidange de l'objet recordset
rsEditContrat.close
Set rsEditContrat = Nothing
'fermeture et vidange de l'objet connection
ConContrat.close
Set ConContrat = Nothing
Response.Redirect "user_panel.asp"
%>