Bonjour,
J’ai créer un formulaire d'inscription pour enregistrer le contenue saisi sur une base de donnée accès. En effet quand on clique sur envoyer on tombe directement sur la page ci-dessous qui permet d'envoyé les données a la base de donnée, mais là il y a une petite erreur.

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
<%
	'Save entered username and password
	uid = Request.Form("uid")
	pass = Request.Form("pass")
	full = Request.Form("full")
	email = Request.Form("email")
	ip = Request.Form("ip")
 
	if uid = "" then Response.redirect("empty.asp")
	if pass = "" then Response.Redirect("empty.asp")
	if full = "" then Response.Redirect("empty.asp")
	if email = "" then Response.Redirect("empty.asp")
 
		'Build connection
	set conn = server.CreateObject ("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("pro.mdb")
	set rs = server.CreateObject ("ADODB.Recordset")
	'Open all records
	rs.Open "SELECT * FROM admin", conn, 3, 3 
 
	'Check if username doesn't already exist
	do while not rs.EOF
		if rs("uid")=uid then
			set rs=nothing
			set conn=nothing
			Response.Redirect("taken.asp")
		end if
		rs.MoveNext
	loop
 
	'Add a record
	rs.AddNew 
	'Put username and password in record
	rs("uid")=uid
	rs("pass")=pass
	rs("full")=full
	rs("email")=email
	rs("ip")=ip
	'Save record
	rs.Update 
 
	set rs=nothing
	set conn=nothing
 
	Response.Redirect("login.asp")
 
 
%>

et enfin voilà l'erreur :


Microsoft JET Database Engine error '80040e09'

Cannot update. Database or object is read-only.

login_cr.asp, line 32