hallo ik krijg deze fout,
en ik snap er niks van!
Error Type:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/html/asp/medewerkers/insertuser.asp, line 20 <==
en ik snap er niks van!
Error Type:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/html/asp/medewerkers/insertuser.asp, line 20 <==
ASP.NET Visual Basic:
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
| <%@ Language="VBscript" %> <% Dim objConn 'declare your variable to hold your connection Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=\\arthur\intranet\html\asp\medewerkers\priconmedewerkers.mdb" objConn.open %> <% Dim username, password, duplicate, objRS username=trim(request.form("username")) password=trim(request.form("password")) duplicate=false if username="" then response.redirect"createuser.asp?error=1" else if password="" then response.redirect"createuser.asp?error=1" end if end if Set objRS = Server.CreateObject("ADODB.Recordset") objRS.open "users", objConn,,adLockOptimistic,adCmdTable Do while Not(objRS.EOF OR duplicate) if (StrComp(objRS("username"), username, vbTextCompare) = 0) then Duplicate=true response.redirect"createuser.asp?error=2" end if abjRS.MoveNext Loop objRS.AddNew objRS.Fields("username") = username objRS.fields("password") = password objRS.Update objRS.close Set objRS=nothing objConn.close Set objConn=nothing Response.redirect"createuser.asp?succes=1" %> |
/u/56680/gurgi.png?f=community)
