Mira cubbo encontre como hacerlo usando simples arrays, solo es cuestion de checar el codigo que hice de prueba, mira solo pegua(en) el siguiente trozo de codigo en un script y corranlo:
<% @LANGUAGE="VBScript" %>
<% Option Explicit
Dim campo1,campo2,cadena,cadsal
Dim cad(20),cont,band,ccont,cadt
cont = 0
If Request("cam1") <> "" then
campo1 = Request("cam1")
End if
cadena = Request("cad")
Response.write "<p><h3>Cadena=" & cadena & "</h3></p>"
cont = CInt(Request("cont"))
if len(cadena) > 0 Then
cadt = split(cadena,",",-1,1)
For ccont = 0 To cont - 1
cad(ccont)= cadt(ccont)
Next
If campo1 <> "" Then
cad(cont) = campo1
cont = cont + 1
end if
Else
If campo1 <> "" Then
cad(cont) = campo1
cont = cont + 1
End if
End If
If cont = 0 Then
Response.write "No Hay Nada Todavia"
else
For ccont = 0 To cont - 1
Response.write "<h4>Dato(" & ccont & ")=" & cad(ccont) & "</h4>"
Next
Response.write "<p><h3>Contador=" & cont & "</h3></p>"
End if
%>
<html>
<head>
<title>hidden</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="hidden1.asp">
<p align="center">
<input type="checkbox" name="cam1" value="<%=cont%>">
Pregunta 1</p>
<p align="center">
<input type="submit" name="Submit" value="enviar">
<input type="reset" name="Submit2" value="Reset">
<%
For ccont = 0 To cont - 1
%>
<input type="hidden" name="cad" value="<%=cad(ccont)%>">
<%
Next
%>
<input type="hidden" name="cont" value="<%=cont%>">
</p>
</form>
</body>
</html>
Si tienen algun comentario sobre el script anterior estoy para servir, con esto no hay necesidad de usar variables session y ademas que la ejecucion se hace mas rapido.
Gracias de cuboo por tu comentario. Hasta pronto.