At slette sin bruger i DB'en

Er det et forum ?

Nej, folk kan bare oprette annoncer... Lang historie...

Hvis du vil sikre at det indtastede findes så kan man lave en select først og så slette profilen. Du skal havde en connection conn til din database og talel og kolonnenavne skal måske lige rettes til, så de passer mit din database:

brugernavn = replace(Request.Form("brugernavn"),"'","''")
password = replace(Request.Form("password"),"'","''")
sql = "select * from brugere where brugernavn = '" & brugernavn & "' AND password = '" & password & "'"
Set rs = Conn.Execute(SQL)
if not rs.EOF then
  Response.Write "Bruger slettet"
  sql = "delete from brugere where brugernavn = '" & brugernavn & "' AND password = '" & password & "'"
  conn.Execute(SQL)
else
  Response.Write "Bruger findes ikke"
end if

Hvis brugernavnet og passwordet er kendte vil følgende sql-ordre slette brugerens data.
SQL="Delete * from Test where brugernavn='" &  brugernavn &"'" &  " and password='" & password &"'"

Der er i princippet ingen grund til at tjekke først for hvis man skriver noget forkert i brugernavn og password får man ikke en fejl nå man bare kun laver en delete sql:
brugernavn = replace(Request.Form("brugernavn"),"'","''")
password = replace(Request.Form("password"),"'","''")
sql = "delete from brugere where brugernavn = '" & brugernavn & "' AND password = '" & password & "'"

Problemet er bare at man så vil udskrive "Brugeren slettet" men hvis nu brugeren har skrevet enten sit brugernavn eller password forkert vil brugeren tror han var slettet, men det er han ikke. Så det et valg man kan gøre...

Så er dette rigtigt?

<%
  Set rs = Server.CreateObject("ADODB.RecordSet")
  Set Conn = Server.CreateObject("ADODB.Connection")
  strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/ansogning.mdb")
 
brugernavn = replace(Request.Form("brugernavn"),"'","''")
password = replace(Request.Form("password"),"'","''")
sql = "select * from brugere where brugernavn = '" & brugernavn & "' AND password = '" & password & "'"
Set rs = Conn.Execute(SQL)
if not rs.EOF then
  Response.Write "<b>Annoncen er nu slettet!</b>"
  sql = "delete from annonce where brugernavn = '" & brugernavn & "' AND password = '" & password & "'"
  conn.Execute(SQL)
else
  Response.Write "Brugernavnet eller password'et er forkert... Prøv igen!"

  rs.Update

  'lukker pænt igen
  rs.Close
  set rs = Nothing

end if
%>

Ja dog skal du hvade linjen med rs.Update slettet, og end if skal helt op lige efter Response.Write linjen:

Så if sætningen og de sidste linjer bliver:

if not rs.EOF then
  Response.Write "<b>Annoncen er nu slettet!</b>"
  sql = "delete from annonce where brugernavn = '" & brugernavn & "' AND password = '" & password & "'"
  conn.Execute(SQL)
else
  Response.Write "Brugernavnet eller password'et er forkert... Prøv igen!"
end if

'lukker pænt igen
rs.Close
set rs = Nothing

%>

og så mangler dee lige en Conn.Open linje efter linjen med strDSN:

  Set Conn = Server.CreateObject("ADODB.Connection")
  strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/ansogning.mdb")
  Conn.Open strDSN

ADODB.Connection error '800a0e78'

Operation is not allowed when the object is closed.

/slet_annonce_ok.asp, line 12

Nok det, der er fejlen... Tjekker lige...

Ja, det virker... Tak!

Ok det lyder godt ;)

Lige en sidste ting ;)

Det er også altid godt at lukke sin connection lige som du lukker dit recordset sidst i koden:

'lukker pænt igen
rs.Close
set rs = Nothing


Så det bliver:

'lukker pænt igen
rs.Close
set rs = Nothing
Conn.Close
Set Conn = Nothing