Hvor er fejlen i mit LOGIN script
Hej AlleNu har jeg siddet og rodet med dette Log-In script i 100 år !!
Er der nogen der lige kan hjælpe med at lokalisere fejlen (fejlene)
Det skal bare være så simpelt som muligt ;-)
Mange Tak
LOGIN.ASP
.......................................
<% Language=VBScript %>
<HTML><HEAD>
<title>LogIn side</title>
</HEAD>
<BODY>
Velkommen til LOGIN-siden.
<br>
<form action="checklogin.asp" >
<%if session("loginerr")<>"" then%>
<%=session("loginerr")%>
<%Session("loginerr")=""
end if%>
<br>Navn:
<input name="navn" >
<br>Password:
<input type="password" name="adgangskode">
<br><input type="submit" value="Log ind">
</form>
</BODY>
</HTML>
CHECKLOGIN.ASP
..........................................
<%@ Language=VBScript %>
<% response.buffer = true %>
<HTML>
<HEAD></HEAD>
<BODY>
<%
set objForb = Server.createobject ("ADODB.connection")
tmpconn = "Driver={Microsoft Access Driver (*.MDB)}; DBQ=D:\Websider\www\db\resultat.mdb;UID=;PWD=;"
objForb.open tmpconn
%>
<%
navn = Ucase(Request("navn"))
adgangskode = Ucase(Request("adgangskode"))
Dim strSql, obj
strSQL = strSQL & " VALUES ('" & navn & "','" & adgangskode & "');"
Response.Write strSQL
objForb.Execute (strSQL)
set objRec = objForb.Execute ("SELECT * FROM bruger WHERE navn ='" & navn & "' AND adgangskode = '" & adgangskode &"'")
IF objRec.EOF THEN
Session("loginerr")="Forkert brugernavn eller adgangskode<br>"
Response.Redirect "login.asp"
ELSE
Session.timeout = 20
Session("login") = TRUE
Session("level") = objRec("level")
END IF
if objRec("level") = "1" then
Response.Redirect "side1.asp"
end if
if objRec("level") = "2" then
Response.Redirect "side2.asp"
else
Response.Redirect "side4.asp"
end if
objRec.close
objForb.close
set objRec = Nothing
set objForb = Nothing
%>
</BODY>
</HTML>
::::::::
Min Access DB hedder resultat.mdb og tabbelen hedder bruger og indeholder cellerne:
navn, adgangskode, level
