Slet Data

Har du behov for at kunne skrive "der opstod en fejl under sletning." for så er man faktisk nød til først at tjekke om der findes noget med det id inden man sletter. Hvis man sletter og der ikke findes noget med det ID kommer der ikke SQL fejl. Det er mere relevant at tjkke på om ID er føst tigtigt med over i QueryStingen da det giver SQL fejl hvis tallet mangler..

<%
Set Conn = Server.CreateObject("ADODB.Connetion")
Conn.Open "Data Source="& Server.Mappath("XXXXX.mdb")& ";Provider=Microsoft.Jet.OLEDB.4.0;"

id = request.QueryString("id")
if isNumeric(id) AND id <> "" then
  SQL = "DELETE FROM tabel WHERE id = " & id
  Conn.Execute (SQL)
else
  Response.write "Manger ID"
end if
Conn.Close
Set Conn = Nothing
%>

Jeg for bare en FEJL 500 ??

Du skal så lige rette linjen:

Conn.Open "Data Source="& Server.Mappath("XXXXX.mdb")& ";Provider=Microsoft.Jet.OLEDB.4.0;"

Så den passer med din database.

Den giver stadig en fejl 500 se selv:
http://www.bodykits.dk/sletbil.asp?sletid=33

Koden i Slet.asp er:
<%
Set Conn = Server.CreateObject("ADODB.Connetion")
Conn.Open "Data Source="& Server.Mappath("../database/bodykits.dk/brugersystem.mdb.mdb")& ";Provider=Microsoft.Jet.OLEDB.4.0;"


id = request.QueryString("sletid")
if isNumeric(id) AND id <> "" then
  SQL = "DELETE FROM brugerbiler WHERE id = " & id
  Conn.Execute (SQL)
else
  Response.write "Manger ID"
end if
Conn.Close
Set Conn = Nothing
%>

Jeg har lavet en stave fejl i denne linje:

Set Conn = Server.CreateObject("ADODB.Connetion")

Det skal være:

Set Conn = Server.CreateObject("ADODB.Connection")

Prøv i IE  at slå denne fra:

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "ved meddelelse om uskadelige http-fejl"

Så skulle du gerne få en bedre fejl kode/beskrivelse.

Jeg er ked af og sige det men fejlen er stadig den samme :-)

Den kan ikke finde database filen:

Microsoft JET Database Engine error '80004005'

Could not find file 'D:\WebDrev\database\bodykits.dk\brugersystem.mdb.mdb'.

/sletbil.asp, line 4

Sorry jeg tror det er min fejl.

Det virker nu med sådan:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../Database/bodykits.dk/brugersystem.mdb") & ";UID=admin;PWD=;"

Jeg forstår ikke hvorfor men nu køre det :-) 1000 Tak for hjælpen