Slet en medarbejder i en access db.

delete distinctrow id from dintabel where....

øøø.. jeg skal nok have lidt mere hjælp... :-)

opret fx en variabel der indeholder id på medarbejderen (overført fra en side der lister alle medarb)

<%StrId = request.querystring("id")%>

udfører slet:
<%
Dim Conn, RS, SQL


Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("test.mdb")
SQL ="delete * from test where id like '" & StrId & "'"

Set RS = Conn.Execute(SQL)

  Conn.Close
Set Conn = Nothing

%>

min slette side ser sådan ud..
<%
strSQL = "Select * From Kontaktpersoner Order by Fornavn"
Set rs = Conn.Execute(strSQL)

Do
  <%StrId = request.querystring("id")%>

udfører slet:
<%
Dim Conn, RS, SQL


Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("test.mdb")
SQL ="delete * from test where id like '" & StrId & "'"

Set RS = Conn.Execute(SQL)

  Conn.Close
Set Conn = Nothing


%
og den giver følgende fejl:
Microsoft VBScript compilation error '800a0400'

Expected statement

/test/slet.asp, line 138

<%StrId = request.querystring("id")
^


den henter medarbejeren fra en side før med id

opret en side som viser medarbejdere:

<%
Dim Conn, RS, SQL

Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("test.mdb")
SQL = "SELECT * FROM Kontaktpersoner Order by Fornavn
Set RS = Conn.Execute(SQL)
  Do While Not RS.EOF
%><a href='slet_nyhed.asp?id=<%= RS("id") %>'><%= RS("fornavn") %></a><br>
  <% RS.MoveNext
  Loop
RS.Close
Conn.Close

Set RS = Nothing
Set Conn = Nothing
%>
og derefter en side der sletter:

<%StrId = request.querystring("id")%>


<%
Dim Conn, RS, SQL


Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("test.mdb")
SQL ="delete * from kontaktpersoner where id like '" & StrId & "'"

Set RS = Conn.Execute(SQL)

  Conn.Close
Set Conn = Nothing


%>

husk at udskifte test.mdb med navnet på din database

det virker smukt...... gir du et svar... :-)

ok :-)

måske skulle du lave en mellemside, som spørger om du nu er sikker på at du vil slette person x ;-)

tja... det er voksne mennekser... :-) he he ja måske

jep, men det er nemt at komme til at slette forkerte.....

<h4>Du er ved at slette følgende medarbejder:</h4>
<%
Dim Conn, RS, SQL

Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("test.mdb")
SQL = "SELECT * FROM Kontaktpersoner  where id like '" & StrId & "'"
Set RS = Conn.Execute(SQL)
  Do While Not RS.EOF

  %><%= RS("fornavn") %><br>
  <%= RS("efternavn") %><br>
<a href='slettet_nyhed.asp?id=<%= RS("id") %>'>vil du fortsætte?</a>
<% RS.MoveNext
  Loop
RS.Close
Conn.Close

Set RS = Nothing
Set Conn = Nothing
%>

den viser ikke fornavn og efternavn ?

<%
Dim Conn, RS, SQL

Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("database.mdb")
SQL = "SELECT * FROM Kontaktpersoner  where id like '" & StrId & "'"
Set RS = Conn.Execute(SQL)
  Do While Not RS.EOF

  %><%= RS("fornavn") %><br>
  <%= RS("efternavn") %><br>
<a href='slet.asp?id=<%= RS("id") %>'>vil du fortsætte?</a>
<% RS.MoveNext
  Loop
RS.Close
Conn.Close

Set RS = Nothing
Set Conn = Nothing
%>

hmmm... måske hjælper det at sætte variablen ind øverst:
<%StrId = request.querystring("id")%>

du er jo ikke helt skør ..:-) det var lige den vi skulle have med.. :-) thanks

og når vi nu alligevel er i gang :-)
udskift:
<a href='slet.asp?id=<%= RS("id") %>'>vil du fortsætte?</a>
med:

vil du fortsætte?
<a href='slet.asp?id=<%= RS("id") %>'>Ja</a>
<a href='medarbejdere.asp'>Nej</a>

hvor medarbejdere.asp udskiftes med det du kalder siden hvor man kan vælge medarb.