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")) & (" ") & 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")) & (" ") & vcount & ("<br>")
RS.Movenext
Loop
end if
On Error Resume Next
obj_conn.Execute(vSQLString)
wend
%>
should be
<input type="text" name="proselected" value="<%=Request.Form("pr
you are missing the "=" sign .