Delete i databasen afhængig af where strengen og tabellen i db'en

Prøv sådan!
<form metod="post" action="default.asp?side=8&mode=delete">
<select size="1" name="delete_menu">
    <option>Nyheder</option>
    <option>Artikler</option>
    <option>members</option>
</select>

<select size="1" name="valg">
    <option>Overskrift</option>
    <option>nick</option>
</select>

<br>
<br>

Delete: <input type="text" name="delete_navn" size="20"><br>
<input type="submit" value="delete" name="submit">
</form>

//>Rune

Og sådan:

<%
if request.querystring("mode") = "delete" then

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/masterz.mdb")

Conn.Open DSN

Delete = "delete from '" & request.form("delete_menu") & "' where '" & request.form("valg") & "' = '" & request.form("delete_navn") & "'"

Conn.Execute(delete)

end if
%>

//>Rune

Samlet:

<form metod="post" action="default.asp?side=8&mode=delete">
<select size="1" name="delete_menu">
    <option>Nyheder</option>
    <option>Artikler</option>
    <option>members</option>
</select>

<select size="1" name="valg">
    <option>Overskrift</option>
    <option>nick</option>
</select>

<br>
<br>

Delete: <input type="text" name="delete_navn" size="20"><br>
<input type="submit" value="delete" name="submit">
</form>

<%
if request.querystring("mode") = "delete" then

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/masterz.mdb")

Conn.Open DSN

Delete = "delete from '" & request.form("delete_menu") & "' where '" & request.form("valg") & "' = '" & request.form("delete_navn") & "'"

Conn.Execute(delete)

end if
%>

//>Rune

Ja nu sætter den det hele op i adresse feltet....

Men den linker til default.asp istedet for default.asp?side=8&mode=delete. Det er altså lidt mærkelig for den har jo action="default.asp?side=8&mode=delete"

Hmm må jeg lige prøve at se hele din kode?

//>Rune

Den er stor, men her er den.

<% Response.Expires = 0 %>

<%
Function doSecurityChk()
    If not Session("LoggedIn") = true then
        response.redirect("default.asp?side=6&message=Hey din lille hacker. Saa nem er den ikke. Hold fingerne vaek fra mit domaene.")
    end if
end function

%>

<%
doSecurityChk()
%>

<table border="0" width="100%">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/masterz.mdb")

Conn.Open DSN

Mangler = "SELECT * FROM Members Where User = '" & session("user") & "' "

Set Hent = Conn.Execute(Mangler)

Do

%>
<p>
<tr>
<td bgcolor="white" valign="top"><p><b>Brugernavn:</b> <%= hent("User") %></p></td>
</tr>
<tr>
<td bgcolor="white" valign="top"><p><b>Nick:</b> <%= hent("Nick") %></p></td>
</tr>
<tr>
<td bgcolor="white" valign="top"><p><b>Alder:</b> <%= hent("Alder") %></p></td>
</tr>
<tr>
<td bgcolor="white" valign="top"><p><b>Bo sted</b> <%= hent("Bosted") %></p></td>
</tr>
<tr>
<td bgcolor="white" valign="top"><p><b>Bedste hold:</b> <%= hent("Bedste_hold") %></p></td>
</tr>
<tr>
<td bgcolor="white" valign="top"><p><b>Bedste våben:</b> <%= hent("Bedste_vaaben") %></td>
</tr>
<tr>
<td bgcolor="white" valign="top"><p><b>Bedste map:</b> <%= hent("Bedste_map") %></p></td>
</tr>
<tr>
<td bgcolor="white" valign="top"><p><b>Om mig:</b> <%= hent("Mig") %></p></td>
</tr>
<tr>
<td bgcolor="white" valign="top"><p><b>Adgangskode:</b> <%= hent("Password") %></p></td>
</tr>
<tr>
<td bgcolor="white" valign="top"><p><b>Omstilling:</b> <%= hent("Redirect") %></p></td>
</tr>
</p>

<%
Hent.MoveNext

Loop While Not hent.EOF

Conn.Close
Set Conn = Nothing
%>
</table>




<!-------------------------------------------------Ændre din profil start------------------------------------>

<p><a href="default.asp?side=8&vis=nej">gem</a> - <a href="default.asp?side=8&vis=ja">vis</a> (Ændring af profil)</p>
<%if request.querystring("vis") = "nej" then%>


<%elseif request.querystring("vis") = "ja" then%>


<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/masterz.mdb")

Conn.Open DSN

Mangler = "SELECT * FROM Members Where User = '" & session("user") & "' "

Set Hent = Conn.Execute(Mangler)

%>


<p><b>Ændre din profil</b></p>

<form name="update" method="post" action="default.asp?side=8&mode=opdater">
User: <input id="User" type="text" name="User" value="<%= hent("user") %>" size="40"><br>
Redirect: <input id="Redirect" type="text" name="Redirect" value="<%= hent("redirect") %>" size="40"><br>
Nick: <input id="Nick" type="text" name="Nick" value="<%= hent("nick") %>" size="40"><br>
Alder: <input id="Alder" type="text" name="Alder" value="<%= hent("alder") %>" size="40"><br>
Bosted: <input id="Bosted" type="text" name="Bosted" value="<%= hent("bosted") %>" size="40"><br>
Bedste hold: <input id="Bedste_hold" type="text" name="Bedste_hold" value="<%= hent("bedste_hold") %>" size="40"><br>
Bedste vaaben: <input id="Bedste_vaaben" type="text"  name="Bedste_vaaben" value="<%= hent("bedste_vaaben") %>" size="40"><br>
Bedste map:<input id="Bedste_map" value="<%= hent("bedste_map") %>" type="text" name="Bedste_map" size="40"><br>
Om mig:<textarea name="Mig" rows="5" cols="20"><%= hent("mig") %></textarea><br>
Password: <input id="Password" value="<%= hent("password") %>" type="text" name="Password" size="40"><br>

<input type="submit" value="Opdater" name="submit">
</form>


<%
conn.close

set conn=nothing
%>


<%end if%>

<!-----------------------------------------------Ændre din profil slut------------------------------------------------>


<!-----------------------------------------------Gem artikler start --------------------------------------------------->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/masterz.mdb")

Conn.Open DSN

Mangler = "SELECT * FROM Members Where User = '" & session("user") & "' "

Set Hent = Conn.Execute(Mangler)

%>


<p><a href="default.asp?side=8&vis=nej_artikler">gem</a> - <a href="default.asp?side=8&vis=ja_artikler">vis</a> (Skriv Nyheder)</p>
<%if request.querystring("vis") = "nej_artikler" then%>


<%elseif request.querystring("vis") = "ja_artikler" then%>



<p><b>Skriv artikel</b></p>

<form name="update" method="post" action="default.asp?side=8&mode=opdater_artikler">
Overskrift: <input type="text" name="overskrift" value="Skriv overskriften her" size="40"><br>
Skrevet af: <input type="text" name="skrevet_af" value="<%= hent("nick") %>" size="40"><br>
Tid: <input type="text" name="tid" value="<%response.write now %>" size="40"><br>
Tekst: <textarea name="tekst" rows="5" cols="20">Skriv artiklen her</textarea><br>


<input type="submit" value="Gem" name="submit">
</form>

<%
conn.close
set conn = nothing
%>



<%end if%>




<!-----------------------------------------------Gem artikler slut ---------------------------------------------------->



<!-----------------------------------------------Add bruger start------------------------------------------------------>



<p><a href="default.asp?side=8&vis=nej_bruger">gem</a> - <a href="default.asp?side=8&vis=ja_bruger">vis</a> (Ad bruger)</p>
<%if request.querystring("vis") = "nej_bruger" then%>


<%elseif request.querystring("vis") = "ja_bruger" then%>



<p><b>Add bruger</b></p>

<form name="update" method="post" action="default.asp?side=8&mode=opdater_bruger">
User: <input id="User" type="text" name="User" size="40"><br>
Redirect: <input id="Redirect" type="text" name="Redirect" size="40"><br>
Nick: <input id="Nick" type="text" name="Nick" size="40"><br>
Alder: <input id="Alder" type="text" name="Alder" size="40"><br>
Bosted: <input id="Bosted" type="text" name="Bosted" size="40"><br>
Bedste hold: <input id="Bedste_hold" type="text" name="Bedste_hold" size="40"><br>
Bedste vaaben: <input id="Bedste_vaaben" type="text"  name="Bedste_vaaben" size="40"><br>
Bedste map:<input id="Bedste_map" type="text" name="Bedste_map" size="40"><br>
Om mig:<textarea name="Mig" rows="5" cols="20"></textarea><br>
Password: <input id="Password" type="text" name="Password" size="40"><br>
<input type="submit" value="Gem" name="submit">
</form>





<%end if%>

<!------------------------------------------Add af bruger slut-------------------------------------------------------->

<form metod="post" action="default.asp?side=8&mode=delete" name="delete">
<select size="1" name="delete_menu">
    <option>Nyheder</option>
    <option>Artikler</option>
    <option>members</option>
</select>

<select size="1" name="valg">
    <option>Overskrift</option>
    <option>nick</option>
</select>

<br>
<br>

Delete: <input type="text" name="delete_navn" size="20"><br>
<input type="submit" value="delete" name="submit">
</form>



<%
if request.querystring("mode") = "delete" then

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/masterz.mdb")

Conn.Open DSN

Delete = "delete from '" & request.form("delete_menu") & "' where '" & request.form("valg") & "' = '" & request.form("delete_navn") & "'"

Conn.Execute(delete)

end if
%>






<!-----------------------------------------------indsætning af gem artikler start-------------------------------------->
<%


if request.querystring("mode") = "opdater_artikler" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/masterz.mdb")


Conn.Open DSN
Opdater_artikler ="insert into artikler (overskrift, skrevet_af, tid, tekst) values('" & request.form("overskrift") & "' , '" & request.form("skrevet_af") & "' , '" & request.form("tid") & "' , '" & request.form("tekst") & "')"

conn.execute(opdater_artikler)

Conn.Close
Set Conn = Nothing

end if
%>
<!----------------------------------------------Indsætning af gem artikler slut---------------------------------------->


<!----------------------------------------------Adding af bruger start------------------------------------------------->

<%


if request.querystring("mode") = "opdater_bruger" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/masterz.mdb")


Conn.Open DSN
Opdater_bruger ="insert into members (user, redirect, nick, alder, bosted, bedste_hold, bedste_vaaben, bedste_map, mig, password) values('" & request.form("user") & "' , '" & request.form("redirect") & "' , '" & request.form("nick") & "' , '" & request.form("alder") & "' , '" & request.form("bosted") & "' , '" & request.form("bedste_hold") & "' , '" & request.form("bedste_vaaben") & "' , '" & request.form("bedste_map") & "' , '" & request.form("mig") & "' , '" & request.form("password") & "')"

conn.execute(opdater_bruger)

Conn.Close
Set Conn = Nothing

end if
%>


<!----------------------------------------Adding af brugere slut------------------------------------------------------->


<!-----------------------------------------------Opdater ændring af profil start--------------------------------------->
<%


if request.querystring("mode") = "opdater" then
user = session(User)
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/masterz.mdb")


Conn.Open DSN
Opdater =" update members set user='" & request.form("user") & "' , redirect='" & request.form("redirect") & "' , nick = '" & request.form("nick") & "' , Alder='" & request.form("alder") & "' , bosted='" & request.form("bosted") & "' , bedste_hold='" & request.form("bedste_hold") & "' , bedste_vaaben = '" & request.form("bedste_vaaben") & "' , bedste_map='" & request.form("bedste_map") & "' , mig='" & request.form("mig") & "' , password='" & request.form("password") & "' where user = '" & session("user") & "'"


conn.execute(opdater)

Conn.Close
Set Conn = Nothing

end if
%>
<!-------------------------------------------Opdater ændring af profil slut---------------------------------------------->





<a href="login/logout.asp">Log ud</a>

ok, det er fordi du mangler et h i method!

<form metod="post" action="default.asp?side=8&mode=delete">
skal rettes til
<form method="post" action="default.asp?side=8&mode=delete">

//>Rune

Argh..... Det er sgu ikke første gang jeg gør det!!!

Nu hopper den til siden, men den siger dette:
Tekniske oplysninger (for supportteknikere)

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i forespørgslen. Forespørgslens delsætning er ikke fuldstændig.
/hp/masterz/login/member_side.asp, line 249


Browsertype:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Side:
POST 53 bytes to /hp/masterz/default.asp

POST Data:
delete_menu=Artikler&valg=Overskrift&delete_navn=Oppe

Klokkeslæt:
1. januar 2003, 21:53:34

Fair nok :o)

Det næste du gør forkert at at du bruger ' og ' ved dine clouser, det må kun gøres i forspørgelser!

<%
if request.querystring("mode") = "delete" then

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/masterz.mdb")

Conn.Open DSN

Delete = "delete from " & request.form("delete_menu") & " where " & request.form("valg") & " = '" & request.form("delete_navn") & "'"

Conn.Execute(delete)

end if
%>

//>Rune

Ok

Tark medions..... Det hjalp. Jeg er lidt newbie indenfor asp så dette system jeg har næsten har lavet selv er en stor udfordring for mig, men det er sgu sjovt at arbejde med.

Jeg takker for hjælpen!

Anytime ;o)
Thx 4 Poinz

//>Rune