Bonjour,
Je suis débutante en asp.
Ma base de données est en access.
je voulais insérer des données à partir d'un formulaire dans la table clients.
Id_client c'est le clé primaire de la table clients (Id_client est auto-incrémente)
voici mon code :
Il m'affiche une erreur la suivante :
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102 <!--#include file="../Connections/Produits.asp" --> <% Set conn = Server.CreateObject("ADODB.Connection") DSN_BASE="DBQ="& Server.Mappath("../database/produits.mdb")&";Driver={Microsoft Access Driver (*.mdb)};DriverId=25" conn.Open DSN_BASE 'Save entered username and password gender = Request.Form("gender") nom = Request.Form("nom") prenom = Request.Form("prenom") societe = Request.Form("societe") adress1 = Request.Form("adress1") adress2 = Request.Form("adress2") postal = Request.Form("postal") ville = Request.Form("ville") pays = Request.Form("pays") tel = Request.Form("tel") gsm = Request.Form("gsm") fax = Request.Form("fax") login = Request.Form("login") email = Request.Form("email") pass1 = Request.Form("pass1") pass2 = Request.Form("pass2") if email = "" then Response.redirect("login.asp?login=createnamefailed") if pass1 = "" then Response.Redirect("login.asp?login=createpassfailed") if pass1 <> pass2 then Response.Redirect("login.asp?login=createpassfailed") Function GenereAlea() Dim RefreshAlea 'Num Aleatoire Dim RefreshSec 'Nb de secondes depuis le 31/12/95 Dim RefreshNum Randomize RefreshAlea = Int((100 * Rnd) + 1) RefreshSec = DateDiff("s", "12/31/95", Now) RefreshNum = CStr(RefreshSec) & CStr(RefreshAlea) GenereAlea = RefreshNum End Function 'Build connection 'set conn = server.CreateObject ("ADODB.Connection") 'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("users.mdb") set rs = server.CreateObject ("ADODB.Recordset") 'Open all records rs.Open "SELECT * FROM clients", conn, 3, 3 'Check if username doesn't already exist do while not rs.EOF if rs("Email_client")=email then set rs=nothing set conn=nothing Response.Redirect("login.asp?login=createnamefailed") end if rs.MoveNext loop 'Add a record rs.AddNew 'Put username and password in record 'rs("Id_client")=111 rs("Code_client")=13 rs("login")=login rs("password")=pass1 rs("Secu_level")=1 rs("Cat_client")=1 rs("tva_client")=1 rs("DateCreation")=Date rs("HeureCreation")=Time rs("Email_client")=email rs("Genre_client_facturation")=gender rs("Nom_client_facturation")=nom rs("Prenom_Client_facturation")=prenom rs("Societe_client_facturation")=societe rs("Adresse1_client_facturation")=adress1 rs("Adresse2_client_facturation")=adress2 rs("Postal_client_facturation")=postal rs("Ville_client_facturation")=ville rs("Pays_client_facturation")=pays rs("Tel_client_facturation")=tel rs("Fax_client_facturation")=fax rs("Gsm_client_facturation")=gsm rs("Num_rcs")=0 rs("Num_siret")=0 rs("Num_ape")=0 rs("Points_fid")=1 rs("informations")="" 'Save record rs.Update set rs=nothing 'set dbrec=nothing set conn=nothing Response.Redirect("login.asp?login=creatednew") %>
c'est la ligne qui est en rouge dans le code.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Microsoft OLE DB Provider for ODBC Drivers erreur '80004005' [Microsoft][Pilote ODBC Microsoft Access]Erreur dans la ligne /client/create.asp, ligne 95
Avez vous une réponse??
Merci d'avance.
Partager