Fjern "logon"?
Hejsa :-)Jeg har et "mindre" problem vedr. en login side... Jeg skal helt have fjernet dette login fra siden så, det som vises efter login bare bliver vist med det samme ( det det øjeblik man åbner siden ).
Jeg giver 30 point til den som gidder at fjerne det login script fra kildekoden som ses nedenunder her... Har selv prøvet, men det gik i ged 2 gange og jeg orker ik at prøve forfra igen...
Kildekoden på ASP-filen:
<body>
<%
strMode = request("mode")
select case strMode
case "godkend"
if session("password") = "test" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/links.mdb")
Set rs = Conn.Execute("UPDATE links SET godkendt = 'ja' WHERE id = " & request("id"))
Conn.Close
Set Conn = Nothing
response.redirect "admin_links.asp"
else
response.redirect "admin_links.asp?mode=login"
end if
case "slet"
if session("password") = "test" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/links.mdb")
Set rs = Conn.Execute("DELETE FROM links WHERE id = " & request("id"))
Conn.Close
Set Conn = Nothing
response.redirect "admin_links.asp"
else
response.redirect "admin_links.asp?mode=login"
end if
Case "login"
if request.form("password") = "test" then
session("password") = "test"
response.redirect "admin_links.asp"
else
%>
<form action="admin_links.asp?mode=login" method="post">
<table><tr><td><input type="password" name="password"><br><input type="submit" value="login"></td></tr></table>
</form>
<%
end if
case "logout"
session.abandon
response.redirect "admin_links.asp?mode=login"
case else
if session("password") = "test" then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM links WHERE godkendt='nej' ORDER BY navn"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/links.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
Response.Write "<table width='500' cellspacing='2' cellpadding='0'>"
Response.Write "<tr><td valign=top width='100%' colspan=3 bgcolor=#e5e5e5><font size=2><b>Nye links</b></font></td></tr>"
Do While Not rs.EOF
Response.Write "<tr><td bgcolor=#e5e5e5><font size=2><b><a href='" & rs("url") & "'>" & rs("Navn") & "</a></b></font></td><td bgcolor=#e5e5e5><font size=2> <b><a href=admin_links.asp?mode=godkend&id=" & rs("ID") & ">Godkend</a></b></font></td><td bgcolor=#e5e5e5><font size=2><b><a href=admin_links.asp?mode=slet&id=" & rs("ID") & ">Slet</a></b></font></td></tr>"
rs.MoveNext
Loop
End If
Response.Write "</table>"
rs.Close
Set rs = Nothing
else
response.redirect "admin_links.asp?mode=login"
end if
end select
%>
</body>
// Peter
