Ben bezig met een aanmeld script voor een webpagina.
heb al wat gegevens handmatig in de database gezet, en als ik deze gebruik, kan ik via een inlogpagina inloggen, allemaal prachtig.
maar via dit script wil ik dat gebruikers zichzelf kunnen aanmelden, maar ik krijg de data niet naar de database, in de volgende code zit de fout:
ADODB.Recordset error '800a0bb9'
De argumenten zijn van het verkeerde type, vallen buiten het toegestane bereik of zijn in conflict met elkaar.
/temp/checkform.asp, line 63
wat doe ik verkeerd??
hierbij ook de volledige code, ik hou van open source
heb al wat gegevens handmatig in de database gezet, en als ik deze gebruik, kan ik via een inlogpagina inloggen, allemaal prachtig.
maar via dit script wil ik dat gebruikers zichzelf kunnen aanmelden, maar ik krijg de data niet naar de database, in de volgende code zit de fout:
ADODB.Recordset error '800a0bb9'
De argumenten zijn van het verkeerde type, vallen buiten het toegestane bereik of zijn in conflict met elkaar.
/temp/checkform.asp, line 63
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| sub saveit
'maak een nieuwe Active Data Object connectie
set conn = server.createobject("ADODB.RecordSet")
'open de ODBC Systeem DSN
conn.open dns,"1","2","&H0001" <------------- Hier dus!!
conn.addnew
conn("voornaam")=voornaam
conn("achternaam")=achternaam
conn("email")=email
conn("paswoord")=paswoord1
conn.update
conn.close
set conn = Nothing
header
response.write "Bedankt voor het registreren! Click <a href='login.asp'>here</a> om terug te keren naar de login pagina."
end sub |
wat doe ik verkeerd??
hierbij ook de volledige code, ik hou van open source
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
68
69
70
71
72
73
74
75
| <!-- #include virtual="/temp/secure.asp"-->
<!-- #include file="adovbs.inc" -->
<BODY bgColor=#000000 topMargin=0 style="color: #FFFFFF">
<%
'creeren variabellen die nodig zijn
DSN= "users"
errors=0
msg=""
'data ophalen uit form
voornaam=request("voornaam")
achternaam=request("achternaam")
email=request("email")
paswoord1=request("paswoord1")
paswoord2=request("paswoord2")
'kijken of het email adres al in database voorkomt
if email>"" and oneval("users","select email from gebruikers where lcase(email)='" & trim(lcase(email)) & "'")=trim(lcase(email)) then
response.write "Dat e-mail adres bestaat al. Ga terug <a href='lostpass.asp'>Hier</a> en laat uw wachtwoord toemailen." & vbcrlf
response.end
end if
'check elk veld voor validatie en als het niet goed is geef foutmelding
checkit voornaam,"Voornaam moet ingevoerd worden."
checkit achternaam,"Achternaam moet ingevoerd worden."
checkit email,"Email Adres moet ingevoerd worden."
checkit paswoord1,"Paswoord moet ingevoerd worden."
checkit paswoord2,"U moet uw wachtwoord opnieuw invoeren voor verificatie."
'zijn de 2 wachtwoorden hetzelfde?
if paswoord1<>paswoord2 then
errors=errors+1
msg=msg & "De 2 wachtwoorden in de velden zijn niet gelijk.<br>" & vbcrlf
end if
'Is het wachtwoord lang genoeg?
if len(paswoord1)<5 then
errors=errors+1
msg=msg & "Uw wachtwoord moet in iedergeval 5 karakters lang zijn.<br>" & vbcrlf
end if
'nog andere fouten?
if errors>0 then
response.write msg
response.write "<br>Klik de Vorige button in uw browser om het opnieuw te proberen "
if errors>1 then
response.write ""
else
response.write "deze error."
end if
else
saveit 'Data word opgeslagen
end if
response.end
sub saveit
'maak een nieuwe Active Data Object connectie
set conn = server.createobject("ADODB.RecordSet")
'open de ODBC Systeem DSN
conn.open dns,"1","2","&H0001"
conn.addnew
conn("voornaam")=voornaam
conn("achternaam")=achternaam
conn("email")=email
conn("paswoord")=paswoord1
conn.update
conn.close
set conn = Nothing
header
response.write "Bedankt voor het registreren! Click <a href='login.asp'>here</a> om terug te keren naar de login pagina."
end sub
%> |
:strip_exif()/u/31414/cbg.gif?f=community)
/u/36282/crop5bf80f9bb546b_cropped.png?f=community)
