Login Script
Jeg har sidet og leget med et login script... den siger ikke nogen fejl når jeg loader siden, men den vil ikke redirecte som jeg har bedt den om ved korekt password, eller vise "forkert brugernavn" ved forkert login...Koden er:
<%
Response.Buffer = True
Response.expires = 0
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("lektiecafe.mdb")
Conn.Open DSN
if site = "login" then
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
site = Request.QueryString("site")
user=Replace(Request.Form("user"),"'","''")
pass=Replace(Request.Form("pass"),"'","''")
klasse=Replace(Request.Form("klasse"),"'","''")
strSQL = "Select * from login where user='" & user & "' and pass='" & pass & "' and klasse='" & klasse & "'"
Set rs = Conn.Execute(strSQL)
if not rs.EOF then
Response.Redirect Request.Form("klasse") & ".asp"
else
Response.Write "Forkert brugernavn password"
end if
end if
end if
Conn.Close
Set Conn = Nothing
%>
<html>
<head>
<!-- Minus AutoDato -->
<title>login system</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
</head>
<body>
<form method="post" action="login.asp?site=login">
Brugernavn:<input type="" name="user"><br>
Kodeord:<input type="" name="pass"><BR>
Klasse:<select name="Klasse">
<option value="HTX1A">HTX1A</option>
<option value="HTX2A">HTX 2A</option>
<option value="HTX3A">HTX 3A</option>
</select><BR>
<input type="submit" value="login">
</form>
</body>
</html>
