
Te muestra ese valor porque estás imprimiendo el valor dentro del ciclo y no tiene ningún separador, la lógica está bien:
Código:
<%
for each item in Request.form()
valor = CInt(len(Request.Form("checkbox")) > 0) * -1
Response.write(valor & ",")
next
%>