Fejl ved kode ?
HejsaDu kan se via nedenstående ASP kode --> Hver gang jeg indtaster koden "test" så kommer jeg bare til en "siden findes ikke" --> Burde jeg ikke gøre?
Håber at der er nogen der vil se på koden, og lige hjælpe mig med den..
KODEN:
<html>
<head>
<title>Linksystem - Admin</title>
</head>
<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.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>
</html>
--------------- S L U T T E R - H E R --------------------
