Hoi tweakers,
Ik heb allerlei forums en google geraadpleegd maar mijn syntax is volgens mij harstikke goed, toch geeft het steeds deze foutmelding:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.
/ORG/HRM/medewerkertoevoeg.asp, line 50
heeft de debugger gelijk of wat doe ik in godsnaam fout?
Ik heb allerlei forums en google geraadpleegd maar mijn syntax is volgens mij harstikke goed, toch geeft het steeds deze foutmelding:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.
/ORG/HRM/medewerkertoevoeg.asp, line 50
code:
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
| <%@ Language=VBScript %>
<% Option Explicit
Dim strSQL,geboortesamenvoeging,hulptus2,hulptus1,indienstsamenvoeging,datumnu,dat1,dat2,dat3,commentshow
Dim objConn
Set objConn = Server.Createobject ("ADODB.Connection")
objConn.ConnectionString ="DSN=Organisatie"
objConn.Open
commentshow=Request.Form("comments")
dat1=Request.Form("Med_gebdat1")
dat2=Request.Form("Med_gebdat2")
dat3=Request.Form("Med_gebdat3")
geboortesamenvoeging = dat1&"/"&dat2&"/"&dat3
indienstsamenvoeging = Request.Form("Med_indienst1") &"/"&Request.Form("Med_indienst2")&"/"&Request.Form("Med_indienst3")
If Request.Form("Med_tus2")=""Then
hulptus2="---"
Else
hulptus2=Request.Form("med_tus2")
End IF
datumnu = Now
If Request.Form("Med_tus1")=""Then
hulptus1="---"
Else
hulptus1=Request.Form("med_tus2")
End IF
%>
<!--#include virtual="/adovbs.inc"-->
<%
StrSQL = "Insert Into Medewerker(Med_nr,afd_id,Med_naam,Med_voor,Med_tus1,Med_tus2,Med_roep,Med_ini,Med_tel,Med_email,Med_mutdat,Med_gebdatum,Med_indienst,Afwezig op,Med_mobiel,Funktie_id,werkstatus)"& _
"VALUES ('"& Request.Form("med_nr") &"','" & Request.Form("mainselect")& "',"& _
"'"& Request.Form("med_naam") &"','"& Request.Form("med_voor") &"','"& hulptus1 &"','"& hulptus2 &"',"& _
"'"& Request.Form("med_roep") &"','"& Request.Form("med_ini") &"','"& Request.Form("med_tel") &"','"& Request.Form("med_email") &"','"& datumnu &"',"& _
"'"& geboortesamenvoeging &"','"& indienstsamenvoeging &"','"& Request.Form("Med_afwezigop") &"','"& Request.Form("Med_mobiel") &"','"& Request.Form("mainselect2") &"','"& Request.Form("Werkstatus") &"')"
%><BR><BR><BR>,<%
Response.Write(indienstsamenvoeging)
%><BR><BR><%
Response.Write(strSQL)
ObjConn.Execute strSQL
OBJCONN.Close
Set OBJConn = Nothing
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="http://localhost/ORG/org.css">
<title>Medewerker toevoegen</title>
</head>
<Body>
Uw gegevens voor het smoelenboek zijn verwerkt bedankt.
</BODY>
</HTML> |
heeft de debugger gelijk of wat doe ik in godsnaam fout?