Discussion :

[pmboutteau]

Et il fait quoi?

Page blanche? ou erreur

[bachilbouzouk]

Et il fait quoi?

Page blanche? ou erreur

http://k.domaindlx.com/gyzmo/marathon/formulaire.htm

erreur

[pmboutteau]

il met

ine 33

<%'-------définition et exécution de la requête---------------
^

regarde ligne 33 tu doi avoir un délire sur le commentaire ou bien une balise <% en trop ou qui n'est pas fermée?

[pmboutteau]

après ton request.Form il manque %>

[bachilbouzouk]

après ton request.Form il manque %>

jai vu

mais malgré la modif ca ne change pas....
comment as tu fait pour voir a quelle ligne explorer plantait?

[bachilbouzouk]

ya du changement !!!
lexplorer reconnait la page.....

jvais voir ce que me dit l'erreur !!!

[bachilbouzouk]

c'est ce qui s'apelle une fausse joie

meme erreur retour a la case départ

je remet le code ici au cas où dans tout ça j'ai mis la merde

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
<%@ Language="VBScript"%> 
<% option explicit %> 
 
 
<%Dim str 
Dim Conconnexion
 
str = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".") &"\Bd.mdb" 
'Créer la connection à la base de données' 
set Conconnexion =Server.CreateObject("ADODB.Connection") 
'Ouvrir la connexion' 
Conconnexion.Open str 
Set Rsconnexion = Server.CreateObject("ADODB.Recordset")%> 
 
<%Dim Conconnexion 
Dim Rsconnexion 
Dim fnom_transp 
%> 
 
<%'-------récupération des données saisies dans le formulaire' 
fnomtransp=Request.Form("nomtransp") %>
 
<%'-------définition et exécution de la requête---------------'
RequeteSQL = "Insert Into transporteur (nom_transp) Values (' " &fnomtransp& " ')" 
Conconnexion.Execute("RequeteSQL")%> 
 
 
 
 
 
 
<%'-------fermeture de la connection et du recordset---------- '
Rsconnexion.Close 
Set Rsconnexion = Nothing 
Conconnexion.Close 
Set Conconnexion = Nothing%>

[pmboutteau]

J'ai essayé ton lien et de remplir le champs.

Il m'a ouvert une nouvelle page en mettant l'erreur? Je suis sur Firefox pas sur IE.

Je viens de réessayer et il m'a mis.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
[quote]Microsoft VBScript runtime  error '800a01f4'
 
Variable is undefined: 'DSN_BASE'
 
/gyzmo/marathon/formulairetest3.asp, line 6[/quote]

[bachilbouzouk]

J'ai essayé ton lien et de remplir le champs.

Il m'a ouvert une nouvelle page en mettant l'erreur? Je suis sur Firefox pas sur IE.

Je viens de réessayer et il m'a mis.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
[quote]Microsoft VBScript runtime  error '800a01f4'
 
Variable is undefined: 'DSN_BASE'
 
/gyzmo/marathon/formulairetest3.asp, line 6[/quote]

j'ai modifié, tu as toujours la meme erreur?

[pmboutteau]

c'est ce qui s'apelle une fausse joie

meme erreur retour a la case départ

je remet le code ici au cas où dans tout ça j'ai mis la merde

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
<%@ Language="VBScript"%> 
<% option explicit %> 
 
 
<%Dim str 
Dim Conconnexion
 
str = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".") &"\Bd.mdb" 
'Créer la connection à la base de données' 
set Conconnexion =Server.CreateObject("ADODB.Connection") 
'Ouvrir la connexion' 
Conconnexion.Open str 
Set Rsconnexion = Server.CreateObject("ADODB.Recordset")%> 
 
<%Dim Conconnexion 
Dim Rsconnexion 
Dim fnom_transp 
%> 
 
<%'-------récupération des données saisies dans le formulaire' 
fnomtransp=Request.Form("nomtransp") %>
 
<%'-------définition et exécution de la requête---------------'
RequeteSQL = "Insert Into transporteur (nom_transp) Values (' " &fnomtransp& " ')" 
Conconnexion.Execute("RequeteSQL")%> 
 
 
 
 
 
 
<%'-------fermeture de la connection et du recordset---------- '
Rsconnexion.Close 
Set Rsconnexion = Nothing 
Conconnexion.Close 
Set Conconnexion = Nothing%>

Tu déclares 2 fois les variables là.

Essaie de déclarer ta requète SQL avant d'ouvrir les connexions.
Je sais pas si c'est important mais çà coute rien d'essayer.

[bachilbouzouk]

voila ce que ca donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
<%@ Language="VBScript"%> 
<% option explicit %> 
 
 
 
<%DSN_BASE = "DBQ=" & Server.Mappath("BD.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
 
<%'-------définition et exécution de la requête---------------'
RequeteSQL = "Insert Into transporteur (nomtransp) Values (' " &fnomtransp& " ')" 
Conconnexion.Execute("RequeteSQL")%> 
 
<%'-------création de la connection et du recordset--------------------------
Set Conconnexion = Server.CreateObject("ADODB.Connection")
Conconnexion.Open DSN_BASE
Set Rsconnexion = Server.CreateObject("ADODB.Recordset")%>
 
 
<%
Dim Conconnexion
Dim fnom_transp %>
 
 
 
<%'-------récupération des données saisies dans le formulaire' 
fnomtransp=Request.Form("nomtransp") %>
 
 
 
 
 
<%'-------fermeture de la connection et du recordset----------
Rsconnexion.Close
Set Rsconnexion = Nothing
Conconnexion.Close
Set Conconnexion = Nothing%>

et BONNE NOUVELLE !!!!!







ça marche pas mdrrr

[pc75]

Bonjour,

Quand tu écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Conconnexion.Execute("RequeteSQL")

Le texte de la requête que tu envoies est RequeteSQL

Il faut que tu écrives :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Conconnexion.Execute(RequeteSQL)

[pmboutteau]

et tu déclares

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim fnom_transp

et en-dessous tu utilises

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 fnomtransp

et pc 75 a raison.

Je m'a gourré sur ce coup là

[bachilbouzouk]

Après m'être tappé sur les doigt 150 fois pour les erreurs de du genre nom_transp !!!!

j'obtiens ce qui suit et qui nfonctionne tjrs pas
http://k.domaindlx.com/gyzmo/marathon/formulaire.htm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
 
<%@ Language="VBScript"%> 
<% option explicit %> 
 
<% 
Dim Conconnexion 
Dim fnomtransp 
Dim DSN_BASE
%> 
 
<%DSN_BASE = "DBQ=" & Server.Mappath("BD.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%> 
 
<%'-------définition et exécution de la requête---------------' 
RequeteSQL = "Insert Into transporteur (nomtransp) Values (' " &fnomtransp& " ')" %>
 
 
<%'-------création de la connection et du recordset-------------------------- 
Set Conconnexion = Server.CreateObject("ADODB.Connection") 
Conconnexion.Open DSN_BASE 
Set Rsconnexion = Server.CreateObject("ADODB.Recordset")%> 
 
<%'-------définition et exécution de la requête---------------' 
RequeteSQL = "Insert Into transporteur (nomtransp) Values (' " &fnomtransp& " ')" %>
<%Conconnexion.Execute(RequeteSQL)%> 
 
 
<%'-------récupération des données saisies dans le formulaire' 
fnomtransp=Request.Form("nomtransp") %> 
 
 
 
<%'-------fermeture de la connection et du recordset---------- 
Rsconnexion.Close 
Set Rsconnexion = Nothing 
Conconnexion.Close 
Set Conconnexion = Nothing%>

[pmboutteau]

et si tu rajoutes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim DSN_BASE

En plus fait toutes tes déclarations au début de ton programme.

Là tu utilises Conconnexion et tu le déclare après, y'a comme un problème

[pmboutteau]

Et le execute après avoir ouvert la liaison ODBC ,çà marche mieux

[bachilbouzouk]

j'ai édité mon code un peu plus haut

qu'en penses tu ?

[bachilbouzouk]

chil vou plait j'y galère la dissiou depuis toute l'aprem lol

[roots_man]

enlève l'option explicit

[bachilbouzouk]

enlève l'option explicit

rien y fait...... toujours le meme probleme

et jcomprends toujours pas pourquoi