login problemer .... ????
HejHar fået dette problem i dette login script ...
når jeg logger ind korrekt virker det som det skal
når jeg logger ind "forkert" bliver jeg ikke sendt
til til.asp som der står i koden hvad er der galt?
LINK:
http://iceb.ljnet.dk/flash/login/formular.asp
KODEN:
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb")
Conn.Open DSN
Set rs = Server.CreateObject("ADODB.RecordSet")
username = replace(Request.Form("username"),"'","")
password = replace(Request.Form("password"),"'","")
strSQL= "SELECT * FROM medlemmer WHERE (brugernavn= '" & username & "' AND kode='" & password & "');"
Set rs = Conn.Execute (strSQL)
if not rs.EOF then
session("loginOK") = "naturligvis"
session("loginMemberID") = rs("ID")
response.cookies("forumData")("brugerID") = Session("loginMemberID")
response.cookies("forumData").Expires = now + 365
Conn.Close
'Den side man skal til når man er logget ind
Response.Redirect("dokument.asp")
else
session("loginOK") = ""
session("loginMemberID") = ""
if not rs.EOF then
session("loginOK") = "naturligvis"
session("loginMemberID") = rs("memberID")
if request.form("huskmig") = "ja" then
response.cookies("forumData")("brugerID") = Session("loginMemberID")
response.cookies("forumData").Expires = now + 365
end if
Conn.Close
'Den side man skal til når man er logget ind
Response.Redirect("til.asp")
else
session("loginOK") = ""
session("loginMemberID") = ""
response.cookies("forumData")("brugerID") = ""
end if
end if
end if
%>
<html>
<head></head>
<body>
<center><p>Velkommen til denne site login her:</p>
<table border="1">
<form method="post" action="formular.asp">
<tr><td>Brugernavn:</td><td><input name="username"></td></tr>
<tr><td>Password:</td><td><input type="password" name="password"></td></tr>
<tr><td colspan="2" align="center"><input type="submit" value="Login" name="Action">
<input type=checkbox name=huskmig value=ja>
</td></tr>
</form></table>
For tests only user: ice pass: ic
</center>
</body>
</html>
