ASP - Problemas con INSERT TO en Base de Datos

Saludos

tengo mi tabla y deseo insertar campos de una lista los ontengo mediante un checkbox lo que quiero es que se inserten los checkbox seleccionados pero al momento de traermelos y hacer el insert no inserta nada en la base de datos, Necesito ayuda me urge, espero alguien me pueda ayudar por favor

Aqui les dejo el codigo que uso:

<!-- #Include File =" Ses.asp" -->
<!-- #Include File =" Dbsi.asp" -->

sContador=cInt(Request.Form("contador"))
fecha= left(cStr(Now),19)
sesion = Session("SesCta")
CveSis = Session("CveSis")
Dim permisos(250)

i=1
While i<=sContador
clave=Request.Form(""&i&"")
If clave <> "" Then
clave=cint(clave)
permisos(i)=clave
sSql = "SELECT estado"
sSql = sSql & " FROM catalogo"
sSql = sSql & " WHERE keyusuario="& clave &""
rsRecAux.Open sSql, cnApl

If not rsRecAux.EOF Then
If (rsRecAux("estado")="B") Then
sSql = "UPDATE catalogoact SET estado = 'M',"
sSql = sSql & "modificacion = '" & fecha& "',"
sSql = sSql & "mod = '" & sesion & "'"
sSql = sSql & " WHERE clveuser="& clave &""

End If
Else
sSql = "INSERT INTO catalogoact"
sSql = sSql & " VALUES ("
sSql = sSql & "clveuser = '" & clave & "',"
sSql = sSql & "actua = '" & fecha& "',"
sSql = sSql & "cuenta = '" & sesion & "',"
sSql = sSql & "tipo= '" & " 'A',"
sSql = sSql & "clave = '" & " 'newpass',"
sSql = sSql & "val = '" & " 'S',"
sSql = sSql & "estado = '" & " 'A',"
sSql = sSql & "inser= '" & fecha& "',"
sSql = sSql & "inserus= '" & sesion & "',"


End If
On Error Resume Next
cnApl.Execute sSql

If Err.Number <> 0 Then %>
<!-- #Include File = "inc/_Err.asp"-->
<% Err.Number = 0
End If
rsRecAux.Close
End If
i=i+1
Wend

%>

<!-- #Include File ="inc/_DbsFin.asp" -->
<%Response.Redirect "main.asp" %>

sSql = "INSERT INTO catalogoact"
---------------------------
ponle el nombre de los campos en donde vas a insertar...
-------------------------
sSql = sSql & " VALUES ("
sSql = sSql & "clveuser = '" & clave & "',"
sSql = sSql & "actua = '" & fecha& "',"
sSql = sSql & "cuenta = '" & sesion & "',"
sSql = sSql & "tipo= '" & " 'A',"
sSql = sSql & "clave = '" & " 'newpass',"
sSql = sSql & "val = '" & " 'S',"
sSql = sSql & "estado = '" & " 'A',"
sSql = sSql & "inser= '" & fecha& "',"
sSql = sSql & "inserus= '" & sesion & "',"

prueba primero esto...