Wover
Legacy Member
Hey,
voor mijn eindwerk heb ik een automatisatieopdracht gekregen om bepaalde gegevens te raadplegen enz, maar alleen de personen van de personeelsdienst mogen deze gegevens zien, dus heb ik er een beveiliging opgezet via usrname en pwd en om het wat fletser
te maken wil ik via een cookie de gebruikersnaam na een keer aangemeld de hebben automatisch in het tekstvak te zetten. Dus op de pagina waar de inloggegevens worden gecontroleerd, staat een response.cookies (hij schrijft die ook weg, staat in de map cookies), maar als ik dan de volgende keer wil inloggen, komt de usrname niet in het tekstvak...
Hier mijn code:
inloggen.asp:
Heb het ook al zonder if gedaan, maar dan werkt het ook niet
inlogcontroleren.asp:
Thnx in advance
greetz
Woverke
voor mijn eindwerk heb ik een automatisatieopdracht gekregen om bepaalde gegevens te raadplegen enz, maar alleen de personen van de personeelsdienst mogen deze gegevens zien, dus heb ik er een beveiliging opgezet via usrname en pwd en om het wat fletser
te maken wil ik via een cookie de gebruikersnaam na een keer aangemeld de hebben automatisch in het tekstvak te zetten. Dus op de pagina waar de inloggegevens worden gecontroleerd, staat een response.cookies (hij schrijft die ook weg, staat in de map cookies), maar als ik dan de volgende keer wil inloggen, komt de usrname niet in het tekstvak...Hier mijn code:
inloggen.asp:
Code:
<%
Dim strcookie
strcookie = request.cookies("username")
If not strCookie = "" Then
txtGebruikersnaam = request.cookies("username")
End if
%>
Heb het ook al zonder if gedaan, maar dan werkt het ook niet
inlogcontroleren.asp:
Code:
<%
Dim connectie, rsInlog, strSQL, strConnectie, intGebruikersnaam, intWachtwoord
Set connectie = server.createobject("ADODB.connection")
strConnectie = "DRIVER={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("afwezigheden.mdb")
Connectie.open strConnectie
set rsInlog = server.createobject("adodb.recordset")
strSQL = "SELECT Username, Password FROM tblgebruikersenwachtwoorden"
rsInlog.open strSQL, connectie
intGebruikersnaam = request.form("txtGebruikersnaam")
intWachtwoord = request.form("txtWachtwoord")
If request.cookies("username") = "" Then
response.cookies("username") = intGebruikersnaam
response.cookies("username").expires = #2008-01-01#
End if
Do while not rsInlog.EOF
If intGebruikersnaam = rsInlog("Username") Then
If intWachtwoord = rsInlog("Password") Then
Response.redirect("welkom.htm")
Else
Response.redirect("inloggen.asp")
End if
Else
Response.redirect("inloggen.asp")
End if
rsInlog.movenext
Loop
%>
Thnx in advance
greetz
Woverke

