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
Partager