Goeieavond,
Mijn registratie scriptje, moet de username controleren die de gebruiker heeft opgegegeven. Als de username voorkomt in de database, dan geeft ie een error code.
Wordt de username niet gevonden in de database, dan kan het doorgaan met de registratie. Simpel, dacht ik zo..
Toch niet.
Nu geeft ie iedere keer een 'Exception Occured' aan als de username NIET is gevonden. Maar hij geeft gewoon mijn eigen 'Username has already been taken'-fout aan, als ie WEL voorkomt. Ik gebruik het volgende script:
Ik krijg dan een fout op Line 37, line 37:
If Request.Form("Username") = rsUser("Username") Then
Hier is toch niks mis mee, toch?
Help AUB.
Mijn registratie scriptje, moet de username controleren die de gebruiker heeft opgegegeven. Als de username voorkomt in de database, dan geeft ie een error code.
Wordt de username niet gevonden in de database, dan kan het doorgaan met de registratie. Simpel, dacht ik zo..
Toch niet.
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
| Set cnDB = Server.CreateObject("ADODB.Connection")
cnDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;"_
& "Data source = D:\Accounts\DSAccounts\creepsworld\creepsworld.com\db\database.mdb"
cnDB.Open
Set rsUser = Server.CreateObject("ADODB.RecordSet")
rsUser.Open "SELECT * FROM users_login WHERE Username = '" & Request.Form("Username") & "'", cnDB
If Request.Form("Username") = rsUser("Username") Then
Response.Write "That name has already been taken! Please go back and try another one!"
Else
Set rsQuery = Server.CreateObject("ADODB.RecordSet")
rsQuery.Open "SELECT * FROM users_login", cnDB, 2, 2
rsQuery.AddNew
rsQuery("Username") = Request.Form("Username")
rsQuery("Password") = Request.Form("Password")
rsQuery("Email") = Request.Form("Email")
rsQuery("IPAdress") = Request.Form("IPADRESS")
rsQuery("Status") = "Active"
rsQuery.Update
rsQuery.Close
rsUser.Close
cnDB.Close
End If |
Ik krijg dan een fout op Line 37, line 37:
If Request.Form("Username") = rsUser("Username") Then
Hier is toch niks mis mee, toch?
Help AUB.