Login script
Hej.. Jeg har et community, og jeg kan godt logge ind, men alle andre kan ikke.. Hvis der var en der gad sige mig fejlen, er det godt, her er login scriptet hvor man skriver kode og brugernavn:<%
mode = Request("mode")
Response.Buffer = True
%>
<html>
<head>
<title>Community</title>
</head>
<body link="#000000" vlink="#000000" alink="#000000">
<p align="left"><font size="2" face="Tahoma">
<% if mode = "" then %>
</font><font face="Tahoma" size="4"><b>Login</b></font><font size="2" face="Tahoma"><br><font size=2 color=red><%=Request.Querystring("error")%></font><br>
</font>
<form method=post action=default.asp?mode=login>
<font size="2" face="Verdana">
Brugernavn: <br>
<input type=text name=Brugernavn size="20" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"><br>
Kodeord: <br>
<input type=password name=kodeord size="20" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1">
<br>
<input type=submit value=Login style="font-family: Verdana; font-size: 10 pt; background-color: #FFFFFF; border-style: solid; border-width: 1"></font><font size="2" face="Tahoma"><br><br>
<a href=opret.asp>Opret en ny bruger her</a></font>
</form>
<% end if %>
<% if mode = "login" then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("community.mdb")
strSQL = "SELECT * FROM bruger where brugernavn = '" & Request.form("brugernavn") & "'"
Set rs = myConn.Execute(strSQL)
If rs.BOF Or rs.EOF Then
Response.Redirect("default.asp?error=Ingen bruger med det navn!")
end if
if rs("brugerKodeord") = Request.form("kodeord") then
session("brugerNavn") = rs("brugerNavn")
session("id") = rs("brugerId")
session("login") = yes
Response.Redirect("logged_in.asp")
else
Response.Redirect("default.asp?error=Du har indtastet forkert password!")
end if
myConn.Close
Set myConn = Nothing
end if %>
</body>
</html>
