Hvad skal der efter ? for at automatisk logge ind..
Har et nyheds redigerings script-..hvad skal jeg skrive efter http://nyhedsadmin.asp?
for at automatisk logge ind??
(har kun taget det ejg tror er vigtigt fra scriptet.)
<% if mode = "" then %>
<font size="3" face="Verdana, Arial, Helvetica, sans-serif"><b>Login</b></font><br>
<font size=2 color=#0099FF><%=Request.Querystring("error")%></font><br>
<form method=post action=login.asp?mode=login>
Brugernavn: <input type=text name=brugernavn size="20"><br>
Password:
<input type=password name=password size="20">
<input type=submit value=Login>
</form>
<% end if %>
<% if mode = "login" then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../nyh73837.mdb")
strSQL = "SELECT * FROM admin where brugernavn = '" & Request.form("brugernavn") & "'"
Set rs = myConn.Execute(strSQL)
If rs.BOF Or rs.EOF Then
Response.Redirect("login.asp?error=Ingen bruger med det navn!")
end if
if rs("password") = Request.form("password") then
session("brugernavn") = rs("brugernavn")
session("id") = rs("id")
session("login") = yes
Response.Redirect("oversigt.asp")
else
Response.Redirect("login.asp?error=Du har indtastet forkert password!")
end if
myConn.Close
Set myConn = Nothing
end if %>
