ODBC-driver understøtter ikke de ønskede egenskaber.
Hvad betyder "ODBC-driver understøtter ikke de ønskede egenskaber.".Fejl meddedelse:
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC-driver understøtter ikke de ønskede egenskaber.
/labda/arm-bendefekte-amc.dk/admin/linksadmin.asp, line 64
Kode:
------------------------------------------------
<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/db.mdb")
Set rs = Conn.Execute("UPDATE links SET godkendt = 'ja' WHERE id = " & request("id"))
Conn.Close
Set Conn = Nothing
response.redirect("linksadmin.asp")
else
response.redirect("linksadmin.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/db.mdb")
Set rs = Conn.Execute("DELETE FROM links WHERE id = " & request("id"))
Conn.Close
Set Conn = Nothing
response.redirect("linksadmin.asp")
else
response.redirect("linksadmin.asp?mode=login")
end if
Case "login"
if request.form("password") = "test" then
session("password") = "test"
response.redirect("linksadmin.asp")
else
%>
<form action="linksadmin.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("linksadmin.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/db.mdb")
rs.Open strSQL, strDSN, 1 <--- Fejlen skulle ligge her
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=linksadmin.asp?mode=godkend&id=" & rs("ID") & ">Godkend</a></b></font></td><td bgcolor=#e5e5e5><font size=2><b><a href=linksadmin.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("linksadmin.asp?mode=login")
end if
end select
%>
</body>
</html>
------------------------------------------------
Jeg kan ikke finde på en bedre beskrivelse af problemet.
