---

hmm nu har jeg sat med den her kode i laaaang tid og kan stadig
ikke få den til at slette en record når jeg trykker på slet sker
der ikke noget, hvad er dert galt?

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("maildb.mdb")
Conn.Open DSN

if request("mode") = "slet" then
SQL = "DELETE FROM users where user_id ="& request("user_id")

end if



SQL = "SELECT * from users"
set slet = conn.execute( SQL )
do while not slet.eof
on error resume next %>
<table border="1" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="600" id="AutoNumber4">
<tr>
<td width="50" nowrap><A HREF="userdata.asp?user_id=<% =
slet("user_id") %>&mode=slet">Slet</A></td>
<td width="150" nowrap><% = slet("user_name")
%></A></td>
<td width="150" nowrap><% = slet("user_email")
%></A></td>
<td width="100" nowrap><% = slet("user_password")
%></A></td>
<td width="200" nowrap><% = slet("email") %></td>

<%
slet.movenext
loop %>
<% conn.close

%>

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Hej,

I access:

"Delete * from...."

Du mangler stjernen *

/TH


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.445 / Virus Database: 250 - Release Date: 21-01-2003

---

Thomas spurgte
>if request("mode") = "slet" then
>SQL = "DELETE FROM users where user_id ="& request("user_id")
>end if

>SQL = "SELECT * from users"

din delete sætning bliver aldrig udført for du udskifter SQL med SELECT.
Prøv i stedet

If request("mode") = "slet" Then
SQL = "DELETE FROM users WHERE userid =" & request("user_id")
Else
SQL = "SELECT * FROM users"
End If

--
Med Venlig Hilsen

Jørgen Müller

---

Davs,

"Jørgen Müller" <j.muller@mail.tele.dk> skrev i en meddelelse
news:b0pqfv$79g$1@sunsite.dk...

> din delete sætning bliver aldrig udført for du udskifter SQL med SELECT.
> Prøv i stedet

Det kunne også hjælpe på det :)
Men uden at være Access-SQL expert mener jeg netop at vide, at Access _skal_
have argumentliste i en delete....fx "*" .

/TH




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.445 / Virus Database: 250 - Release Date: 21-01-2003

---

Det er jo ikke nok at sætte SQL = noget.
Det skal også udføres.

Så efter
SQL="..."
skal du bruge
conn.Execute(SQL)

- Morten

"Thomas Brejner" <thomasb@postbilen.dk> wrote in message
news:b0ppcv$2h5$1@sunsite.dk...
> hmm nu har jeg sat med den her kode i laaaang tid og kan stadig
> ikke få den til at slette en record når jeg trykker på slet sker
> der ikke noget, hvad er dert galt?
>
> <%
> ' Databaseforbindelse - husk at angive sti til din database
> Set Conn = Server.CreateObject("ADODB.Connection")
> DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
> DSN = DSN & "DBQ=" & Server.MapPath("maildb.mdb")
> Conn.Open DSN
>
> if request("mode") = "slet" then
> SQL = "DELETE FROM users where user_id ="& request("user_id")
>
> end if
>
>
>
> SQL = "SELECT * from users"
> set slet = conn.execute( SQL )
> do while not slet.eof
> on error resume next %>
> <table border="1" cellpadding="0" cellspacing="0"
> style="border-collapse: collapse" bordercolor="#111111"
> width="600" id="AutoNumber4">
> <tr>
> <td width="50" nowrap><A HREF="userdata.asp?user_id=<% =
> slet("user_id") %>&mode=slet">Slet</A></td>
> <td width="150" nowrap><% = slet("user_name")
> %></A></td>
> <td width="150" nowrap><% = slet("user_email")
> %></A></td>
> <td width="100" nowrap><% = slet("user_password")
> %></A></td>
> <td width="200" nowrap><% = slet("email") %></td>
>
> <%
> slet.movenext
> loop %>
> <% conn.close
>
> %>
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! => http://www.html.dk/tutorials