HURTIG HJÆLP til et lille simpelt "slette" script

Kort spørgsmål

Har lavet dette simple script, som skal kunne slette medlemmer.

Men jeg kan ikke få det til at virke, er der nogen der hurtigt lige gider komme med et bud ???

Peter

<html>
<body>
<%     if Request.queryString("id") = "" then  %>
<h1>Klik på den kontaktperson du ønsker at slette</h1>
<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=D:\www2\vaugrenier\log\brugere.mdb;UID=;PWD=;"
Conn.Open DSN
Dim samletAntal
strSQL = "SELECT * FROM brugere ORDER BY brugernavn"
Set rs = Conn.Execute(strSQL)

Dim objRec
If Not rs.EOF Then

Do until rs.EOF
    Response.write "<a href='slet3.asp?id=" & rs("id") & "'>"
        Response.write rs("brugernavn") & " "
    Response.write rs("password") & "</a><br>"
        rs.MoveNext
Loop
rs.Close
Set rs = Nothing

else

hvilken = Request.QueryString("id")

Dim strSql
strSql = "delete from brugere where id = " & hvilken

Dim objCmd
Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.ActiveConnection = dsn                   
objCmd.CommandText = strSql                     
objCmd.Execute                             
Set objCmd = Nothing

Response.write "<h2>Posten slettet</h2>"
end if
end if
%>
</body>
</html>