Dag mede tweakers,
Ik heb een heel erg vaag probleem. Ik heb op een site een agenda in ASP gemaakt die met een access databeest werkt. Deze agenda is voor iedereen te zien. Gebruikers kunnen inloggen zodat ze een uitgebreide agenda zien. Toen ik dit aan het testen was, werkte dit perfect. Nu heb ik de agenda dus in de site gebouwd en werkt nu vanuit een frame (dat is het enige wat ik kan verzinnen dat anders is). Als ik nu probeer in te loggen, lukt dit dus niet meer. Het lijkt wel of hij de sessie niet meer vasthoud of niet wegschrijft. Nu komt het gekste van het verhaal: Op het ene systeem werkt het wel en op de andere niet. Als ik achter een systeem ga zitten waar het niet werkt en ik roep de agenda appart op, (dus dan zit ie niet in de site ingebakken) dan werkt het dus wel!
Ik hoop dat jullie een beetje begrijpen wat ik bedoel want het is nogal een vaag probleem.
Hieronder staat de code van de controle van de gebruiker (waar het dus fout gaat is me een raadsel omdat hij geen foutmelding geeft maar gewoon naar de GeenToegang pagina gaat.
Ik heb een heel erg vaag probleem. Ik heb op een site een agenda in ASP gemaakt die met een access databeest werkt. Deze agenda is voor iedereen te zien. Gebruikers kunnen inloggen zodat ze een uitgebreide agenda zien. Toen ik dit aan het testen was, werkte dit perfect. Nu heb ik de agenda dus in de site gebouwd en werkt nu vanuit een frame (dat is het enige wat ik kan verzinnen dat anders is). Als ik nu probeer in te loggen, lukt dit dus niet meer. Het lijkt wel of hij de sessie niet meer vasthoud of niet wegschrijft. Nu komt het gekste van het verhaal: Op het ene systeem werkt het wel en op de andere niet. Als ik achter een systeem ga zitten waar het niet werkt en ik roep de agenda appart op, (dus dan zit ie niet in de site ingebakken) dan werkt het dus wel!
Ik hoop dat jullie een beetje begrijpen wat ik bedoel want het is nogal een vaag probleem.
Hieronder staat de code van de controle van de gebruiker (waar het dus fout gaat is me een raadsel omdat hij geen foutmelding geeft maar gewoon naar de GeenToegang pagina gaat.
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
| <%
Dim adoCon
Dim adoRec
Dim strAccessDB
Dim strSQL
Dim strUserName
Dim strUserPassword
strUserName = Request.Form("txtUserName")
strAccessDB = "users.mdb"
Set adoCon = Server.CreateObject("ADODB.Connection")
Set adoRec = Server.CreateObject("ADODB.Recordset")
adoCon="DRIVER={Microsoft Access Driver (*.mdb)};uid=***;pwd=***"
adoCon = adoCon & "DBQ=" & server.mappath(strAccessDB)
strSQL = "SELECT tblUsers.Password FROM tblUsers WHERE tblUsers.UserID ='"
strSQL = strSQL & strUserName & "'"
adoRec.Open strSQL, adoCon
strUserPassword = adoRec("Password")
If err then
Call NotValidUser
End If
'Set adoCon = Nothing
'Set adoRec = Nothing
If (Request.Form("txtUserPass")) = strUserPassword then
Session("blnIsUserGood") = True
Session("Username") = strUserName
Response.Redirect"agenda_leden.asp?name=" & strUserName
Else
Call NotValidUser
End If
Sub NotValidUser()
Session("blnIsUserGood") = False
Response.Redirect"geentoegang.htm"
End Sub
%>
<html>
<head>
<title>Controleer gebruiker</title>
</head>
<body>
</body>
</html> |
Eat right. Stay fit. Die anyway.