ID = Request.Querystring(\"ID\") Set myConn = Server.CreateObject(\"ADODB.Connection\") myConn.Open Session(\"DB\") sql = \"DELETE DISTINCTROW Kategori FROM Kategori WHERE ID = \"& ID &\"\" set rs = MyConn.Execute(sql) rs.Close myConn.Close Set rs = Nothing Set myConn = Nothing
Får jeg denne fejlmelding:
Handlingen er ikke tilladt, mens objektet er lukket.
ID = Request.Querystring(\"ID\") Set myConn = Server.CreateObject(\"ADODB.Connection\") myConn.Open Session(\"DB\") sql = \"DELETE DISTINCTROW Kategori FROM Kategori WHERE ID = \"& ID &\"\" set rs = MyConn.Execute(sql) Set rs = Nothing Set myConn = Nothing rs.close myConn.close
Jeg tror det er fordi du forsøger at fylde data fra en sletning ind i en tabel. Brug i stedet et commandobjekt.
Placer nedensående i din kode efter sql=... og fjern følgende: set rs...
dim ObjCommand set objCommand=server.CreateObject(\"ADODB.Command\") objCommand.CommandText=SQL objCommand.ActiveConnection = myConn objCommand.CommandType=adCmdText objCommand.execute
Jo, jeg prøver lige i den her editor... ID = Request.Querystring(\"ID\") Set myConn = Server.CreateObject(\"ADODB.Connection\")
set objCommand=server.CreateObject(\"ADODB.Command\")
myConn.Open Session(\"DB\") sql = \"DELETE DISTINCTROW Kategori FROM Kategori WHERE ID = \"& ID &\"\" objCommand.CommandText=SQL objCommand.ActiveConnection = myConn objCommand.CommandType=adCmdText objCommand.execute Set myConn = Nothing
ID = Request.Querystring(\"ID\") Set myConn = Server.CreateObject(\"ADODB.Connection\") myConn.Open Session(\"DB\") sql = \"DELETE DISTINCTROW Kategori FROM Kategori WHERE ID = \"& ID &\"\" MyConn.Execute(sql) myConn.Close Set myConn = Nothing
I øvrigt, så springer brugen af DistinctRow Kategori, i øjnene. Er der nogen speciel grund til, at du medtager den? Jeg vil tro, at den kan give problemer i sig selv. Den kan evt. fjernes.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.