Login hjælp!
Jeg har et login system, hvor jeg har et lille problem! Når der trykkes på login knappen, kan siden login.asp ikke findes - sjovt nok er det denne side loginsystemet er på... Kan ikke lige se fejlen!!!<%
SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".../database/login.mdb")
If Request("mode") = "Check" then
Function unQuote(strTekst)
strTekst = Trim(strTekst)
unQuote = Replace(strTekst,"%","53")
End Function
' Gemmer formfelterne i Variabler
strUsername = unQuote(request("Brugernavn"))
strPassword = unQuote(request("Password"))
Sql = "Select Count(*) as Found from login where (brugernavn= '" & strBrugernavn & "') and (password ='" & strPassword & "')"
Set LO = RS.Execute(Sql)
if LO("Found") = 0 then
Session("login") = ""
error = "Du har ingen adgang"
else
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".../database/login.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
strSQL = "SELECT * FROM login where (brugernavn = '" & Request("brugernavn") & "') and (password ='" & Request("password") & "')"
Set ez = myConn.Execute(strSQL)
Session("login") = "Velkommen"
Response.Redirect "http://www.bruger.service2004.dk/minside.asp"
EZ.Close
RS.Close
Conn.Close
end if
end if
%>
<form method="POST" action="login.asp">
<input type="hidden" name="mode" VALUE="Check">
Username:
<input class='text' type='text' name='username' size='15' style='font-family: Verdana; font-size: 8 pt' value="<%=strbrugernavn%>">
<br>
font class="header">
Password:
<input class="text" type="password" value="<%=strpassword%>" name="password" size="15" style="font-family: Verdana; font-size: 8 pt">
<input class="text" type="submit" value="Login" name="submit" style="font-family: Verdana; font-size: 8 pt">
<%=error%>
</form>
Håber I kan se fejlen!
Mvh bbbworld
