Conversor de base de dados em ASP

A minha ideia é a seguinte, ter uma lista de itens e poder marcar como presentes ou não numa checkbox.

Quero que apareça uma checkbox marcada:

<input type="checkbox" <% If (Recordset1.Fields.Item("Revogado").Value)="0" Then %>checked="checked"<% End If %> />

Agora pretendia criar uma função para "Revogar" automático, do genero:

<form method="post" name="formactivar" id="formactivar">

<input type="checkbox" <% If (Recordset1.Fields.Item("Revogado").Value)="0" Then %>checked="checked"<% End If %> onclick="document.getElementById('opcao').value='<%=(Recordset1.Fields.Item("Referencia").Value)%>';document.getElementById('efectuar').submit()" />

Esta parte está no inicio do codigo:

<%
If Request.Form("opcao")<>"" Then

Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_intranet_STRING
MM_editCmd.CommandText = "UPDATE ordensSERVICO SET Revogado=1 WHERE Referencia=" & Request.Form("opcao")
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

End If

%>