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 :
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")
%>
Il m'affiche une erreur la suivante :
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
c'est la ligne qui est en rouge dans le code.

Avez vous une réponse??

Merci d'avance.