ho questo codice per eliminare i messaggi ricevuti
seleziono il messaggio tramite un check clicco su elimina la pagina si ricarica ma non mi elimina il record...
come posso fare?

codice:
<%on error resume next%>
<%

if request.form("delete")="true" then
x=0 
		sql="delete * from miniBlog where ID="
			for each item in request.form

if x>0  and x< len(Request.Form)then
				if request.form(item)<>"" then
						sql = sql & request.form(item) & "  or ID="
					end if
end if
x=x+1

			next


sql = replace(sql,"or ID=Elimina","")
sql = replace(sql,"ID=Elimina","")
sql= left(sql,len(sql)-7)
if len(sql)>33 then

	Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.CommandTimeout = 40
        Conn.ConnectionTimeout = 40
        Conn.CursorLocation = 3
        Conn.ConnectionString="server=mioserver.it;db=miodb;driver=MySQL;uid=miouser;pwd=miapass"
        Conn.Open
    Set rs= Conn.Execute(sql)
end if

'			response.write(sql &"
" & x)

end if
%>