multisletning med checkboxe 2

Jeg har fået den her stump kode af mitbrugernavn herinde på side, dog vil det ikke som jeg helt vil

<form name="form1" method="post" action="">
<input type="checkbox" name="id" value="1"><br>
<input type="checkbox" name="id" value="2"><br>
<input type="checkbox" name="id" value="3"><br>
<input type="checkbox" name="id" value="4"><br>
<input type="checkbox" name="id" value="5"><br>
<input type="submit" name="Submit" value="Submit">

</form>
<%
value_checkbox = request("id")
if value_checkbox <> "" then
arr = split(value_checkbox,",")
for a = 0 to ubound(arr)
response.write "slet id " & arr(a) & "<br>" 'dette bare en udskrivning
slet_id = arr(a)
'her sætter du så din slet ind (alle 7 linier selvfølgelig)
sletdet.CommandText = "DELETE FROM emailblock  WHERE mailblockid = " + slet_id + ""

next
end if
%>

altså i mine checkboxe står der som værdi:
<%=(Recordset1.Fields.Item("testid").Value)%>

og min form action er sat til: test2.asp

og test2.asp indeholder følgende:

<%
value_checkbox = request("testid")
if value_checkbox <> "" then
arr = split(value_checkbox,",")
for a = 0 to ubound(arr)
response.write "slet id " & arr(a) & "<br>" 'dette bare en udskrivning
slet_id = arr(a)
'her sætter du så din slet ind (alle 7 linier selvfølgelig)
set slet = Server.CreateObject("ADODB.Command")
slet.ActiveConnection = MM_eventz_STRING
sletdet.CommandText = "DELETE FROM test  WHERE testid = " & slet_id
slet.CommandType = 1
slet.CommandTimeout = 0
slet.Prepared = true
slet.Execute()

next
end if
%>

er jeg helt gal på den eller hvad, eller skal koden hvor den sletter være på sammen siden som formen eller hvad?