El problema es que es´tas haciendo un insert por cada elemento del formulario.
supongo que lo que necesitas en realidad serían estas dos inserciones
4 ! 9 ! 2003 ! mguzman ! disponible ! 8:30
4 ! 9 ! 2003 ! mguzman ! disponible ! 9:00
lo que te recomiendo es que llames a los checkbox igual ("hora", por ejemplo). A la hora de recoger los datos en la otra pagina haz un request.form("hora"). Lo que obtienes con esto es una lista de las horas marcadas separadas por comas.
si haces un split con esa cadena obtienes un array con tantos elemenos como horas marcadas...
kedaría asi
Código:
horas = request.form("hora")
arrHoras = split(horas,",")
for i = 0 to Ubound(arrHoras) -1
sql="Insert into Actividades (dia, mes, año, hora, usuario, estado) values ( '"& dia &"', '"& mes &"', '"& anno &"', '"& arrHoras(i)&"', '"& codusuario &"', '"& estado &"' )"
conexion.Execute(sql)
Next
espero que te sirva.