ik heb een agenda systeempje,
Je kan nu een data aanklikken, waar een event ingevuld moet worden,
maar dan vul ik het event in klik ik op submit.
krijg ik volgende fout:
Error Type:
Microsoft JET Database Engine (0x80004005)
Operation must use an updateable query.
/html/asp/medewerkers/agenda/add_date.asp, line 30
dit is mijn source
die de actie uitvoert (dus de gevenens in de database pompt)
Je kan nu een data aanklikken, waar een event ingevuld moet worden,
maar dan vul ik het event in klik ik op submit.
krijg ik volgende fout:
Error Type:
Microsoft JET Database Engine (0x80004005)
Operation must use an updateable query.
/html/asp/medewerkers/agenda/add_date.asp, line 30
dit is mijn source
die de actie uitvoert (dus de gevenens in de database pompt)
ASP:
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
| <!--#INCLUDE FILE="dbcon.asp" --> <% Session.LCID = 2057 if Request.Form("pword") <> "test" then Response.AddHeader "401.1 Unauthorized: ", "401.1" Response.Write "<H2>HTTPError</H2><P><STRONG>401.1 Verkeerd Loginnaam, of PassWord</STRONG></P><P>neem contact Op Met Berend</P>" Response.Write "<center><a href='diary.asp'>Terug naar de Agenda</a></center>" Response.End End if Function ChkString(string) if string = "" then string = " " ChkString = Replace(string, "'", "''") End Function set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open DBCon ' Check to see if it's a new record to be added or an old one to update StrSql= "Select * from diary where dte = #" & Request("view_Date") & "#" set rs = my_conn.Execute (StrSql) if rs.BOF or rs.EOF then ' No records found. i.e. New record StrSql ="INSERT INTO diary (dte, text_field) values (#" & request("view_date") & "#, '" & chkString(request("txt")) & "')" else ' Record found. i.e. update record. StrSql = "UPDATE diary SET diary.dte = #" & request("view_date") & "#, text_field = '" & chkString(request("txt")) & "' WHERE id = " & rs("id") End If 'response.write (strSQL) my_conn.Execute (strSql) my_Conn.Close set my_conn = nothing 'Response.Redirect ("diary.asp?view_date=" & request("view_date")) %> |
[ Voor 18% gewijzigd door Verwijderd op 02-05-2003 15:31 ]