jeg havde en anden kode som fungerede på samme måde, jeg lavede bare copy paste og ændrede tabel navn osv osv, så nu virker den...
her er koden :
<%
set conn=server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../db/xxxxxx_com.mdb")
if request.servervariables("REQUEST_METHOD") = "POST" then
'opdater
slet = Request.Form("slet")
if slet<>"" then
SQL = "DELETE FROM muzik WHERE ID IN(" & slet & ")"
End if
Conn.Execute(SQL)
Response.redirect(request.Servervariables("SCRIPT_NAME"))
end if
%>
<html>
<head>
<title>Godkend brugerne</title>
<style type="text/css">
<!--
td {
font-family: verdana;
font-size: 9px;
}
-->
</style>
</head>
<body bgcolor="ffffff">
<%
sql = "select * from muzik where id>0"
set rs=Conn.Execute(SQL)
response.write "<table border=0>"
response.write "<form action=""" & request.ServerVariables("SCRIPT_NAME")&""" method=""post"">"
response.write "<tr><td><b>Slet</b></td><td><b>ID</b></td><td><b>Sarkici Ismi</b></td><td><b>Sarki Ismi</b></td></tr>"
do while not rs.EOF
response.write "<tr>"
response.write "<td><input type=""checkbox"" name=""slet"" value=""" & rs("id") & """></td>"
response.write "<td>" & rs("id") & "</td>"
response.write "<td>" & rs("sarkici_ismi") & "</td>"
response.write "<td>" & rs("sarki_ismi") & "</td>"
response.write "</tr>"
rs.Movenext
loop
%>
</table>
<input type="submit" name="aktiver" value=".::Uygula::.">
</form>
</body>
</html>
god weekend :)
