ASP inloggen met FLAG-status - Softwareontwikkeling

maandag 29 maart 2004 17:07

Acties:

Verwijderd

Topicstarter

Ik wil dat men na het inloggen, afhankelijk van de Flagstatus naar een bepaalde pagina gaat. Ik krijg echter steeds een blanco Default.asp zonder foutmelding. Ziet iemand de fout ?

<% Response.Buffer = True %>

<%
accessDB= server.mappath("Ziekte.mdb")
strCon="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strCon=strCon & accessDB & ";"

status = Request.FORM("status")

' De pagina die geopend moet worden als het inloggen gelukt is.
mainpage = "Ziekte_admin.asp"
subpage = "Test.asp"

If status = "Controleer" Then

set data = server.createobject("ADODB.Recordset")
data.activeconnection = strCon
data.source = "SELECT * FROM Users WHERE UserName = '" & request.form("username") & "'"
data.open

if data.eof then

text = "Fout bij het inloggen!<BR><BR>"
Session("ACCESS") = "NO"
data.close
set data = nothing

else

if request.form("password") = data("password") and 1 = data("Flag") then

Session("ACCESS") = "YES"
data.close
set data = nothing

else

if request.form("password") = data("password") and 2 = data("Flag") then

Session("ACCESS") = "JA"
data.close
set data = nothing

else

text = "Fout bij het inloggen!<BR><BR>"
Session("ACCESS") = "NO"
data.close
set data = nothing

end if

end if

%>

<% End If %>

<% If Session("ACCESS") <> "YES" And Session("ACCESS") <> "JA" Then %>

<html>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Inloggen</title>
<link rel="stylesheet" type="text/css" href="../css/base.css">
</head>
<body text="3C3F8E">
<form name="form1" method="post" action="default.asp">
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr align="center">
<td colspan="2"><%= text %></td>
</tr>
<tr>
<td width="50%" align="right"> <%= ACCESS %> Gebruikersnaam: &nbsp </td>
<td width="50%"> <input type="text" name="username"> </td>
</tr>
<tr>
<td width="50%" align="right"> Wachtwoord: &nbsp </td>
<td width="50%"> <input type="password" name="password"> <input type="hidden" value="Controleer" Name="status">
</td>
</tr>
<tr align="center">

<td colspan="2"> <br><input type="submit" name="Submit" value="Login"> </td>
</tr>
</table>
</form>
</body>
</html>

<% Response.End %>

<%

Elseif Session("ACCESS") = "YES" Then

' Het inloggen is gelukt, ga naar de beveiligde pagina toe
response.redirect mainpage

Elseif Session("ACCESS") = "JA" Then

response.redirect subpage

End if
End if

%>

maandag 29 maart 2004 17:08

Acties:

gorgi_19

Kruimeltjes zijn weer op :9

Erhmm..

* gorgi_19 gaat geen 200 regels code op deze manier doorkijken..

Hint: Zet tussendoor eens een aantal Response.Write's, zodat je ziet wat er fout gaat en wat elke variabele voor waarde heeft op welk moment.

Digitaal onderwijsmateriaal, leermateriaal voor hbo

maandag 29 maart 2004 17:08

Acties:

.oisyn

Moderator Devschuur®

Demotivational Speaker

P&W FAQ - De "quickstart"
Wij gaan je code niet voor je debuggen, dus je kunt niet zomaar hier je code neerplempen en vragen wat er fout is. Bovendien, als je code post, plaats het dan in code-tags (zie de faq)

Give a man a game and he'll have fun for a day. Teach a man to make games and he'll never have fun again.