Passing Variables across multiple pages

I have the following code I am trying to pass the form variable from across two pages.  I am using the first page confirmation.asp as a page that users get to see their choices prior to submission to the database.  This page is working correctly.  I have included a form with a hidden field of the confirmation page with the value

    <input name="proselected" type="hidden" value="<%Request.Form("progSelected[]")%>" />

I want to pass this value to a submit.asp page.  I am getting the following error.  

Microsoft VBScript runtime  error '800a01a8'

Object required: ''

/memberapp/seminar/submit.asp, line 12

Here is the code for the confirmation.asp page

<%
Response.write ("Please Print this page to confirm your seminar choices") & ("<br><br><br>")

Dim vSelectedSeminars,vSeminarID,vInstr,vCount, semname
vCount=0
Dim vSQLString
Dim nString
Dim objRS : Set objRS = Server.CreateObject("ADODB.Recordset")
      obj_conn.Execute("Delete from seminarregistration where memberid = " & Session("memId"))
      obj_conn.Execute("Delete from seminaruserchoices where memberid = " & Session("memId"))
      vSelectedSeminars = Request.Form("progSelected[]")
      while len(vSelectedSeminars) > 0  
            vInstr = instr(vSelectedSeminars,",")
            if vInstr = 0 then
                  vSeminarID = vSelectedSeminars
                  vSelectedSeminars = ""
            else
                  vSeminarID = mid(vSelectedSeminars,1,vInstr-1)            
                  vSelectedSeminars = mid(vSelectedSeminars,vInstr+1,len(vSelectedSeminars))
            end if
      
      if vCount = 0 then
                  'vSQLString = "Insert Into SeminarRegistration(SeminarID,MemberID,RegistrationDate) Values("& vSeminarID & "," & Session("memId") & ",'"& now()&"')"
   
            'response.write (vSeminarID)
               On Error Resume Next
               obj_conn.Execute(vSQLString)
             end if
            vCount = vCount+1
            'vSQLString = "Insert Into SeminarUserChoices(SeminarID,MemberID,PreferenceNumber) Values("& vSeminarID & "," & Session("memId") & "," & vCount & ")"
nString = "select name from seminar where seminarid = '" & vSeminarID & "'"            
'response.Write(vSeminarID)
              set RS=obj_conn.Execute(nString)
              if not (RS.eof and RS.bof) then
               Do while not RS.eof
               response.Write(RS("name")) & ("&nbsp; &nbsp; ") & vcount & ("<br>")
           
         RS.Movenext
               Loop
          end if  
            On Error Resume Next
            obj_conn.Execute(vSQLString)            
      wend
%>

<form id="form1" name="form1" method="post" action="submit.asp">
  <p>
    <input name="proselected" type="hidden" value="<%Request.Form("progSelected[]")%>" />
</p>
  <p>
    <label>
    <input type="submit" name="Submit" value="Submit" />
    </label>
</p>
</form>


here is the code for the submit.asp page

<%
Response.write ("Please Print this page to confirm your seminar choices") & ("<br><br><br>")

Dim vSelectedSeminars,vSeminarID,vInstr,vCount, semname
vCount=0
Dim vSQLString
Dim nString
Dim objRS : Set objRS = Server.CreateObject("ADODB.Recordset")
      obj_conn.Execute("Delete from seminarregistration where memberid = " & Session("memId"))
      obj_conn.Execute("Delete from seminaruserchoices where memberid = " & Session("memId"))
      vSelectedSeminars = Request.Form("proSelected[]")
      while len(vSelectedSeminars) > 0  
            vInstr = instr(vSelectedSeminars,",")
            if vInstr = 0 then
                  vSeminarID = vSelectedSeminars
                  vSelectedSeminars = ""
            else
                  vSeminarID = mid(vSelectedSeminars,1,vInstr-1)            
                  vSelectedSeminars = mid(vSelectedSeminars,vInstr+1,len(vSelectedSeminars))
            end if
      
      if vCount = 0 then
                  'vSQLString = "Insert Into SeminarRegistration(SeminarID,MemberID,RegistrationDate) Values("& vSeminarID & "," & Session("memId") & ",'"& now()&"')"
   
            'response.write (vSeminarID)
               On Error Resume Next
               obj_conn.Execute(vSQLString)
             end if
            vCount = vCount+1
            'vSQLString = "Insert Into SeminarUserChoices(SeminarID,MemberID,PreferenceNumber) Values("& vSeminarID & "," & Session("memId") & "," & vCount & ")"
nString = "select name from seminar where seminarid = '" & vSeminarID & "'"            
'response.Write(vSeminarID)
              set RS=obj_conn.Execute(nString)
              if not (RS.eof and RS.bof) then
               Do while not RS.eof
               response.Write(RS("name")) & ("&nbsp; &nbsp; ") & vcount & ("<br>")
           
         RS.Movenext
               Loop
          end if  
            On Error Resume Next
            obj_conn.Execute(vSQLString)            
      wend
%>