Object required: ''
Hvad er der lige galt her?<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("../Stillinger/Stillinger.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
'Find ID for den bruger som slettes
SQL = "SELECT Firma FROM Stillinger WHERE Stilling = '" & Request.Form("Stilling") & "'"
set rs = con.execute (SQL)
if NOT rs.EOF then
'Test om sletter er i samme gruppe som den som bliver slette eller sletteren er admin
if Session("auth_Gruppenavn") = rs("Firma") OR Session("auth_Gruppenavn") = "Admin" then
sql = "DELETE * From Stillinger Where Stilling = '" & Request.Form("Stilling") & "'"
Con.Execute(Sql)
response.write "Stillingen er nu slettet"
else
response.write "Du har ikke har adgang til at slette denne stilling"
end if
else
response.write "Senne stilling findes ikke"
end if
con.close
%>
Den giver følgende fejl:
Object required: ''
Som den siger er i denne linje:
set rs = con.execute (SQL)
